Referencing a different workbook.

  • Thread starter Thread starter chris100
  • Start date Start date
C

chris100

Hi all,

Sure this is a relatively simple one but i'm having trouble (i blame
the night befores alcohol intake).
I want to send this info to a workbook called "sales" in the c:\ drive
into a sheet called "sales". What is the correct way to reference this
in the code below:-

Sheets("INVOICE").Select

Dim lrw As Long, cl As Long

lrw = Sheets("sales").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row

Sheets("sales").Cells(lrw, 1) = Sheets("invoice").Range("F3")
Sheets("Sales").Cells(lrw, 2) = Sheets("invoice").Range("M5")

Thanks in advance as usual.

Chris
 
Dim lrw As Long, cl As Long
Dim sh as Worksheet, sh1 as Worksheet
Dim bk as Workbook
set sh = Thisworkbook.Worksheets("Invoice")
On error resume next
set bk = Workbooks("Sales.xls")
On error goto 0
if bk is nothing then _
set bk = worbooks.open("C:\sales.xls")
set sh1 = bk.worksheets("Sales")
lrw = sh1.Cells(Rows.Count, "A").End(xlUp).Offset(1,0).Row
sh1.Cells(lrw, 1).Value = sh.Range("F3").Value
sh1.Cells(lrw, 2).Value = sh.Range("M5").Value
 
Back
Top