2
Thanks

A few words of thanks would be greatly appreciated.

Excel - A macro to perform the automatic numbering of invoices



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
2
Thanks

A few words of thanks would be greatly appreciated.

Ask a question
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.

Related

Published by . Latest update on by aakai1056.

This document, titled "Excel - A macro to perform the automatic numbering of invoices," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (https://ccm.net/).

0 Comments