Macro for merging data from multiple sheets

Solved/Closed
Ashwathi V K - Jan 23, 2017 at 06:15 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Jan 31, 2017 at 11:23 AM
Hello,
I want to copy data of 2nd columns from all the sheets to different columns of single excel sheet. Is there any macro code available for performing this task?


1 response

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Jan 24, 2017 at 12:09 PM
Hi Ashwathi V K,

That single excel sheet in the code below is called "Main". Every Column B of all the other sheets will be copied to the "Main" sheets first available column based on the data in the first row.

Give it a try:
Sub RunMe()
Dim ws As Worksheet

For Each ws In Worksheets
    If ws.Name <> "Main" Then
        ws.Select
        Columns("B:B").Copy Sheets("Main").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
    End If
Next ws
End Sub


Best regards,
Trowa
1
Sir,
It is not working. Is says 'Run time error 9' .

Thanking you
With regards
Ashwathi V K
0
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552
Jan 30, 2017 at 11:33 AM
Hi Ashwathi,

Do you have a sheet named "Main" in your workbook?

Best regards,
Trowa
0
Hai Trowa,

Sorry , I didn't made a separate sheet named 'Main'. That's why it shows error. Now i am able to run. thankyou for solving the problem.

Thankyou

With regards
Ashwathi V K
0
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 552 > ashwathi
Jan 31, 2017 at 11:23 AM
No problem, happy to help you solve your query.
0