Macros

  • Thread starter Thread starter Lois
  • Start date Start date
L

Lois

I have 2 workbooks wich require the same data to be entered into them each
month (Each workbook has a different end purpose). In the past I have tried
linking the 2 workbooks by formula but because the workbooks are obiviously
saved in 2 different places, the links sometimes for one reason or another
break. I was wondering if there was any way a macro could be written on one
workbook that would place the data in the relevant worksheet tab & cells of
the other one or would this be too complicated?!
 
This is done all the time. it is simple to open one workbook from antoher
and move the data.

Below is a very simple case of one workbook opening another and copying some
data

You can record a macro while performing the operations and then re-use the
macro when you need to perform the operations again. I would reecommend
editing the recorded macro when you get done because the recorder creates a
lot of extra statements that aren't required. I can reduce the recorder
macro when you get done.

Sub test()

Set BK1 = ThisWorkbook
Set Bk1Sht = BK1.Sheets("Sheet1")
BookName = "c:\temp\book1.xls"
Set Bk2 = Workbooks.Open(Filename:=BookName)
Set Bk2Sht = Bk2.Sheets("Sheet1")

With BK1
BK1Sht.Range("A1") = Bk2Sht.Range("C4")

BkSht2.Range("B7:D10").Copy _
Destination:=Bk1Sht.Range("B9")

End With

Bk2.clise savechanges:=False

End Sub
 
Back
Top