Crea un numero di record univoco - Suggerimenti per Excel

Janet dall'Inghilterra ha posto la domanda di oggi.

Dobbiamo sapere come impostare una macro che assegnerà un numero di fattura univoco, come impostare una seconda macro che salverà la fattura completata come numero univoco.

Ecco l'ipotetica applicazione che sto immaginando. C'è una cartella di lavoro con un foglio di lavoro Fattura e un foglio di lavoro Menu. Propongo di memorizzare l'ultimo numero di fattura su una cella fuori mano nel foglio di lavoro del menu, diciamo Z1. Se il numero della fattura dovrebbe andare nella cella H2 del foglio di lavoro della fattura, questa macro farebbe il trucco:

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

Quindi, per salvare la fattura, qualcosa del genere:

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