K
Karen53
Hi,
I'm not sure I'm doing this right. I used this to open the other workbook
in another procedure and it worked fine. Now I'm getting an out of range
message. Also, am I identifying the two different workbook correctly in
determining the LusedRow?
Dim wbkCopyFrom As Workbook
Set wbkCopyFrom = Workbooks("C:\Documents and
Settings\Eileen\Desktop\New
Workbooks\test.xls")
If wbkCopyFrom Is Nothing Then
Set wbkCopyFrom = Workbooks.Open("C:\Documents and
Settings\Eileen\Desktop\New
Workbooks\test.xls")
On Error GoTo Done
If wbkCopyFrom Is Nothing Then
MsgBox "Cannot find originating file"
Else
Set ws = wbkCopyFrom.Sheets(Replace(MainPagepg.Name, "'", "''"))
Application.ScreenUpdating = False
'get the last tenant's row in the From workbook
FromLusedRow = ws.Cells(Rows.Count, "F").End(xlUp).Row
'get the last tenant's row in the New workbook
NewLusedRow = MainPagepg.Cells(Rows.Count, "F").End(xlUp).Row
I'm not sure I'm doing this right. I used this to open the other workbook
in another procedure and it worked fine. Now I'm getting an out of range
message. Also, am I identifying the two different workbook correctly in
determining the LusedRow?
Dim wbkCopyFrom As Workbook
Set wbkCopyFrom = Workbooks("C:\Documents and
Settings\Eileen\Desktop\New
Workbooks\test.xls")
If wbkCopyFrom Is Nothing Then
Set wbkCopyFrom = Workbooks.Open("C:\Documents and
Settings\Eileen\Desktop\New
Workbooks\test.xls")
On Error GoTo Done
If wbkCopyFrom Is Nothing Then
MsgBox "Cannot find originating file"
Else
Set ws = wbkCopyFrom.Sheets(Replace(MainPagepg.Name, "'", "''"))
Application.ScreenUpdating = False
'get the last tenant's row in the From workbook
FromLusedRow = ws.Cells(Rows.Count, "F").End(xlUp).Row
'get the last tenant's row in the New workbook
NewLusedRow = MainPagepg.Cells(Rows.Count, "F").End(xlUp).Row