Paste row to new workbook

[Guest]

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

 

[Guest]

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

 

[Guest]

Try this Carlee:-

With Sheets("Site Reading Log") 'source
.Rows(.Cells(Rows.Count, "A").End(xlUp).Row).Copy _
Destination:=Sheets("Destination").Rows(1) 'destination
End With

Regards,

OssieMac