| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to copy from each sheet and paste to a summary sheet
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to copy from each sheet and paste to a summary sheet
See
http://www.rondebruin.nl/copy2.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm wrote in message ... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
How to copy from each sheet and paste to a summary sheet
Thanks.
I'll try it out on Monday. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy from one Sheet and paste on another sheet based on condition | Excel Discussion (Misc queries) | |||
| How can i copy data from a tabbed working sheet to a summary sheet | Excel Discussion (Misc queries) | |||
| Active Cell Copy And Paste Sheet to Sheet | New Users to Excel | |||
| copying and paste data from each worksheet to a summary work sheet | Excel Programming | |||
| automatic copy and paste from sheet to sheet in a workbook | Excel Programming | |||
Linear Mode
