copying to external workbook
 

Hi Guys still battling!

Have read threads but can't get this code to work.
WHat I need to accomplish is to copy the contents of Test.XLS sheet1
to Z:\July.xls sheet1 (THis sheet will be closed)

Just can't get it to work Please help.

Here is my code:

Private Sub CommandButton7_Click()

Dim wbk As Workbook
Dim wks As Worksheet
Dim SrcBook As Workbook


Set SrcBook = Active.Workbooks


Set wbk = Workbooks.Open("I:\July.xls")
Set wks = wbk.Sheet1


Application.ScreenUpdating = False

SrcBook.Sheets("Sheet1").UsedRange.Copy _
wbk:=wbk.Sheets _
("Sheet1").Range("A1")

SrcBook.Close (False)

Application.ScreenUpdating = True

End Sub


Thx in advance


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=389659

copying to external workbook
 

Hi Mikeice,

Try:

Private Sub CommandButton7_Click()

Dim wbk As Workbook
Dim wks As Worksheet
Dim SrcBook As Workbook


Set SrcBook = ActiveWorkbook


Set wbk = Workbooks.Open("I:\July.xls")
Set wks = wbk.Sheets("Sheet1")


Application.ScreenUpdating = False

SrcBook.Sheets("Sheet1").UsedRange.Copy Destination:= _
wks.Range("A1")

SrcBook.Close (False)

Application.ScreenUpdating = True

End Sub
---
Regards,
Norman



"Mikeice" wrote in
message ...

Hi Guys still battling!

Have read threads but can't get this code to work.
WHat I need to accomplish is to copy the contents of Test.XLS sheet1
to Z:\July.xls sheet1 (THis sheet will be closed)

Just can't get it to work Please help.

Here is my code:

Private Sub CommandButton7_Click()

Dim wbk As Workbook
Dim wks As Worksheet
Dim SrcBook As Workbook


Set SrcBook = Active.Workbooks


Set wbk = Workbooks.Open("I:\July.xls")
Set wks = wbk.Sheet1


Application.ScreenUpdating = False

SrcBook.Sheets("Sheet1").UsedRange.Copy _
wbk:=wbk.Sheets _
("Sheet1").Range("A1")

SrcBook.Close (False)

Application.ScreenUpdating = True

End Sub


Thx in advance


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile:
http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=389659