VBA code to copy data in different sheets of a workbook

Shweta

Well-known Member
Joined
Jun 5, 2011
Messages
514
Hi All,

I am using the following code to copy data from multiple workbooks in a folder to
one workbook.

Code:


Sub copy_files()

Dim wkb1, wkb2, wkb3 As Workbook
Dim i, lastrow As Integer
Dim mylastrow, mylastcol As Long
Dim myrange As Range
Dim mylastcell As Integer
Dim xrow As Long
Dim intsheets, z As Integer

Set wkb1 = ActiveWorkbook
lastrow = Range("a65356").End(xlUp).Row

Workbooks.Open Filename:=Range("E1").Value
Set wkb2 = ActiveWorkbook

For i = 1 To lastrow
Workbooks.Open Filename:=wkb1.Sheets(1).Range("A" & i).Value
Set wkb3 = ActiveWorkbook

Sheets(1).Select
Range("A1").Select
ActiveSheet.UsedRange.Copy
wkb2.Activate
Sheets(1).Select
xrow = Range("A65356").End(xlUp).Row + 1
Range("A" & xrow).Select
ActiveSheet.Paste
wkb3.Activate
wkb3.Close
wkb1.Activate

Next

End Sub


Please tell me what changes are required in the above code to paste the data in different sheets on one workbook.

Thanks & regards,
Shweta
 

Excel Facts

Excel Joke
Why can't spreadsheets drive cars? They crash too often!

prajul89

Active Member
Joined
Jul 9, 2011
Messages
404
just add this code after Set wkb3 = ActiveWorkbook
Code:
sheets.Add
 

Watch MrExcel Video

Forum statistics

Threads
1,130,399
Messages
5,641,921
Members
417,247
Latest member
Chitaah

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top