Paste row to new workbook
My apologies Carlee,
I did not properly read your question the first time. I tested what you want
to do and I have not been able to paste into another workbook without
selecting the destination. This really surprises me but perhaps there is a
way of doing it and I just do not know how. However, the following appears to
work but perhaps not the way you would prefer for your code:-
With Workbooks("Copy From.xls").Sheets("Site Reading Log")
.Rows(.Cells(Rows.Count, "A").End(xlUp).Row).Copy
End With
Workbooks("Site Reading Export.xls"). _
Sheets("Destination").Rows(1).Select
ActiveSheet.Paste
Regards,
OssieMac
"Carlee" wrote:
Hi,
I have been fiddling with this for ever!! Below is the code i am using to
select the last record of 'Site Reading Log' to a new sheet in the same
workbook called 'Destination'
Question:
How can i copy the last row in 'Site Reading Log' and paste it to a new
workbook, called 'Site Reading Export'.xls, rather to a sheet within the
exiting workbook.
All your help is really appreciated!
Sub Button2_Click()
With Sheets("Site Reading Log") 'source
.Rows(.Cells(Rows.Count, "A").End(xlUp).Row).Copy
Sheets("Destination").Rows(1) 'destination
End With
End Sub
--
Carlee
|