Hi everyone,

I would like to copy data from a sheet in one workbook to another sheet
in a differrent workbook. Is there a way to do this automatically?

Thank you very much for your help.

With your help with this, i will finish up my report automation and it
will save me at least 4hrs a week.

Thanks!


--
Excel_Newbie
------------------------------------------------------------------------
Excel_Newbie's Profile: http://www.excelforum.com/member.php...o&userid=28861
View this thread: http://www.excelforum.com/showthread...hreadid=486456

Here is some code that copies form one book to another...

Sub Test()
Dim wbkSource As Workbook
Dim wbkDestination As Workbook
Dim wksSource As Worksheet
Dim wksDestination As Worksheet
Dim rngSource As Range
Dim rngDestination As Range

'Set your source
Set wbkSource = ThisWorkbook
Set wksSource = wbkSource.Sheets("Sheet1")
Set rngSource = wksSource.Cells

'Set your destination
On Error GoTo OpenBook
Set wbkDestination = Workbooks("ThatBook.xls")
On Error GoTo 0
Set wksDestination = wbkDestination.Sheets("Sheet1")
Set rngDestination = wksDestination.Range("A1")

'You now have all of your souce and destination objects

wksSource.Copy wksDestination
rngSource.Copy rngDestination

Exit Sub

OpenBook:
Set wbkDestination = Workbooks.Open("C:\Thatbook.xls")
Resume Next
Exit Sub

End Sub
--
HTH...

Jim Thomlinson


"Excel_Newbie" wrote:


Hi everyone,

I would like to copy data from a sheet in one workbook to another sheet
in a differrent workbook. Is there a way to do this automatically?

Thank you very much for your help.

With your help with this, i will finish up my report automation and it
will save me at least 4hrs a week.

Thanks!


--
Excel_Newbie
------------------------------------------------------------------------
Excel_Newbie's Profile: http://www.excelforum.com/member.php...o&userid=28861
View this thread: http://www.excelforum.com/showthread...hreadid=486456

To copy data from Range("a1:bm500") in WorkBook1.Sheets("A") t
WorkBook2.Sheets("C"):


Sub CopyWkBookToWkBook()

set SourceBk=WorkBooks("Book1")
set DestinBk=WorkBooks("Book2")

SourceBk.Range("a1:bm500").Copy DestinBk.Range("a1")

End Sub


David

--
david
-----------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...fo&userid=2064
View this thread: http://www.excelforum.com/showthread.php?threadid=48645

Whoops! Incomplete referencing now rectified.

To copy data from Range("a1:bm500") in WorkBook1.Sheets("A") to
WorkBook2.Sheets("C"):


Sub CopyWkBookToWkBook()

set SourceBk=WorkBooks("Book1").Sheets("A")
set DestinBk=WorkBooks("Book2").Sheets("C")

SourceBk.Range("a1:bm500").Copy DestinBk.Range("a1")

End Sub


David.


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=486456