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?
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
It is not working. Is says 'Run time error 9' .
Thanking you
With regards
Ashwathi V K
Do you have a sheet named "Main" in your workbook?
Best regards,
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