Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy all sheets into 1
Hello. Anyone know how to take every visible sheet in a workbook, and paste
each sheet (one under the other) onto a single sheet called "Upload"? Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy all sheets into 1
This will do it - but goes wrong if the Upload sheet has a history, i.e. if
Ctrl-End in Upload takes you anywhere other than the first cell (to reset this, clear all of the Upload sheet and then close and open the file). Sub PasteAll() Dim mySheet As Worksheet For Each mySheet In Worksheets If mySheet.Name < "Upload" Then mySheet.Select Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy Worksheets("Upload").Select Range("A1").Select ActiveCell.SpecialCells(xlLastCell).Select Selection.End(xlToLeft).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste End If Next End Sub "Steph" wrote: Hello. Anyone know how to take every visible sheet in a workbook, and paste each sheet (one under the other) onto a single sheet called "Upload"? 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 | |||
copy sheets | Excel Discussion (Misc queries) | |||
move or copy sheets doesn't copy format | Excel Worksheet Functions | |||
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 | |||
Copy Sheets | Excel Programming |