Cree un número de registro único: consejos de Excel

Janet de Inglaterra planteó la pregunta de hoy.

Necesitamos saber cómo configurar una macro que asignará un número de factura único, cómo configurar una segunda macro que guardará la factura completa como el número único.

Aquí está la aplicación hipotética que estoy imaginando. Hay un libro de trabajo con una hoja de trabajo de Factura y una hoja de trabajo de Menú. Propongo almacenar el último número de factura en una celda apartada de la hoja de trabajo del Menú, digamos Z1. Si se supone que el número de factura debe ir en la celda H2 de la hoja de cálculo de la factura, entonces esta macro haría el truco:

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

Luego, para guardar la factura, algo como esto:

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