Excel - A macro to perform the automatic numbering of invoices

Ask a question


Issue


I store my invoices under Excel, but I have to manually assign a new number to each of them every time.
Is it possible to have automatic numbering using a macro?

Solution


This is a macro that can increment (for example) an invoice number. In this macro, the number is displayed in cell "A1", but it can be changed to your convenience.

Sub Increment_invoice()   

Dim num As Integer   
Range("A1").Select   
num = Range("A1").Value   
num = num + 1   
Range("A1").Value = num   

End Sub 



You also want to add these lines to the end of a macro so that every time you print your invoice, the next one will be incremented automatically as follows:
Sub PRINT()   

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   
Dim num As Integer   
Range("A1").Select   
num = Range("A1").Value   
num = num + 1   
Range("A1").Value = num   

End Sub
Jean-François Pillou

CCM is a leading international tech website. Our content is written in collaboration with IT experts, under the direction of Jeff Pillou, founder of CCM.net. CCM reaches more than 50 million unique visitors per month and is available in 11 languages.

Learn more about the CCM team