Skapa ett unikt postnummer - Excel-tips

Janet från England ställde dagens fråga.

Vi behöver veta hur man ställer in ett makro som tilldelar ett unikt fakturanummer, hur man ställer in ett andra makro som sparar den färdiga fakturan som det unika numret.

Här är den hypotetiska tillämpning som jag föreställer mig. Det finns en arbetsbok med ett fakturaarkblad och ett menyark. Jag föreslår att du lagrar det sista fakturanumret på en cell som inte är i vägen i menybladet, säger Z1. Om fakturanumret ska gå i cell H2 i fakturabladet, skulle detta makro göra tricket:

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

För att spara fakturan, så här:

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