Menu
Ask a question Report

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

- - Latest reply: TrowaD
Posts
2562
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 14, 2019
 - Jan 31, 2017 at 11:23 AM
Excel Ask a question Report
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 

1 reply

Best answer
approved by Jean-François Pillou on Nov 30, 2018
Report
Posts
2562
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 14, 2019
 370
1
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

Say "Thank you" 1

A few words of thanks would be greatly appreciated. Add comment

CCM 6097 users have said thank you to us this month

Report
-
Sir,
It is not working. Is says 'Run time error 9' .

Thanking you
With regards
Ashwathi V K
Report
TrowaD
Posts
2562
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 14, 2019
 370 -
Hi Ashwathi,

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

Best regards,
Trowa
Report
-
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
Report
TrowaD
Posts
2562
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
November 14, 2019
 370 > ashwathi -
No problem, happy to help you solve your query.
Ask a question