Crie um número de registro exclusivo - dicas do Excel

Janet, da Inglaterra, fez a pergunta de hoje.

Precisamos saber como configurar uma macro que atribuirá um número de fatura único, como configurar uma segunda macro que salvará a fatura concluída como o número único.

Aqui está a aplicação hipotética que estou imaginando. Há uma pasta de trabalho com uma planilha de fatura e uma planilha de menu. Proponho armazenar o último número da fatura em uma célula fora do caminho na planilha do Menu, digamos Z1. Se o número da fatura deveria ir na célula H2 da planilha da fatura, esta macro resolveria:

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

Então, para salvar a Nota Fiscal, algo assim:

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