Macro to copy and paste latest row into same row

[joncarlan]

Hi,

I currently have a running invoice log which has the following steps:

• Paste booking confirmation into Paste tab
• Invoice log looks up to relevant fields from paste tab to fill in log
• Pro-forma tab looks up to the invoice log to make an invoice, which I save as a PDF.

The invoice log has the same formulas copied right the way down, and the only column I adjust is column A, the invoice number.

For example, column A is blank (I put in the invoice number which progress numerically). Column B is =today() Column C is =PASTE!$D$17 and so on (similar paste/trim functions). Essentially I'd like to add a button/macro which copy and pastes the row of the latest/highest number in column A, and paste specials this in the exact same row, removing the formulas, so my max formula from the pro-forma tab can pick up this information automatically.

Hope this makes sense, thanks in advance.

Jon.

 

[JLGWhiz]

Select your button from Developer|Insert|Form Controls|Command Button
A dialog box will appear with "Attach Macro" option. Click on the option to coplete the attchment.

Sub makeValue()
With Sheets("Invoice Log").Cells(Rows.Count, 1).End(xlUp).EntireRow
    .Value = .Value
End With
End Sub

After you have attached the macro to your button, if you click the button the macro will find the last invoice entry and change all cell content in that row to value only.
Be sure the sheet name "Invoice Log" is correct. If not, change it to be exactly as it appears on the sheet name tab.