Excel - A macro to perform the automatic numbering of invoices

December 2016



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

Related :

This document entitled « Excel - A macro to perform the automatic numbering of invoices » from CCM (ccm.net) is made available under the Creative Commons license. You can copy, modify copies of this page, under the conditions stipulated by the license, as this note appears clearly.