Next number invoice +

[PEAKCAB]

Hello,

Please could anyone help me? I am running Bill's next invoice number macro and would also like to add another ref "our order" number to the sheet which would also increase by +1 and save on the sheet when the macro for the invoice runs.

thanks in advance

Rich

 

[Kamolga]

Can you post the macro?

 

[PEAKCAB]

Morning,

the cell that would like the other number in is C22

Sub NextInvoice()
Range("J22").Value = Range("J22").Value + 1
Range("C14:E20").ClearContents
Range("G157:J187").ClearContents
Range("A22").ClearContents
Range("C22").ClearContents
Range("E22").ClearContents
Range("J57").ClearContents
Range("J197").ClearContents
Range("G27:G51").ClearContents
Range("A25:A55").SpecialCells(xlCellTypeConstants).ClearContents
Range("H25:J55").SpecialCells(xlCellTypeConstants).ClearContents
Range("B25:B55").SpecialCells(xlCellTypeConstants).ClearContents

End Sub

Sub SaveInvWithNewName()
Dim NewFN As Variant
PostToRegister
'Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = "Y:\Dropbox\Accounts\Accounts\Sales\DELIVERY NOTES\DN" & Range("J22").Value & ".xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice


Thanks,

Rich