How to copy from each sheet and paste to a summary sheet

G

gordeos

Hi,

New user needs some help, please.
I have a workbook with 197 sheets. All the 197 sheets have the same
format (2 columns and 121 rows). I would like to copy data from each
sheet to a summary sheet ("Sheet1") to make a long list.
I don't know how to move to the next sheet in the For Next Loop.

Here is the code to copy and paste one sheet at a time:

Sheets("2741").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:B121").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Range("A122").Select
Selection.End(xlDown).Select
Range("A241").Select
Sheets("2743").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:B121").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste
Range("A242").Select
Selection.End(xlDown).Select
Range("A361").Select
Sheets("2744").Select
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A2:B121").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
ActiveSheet.Paste


Thanks for helping
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top