Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste row to new workbook
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste row to new workbook
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 "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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy multiple worksheets of a workbook, and paste onto a Word document ( either create new doc file or paste onto an existing file.) I need this done by VBA, Excel Macro | Excel Programming | |||
Selecting data from 1 workbook to copy and paste to a 2nd workbook | Excel Programming | |||
I cannot paste from one workbook to another. Copy works, paste do. | Excel Discussion (Misc queries) | |||
Need a macro to copy a range in one workbook and paste into another workbook | Excel Programming | |||
Copy a range of cells in an unopened workbook and paste it to the current workbook | Excel Programming |