Re: Transferring (Copy/Paste) Info to another excel workbook

Tech-Archive recommends: Fix windows errors by optimizing your registry

Basically you need to find the last row in your Master Order wb and add 1 to
it before you paste.

Dim LRow as Long
LRow = Workbooks("Master Orders").Worksheets("Sheet1") _
.Cells(Rows.Count, "A").End(xlUp).Row

Workbooks("Template").Worksheets("Sheet1").Range("A1:A15").Copy Workbooks _
("Master Orders").Worksheets("Sheet1").Range("A" & LRow + 1)

Mike F

<haas786@xxxxxxxxx> wrote in message
news:1162730935.554423.25190@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hey all,

I currently have an Excel template of a pricing *** which I use daily
for individual data entry. Once I've entered all the data into it, I
want to press a button which runs a macro - this macro essentially
Copies information from various cells in the pricing template, and then
opens up another workbook ('Master Orders.xls') into which it Pastes
the copied info.

Here's my problem: how can I Paste the info to the next blank row in
the 'Master Order.xls' workbook? Everytime I press the Macro button,
the Copy, Open 'Master Order.xls' workbook, and Paste functions work
well, except it overwrites the last entry in the 'Master Order.xls'
workbook. So, if Order#1 (A1:A15) and Order#2 (B1:B15) are already in
the 'Master Order.xls' work book, and I run the macro, Order#2 gets
replaced. Instead, I want the info pasted on C1:C15, and then D1:D15
etc...

Any or all help will be much appreciated. Thanks much in advance!

Haas



.

Quantcast