Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents from all sheets into 1
Hello all. If I have a workbook that have several sheets, how can I copy
the contents of each sheet and paste that one under the other on the sheet called "Consolidated". So basically I will be consolidating all sheets in workbook except 'Consolidated' onto the sheet 'Consolidated', one under he other. Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy contents from all sheets into 1
set sh1 = Worksheets("Consolidated")
for each sh in Worksheets if sh.Name < sh1.Name then sh.Usedrange.copy Destination:= _ sh1.cells(rows.count,1).End(xlup)(2) end if Next would be a start and should work if you data is organized as a table with the bottom left corner filled in (column A) -- Regards, Tom Ogilvy "Steph" wrote in message ... Hello all. If I have a workbook that have several sheets, how can I copy the contents of each sheet and paste that one under the other on the sheet called "Consolidated". So basically I will be consolidating all sheets in workbook except 'Consolidated' onto the sheet 'Consolidated', one under he other. Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy cell info to other sheets, other sheets dont contain all row. | Excel Worksheet Functions | |||
Copying contents from multiple sheets onto one | Excel Worksheet Functions | |||
Could someone please help me w/ matching the contents of each two sheets? | Excel Discussion (Misc queries) | |||
in VBA Sheets("mysheet").Copy Befo=Sheets(1) how do i get a reference to the newly created copy of this sheet? | Excel Worksheet Functions | |||
Deleting Contents of Sheets | Excel Programming |