Macro for merging data from multiple sheets [Solved/Closed]

Ashwathi V K - Jan 23, 2017 at 06:15 AM - Latest reply: TrowaD 2369 Posts Sunday September 12, 2010Registration dateModeratorStatus June 21, 2018 Last seen
- 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?


See more 

5 replies

TrowaD 2369 Posts Sunday September 12, 2010Registration dateModeratorStatus June 21, 2018 Last seen - Jan 24, 2017 at 12:09 PM
0
Thank you
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
0
Thank you
Sir,
It is not working. Is says 'Run time error 9' .

Thanking you
With regards
Ashwathi V K
TrowaD 2369 Posts Sunday September 12, 2010Registration dateModeratorStatus June 21, 2018 Last seen - Jan 30, 2017 at 11:33 AM
0
Thank you
Hi Ashwathi,

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

Best regards,
Trowa
0
Thank you
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
TrowaD 2369 Posts Sunday September 12, 2010Registration dateModeratorStatus June 21, 2018 Last seen - Jan 31, 2017 at 11:23 AM
No problem, happy to help you solve your query.