| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy data in multiple worksheet tabs into one worksheet
I have data in various tabs (some tabs have one row of data, others have
more) that I would like to move or copy into one worksheet. I would like to use code to do this as some workbooks can have as much as 40 tabs while others could have 10 tabs. |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy data in multiple worksheet tabs into one worksheet
Sub make_summary()
Worksheets.Add befo=ThisWorkbook.Sheets(1) Set SumSht = ActiveSheet SumSht.Name = "Summary" For Each sht In ThisWorkbook.Sheets If sht.Name < "Summary" Then SumLastRow = SumSht.Range("A" & Rows.Count).End(xlUp).Row ShtLastRow = sht.Range("A" & Rows.Count).End(xlUp).Row sht.Rows("1:" & ShtLastRow).Copy _ Destination:=SumSht.Rows(SumLastRow + 2) End If Next sht End Sub "Bob" wrote: I have data in various tabs (some tabs have one row of data, others have more) that I would like to move or copy into one worksheet. I would like to use code to do this as some workbooks can have as much as 40 tabs while others could have 10 tabs. |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Copy data in multiple worksheet tabs into one worksheet
This removes row 1 from all the worksheets and does not copy or move anything
to the "Summary" page. "Joel" wrote: Sub make_summary() Worksheets.Add befo=ThisWorkbook.Sheets(1) Set SumSht = ActiveSheet SumSht.Name = "Summary" For Each sht In ThisWorkbook.Sheets If sht.Name < "Summary" Then SumLastRow = SumSht.Range("A" & Rows.Count).End(xlUp).Row ShtLastRow = sht.Range("A" & Rows.Count).End(xlUp).Row sht.Rows("1:" & ShtLastRow).Copy _ Destination:=SumSht.Rows(SumLastRow + 2) End If Next sht End Sub "Bob" wrote: I have data in various tabs (some tabs have one row of data, others have more) that I would like to move or copy into one worksheet. I would like to use code to do this as some workbooks can have as much as 40 tabs while others could have 10 tabs. |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Move data from multiple tabs into one worksheet | Excel Discussion (Misc queries) | |||
| how to copy data from one worksheet to multiple worksheets at once | Excel Worksheet Functions | |||
| How do I view multiple tabs on the worksheet | Excel Worksheet Functions | |||
| link multiple tabs in new worksheet | Excel Discussion (Misc queries) | |||
| Worksheet tabs on multiple lines? | Excel Worksheet Functions | |||
Hybrid Mode
