Report

Macro for merging data from multiple sheets [Solved]

Ask a question Ashwathi V K - Last answered on Jan 31, 2017 at 11:23 AM by TrowaD
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 
Helpful
+0
plus moins
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
Leave a comment
Helpful
+0
plus moins
Sir,
It is not working. Is says 'Run time error 9' .

Thanking you
With regards
Ashwathi V K
Leave a comment
Helpful
+0
plus moins
Hi Ashwathi,

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

Best regards,
Trowa
Leave a comment
Helpful
+0
plus moins
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 2245Posts Sunday September 12, 2010Registration date ModeratorStatus June 27, 2017 Last seen - Jan 31, 2017 at 11:23 AM
No problem, happy to help you solve your query.
Reply
Leave a comment

Member requests are more likely to be responded to.

Members can monitor the statuses of their requests from their account pages.

A CCM membership gives you access to additional options.

Not a member yet?

Sign up now. It takes less than a minute and is completely free!