| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Copy an array of Sheets
::Can someone help edit this code that I could copy an array of sheets onto Sheet2 please:: :: :: ::Sub copy_1():: :: Dim SourceRange As Range, DestRange As Range:: :: Dim DestSheet As Worksheet, Lr As Long:: :: :: :: With Application:: :: .ScreenUpdating = False:: :: .EnableEvents = False:: :: End With:: :: :: :: 'fill in the Source Sheet and range:: :: Set SourceRange = Sheets(\"Sheet1\").Range(\"A4:D12\"):: :: :: :: 'Fill in the destination sheet and call the LastRow:: :: 'function to find the last row:: :: Set DestSheet = Sheets(\"Sheet2\"):: :: Lr = LastRow(DestSheet):: :: :: :: 'With the information from the LastRow function we can:: :: 'create a destination cell and copy/paste the source range:: :: Set DestRange = DestSheet.Range(\"A\" & Lr + 1):: :: SourceRange.Copy DestRange:: :: :: :: With Application:: :: .ScreenUpdating = True:: :: .EnableEvents = True:: :: End With:: :: :: ::End Sub:: -- Aussiegirlone ------------------------------------------------------------------------ Aussiegirlone's Profile: http://www.thecodecage.com/forumz/member.php?userid=272 View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=115071 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| move or copy sheets doesn't copy format | Excel Worksheet Functions | |||
| combining cells and array from different sheets into an array to pass to IRR() | Excel Discussion (Misc queries) | |||
| Print Array for hidden sheets using VBA | Excel Discussion (Misc queries) | |||
| Print Array for hidden sheets using VBA | 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 | |||
Threaded Mode
