Maak een uniek recordnummer - Excel-tips

Janet uit Engeland stelde de vraag van vandaag.

We moeten weten hoe we een macro moeten opzetten die een uniek factuurnummer toewijst, hoe we een tweede macro kunnen instellen die de ingevulde factuur opslaat als het unieke nummer.

Hier is de hypothetische toepassing die ik me voorstel. Er is een werkmap met een factuurwerkblad en een menuwerkblad. Ik stel voor om het laatste factuurnummer op te slaan in een afgelegen cel in het menu-werkblad, laten we zeggen Z1. Als het factuurnummer in cel H2 van het factuurwerkblad moet komen, dan zou deze macro het volgende doen:

Sub GetNextInvoiceNumber() LastInv = Worksheets("Menu").Range("Z1").Value NextInv = LastInv + 1 Worksheets("Invoice").Range("H2").value = NextInv Worksheets("Menu").Range("Z1").value = NextInv End Sub

Om vervolgens de factuur op te slaan, zoiets als dit:

Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub