Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy worksheet
Back again with another copy conundrum. Have read through various threads and still cannot get the VBA to do what I need. I need to copy the used range of a single worksheet in a closed workbook and then drop it in to an existing worksheet in the active workbook. As always help greatly appreciated. == -- Kstalker ------------------------------------------------------------------------ Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699 View this thread: http://www.excelforum.com/showthread...hreadid=386667 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy worksheet
Is there any reason why you can't open the workbook and copy the
sheet? Tim "Kstalker" wrote in message ... Back again with another copy conundrum. Have read through various threads and still cannot get the VBA to do what I need. I need to copy the used range of a single worksheet in a closed workbook and then drop it in to an existing worksheet in the active workbook. As always help greatly appreciated. == -- Kstalker ------------------------------------------------------------------------ Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699 View this thread: http://www.excelforum.com/showthread...hreadid=386667 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy worksheet
Hi Kristan,
Open book1, effect the copy operation, close Book1. If this operation needs to be hidden, set ScreenUpdating to False before Boo1 is opened and restore it to true after Book1 is closed. Perhaps, something like: Sub One() Dim SrcBook As Workbook Dim DestBook As Workbook Dim MyPath As String Set MyPath = Application.DefaultFilePath '<<==Change If Right(MyPath, 1) < "\" Then MyPath = MyPath & "\" Set DestBook = ActiveWorkbook Set SrcBook = Workbooks.Open(MyPath & "YourBookName.xls") Application.ScreenUpdating = False SrcBook.Sheets("SheetToCopy").UsedRange.Copy _ Destination:=DestBook.Sheets _ ("DestinationSheet").Range("A1") SrcBook.Close (False) Application.ScreenUpdating = True End Sub Amend the path, workbook and sheet names to suit. --- Regards, Norman "Kstalker" wrote in message ... Back again with another copy conundrum. Have read through various threads and still cannot get the VBA to do what I need. I need to copy the used range of a single worksheet in a closed workbook and then drop it in to an existing worksheet in the active workbook. As always help greatly appreciated. == -- Kstalker ------------------------------------------------------------------------ Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699 View this thread: http://www.excelforum.com/showthread...hreadid=386667 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy worksheet
Thanks for that Norman. Again it was just what I needed. Regards Kristan -- Kstalker ------------------------------------------------------------------------ Kstalker's Profile: http://www.excelforum.com/member.php...o&userid=24699 View this thread: http://www.excelforum.com/showthread...hreadid=386667 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Move/Copy or Copy/Insert worksheet? | Excel Discussion (Misc queries) | |||
Unable to Insert Worksheet/Move and copy worksheet Excel 2003 | Excel Worksheet Functions | |||
copy range on every worksheet (diff names) to a master worksheet (to be created) | Excel Programming | |||
copy range on every worksheet (diff names) to a master worksheet (to be created) | Excel Programming | |||
Code to copy range vs Copy Entire Worksheet - can't figure it out | Excel Programming |