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?


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 2282Posts Sunday September 12, 2010Registration date ModeratorStatus October 19, 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!