Stvorite jedinstveni broj zapisa - Excel savjeti

Janet iz Engleske postavila je današnje pitanje.

Moramo znati postaviti makronaredbu koja će dodijeliti jedinstveni broj fakture, kako postaviti drugu makronaredbu koja će spremljenu fakturu spremiti kao jedinstveni broj.

Evo hipotetske primjene koju zamišljam. Postoji radna knjiga s radnim listom Račun i radnim listom Izbornik. Predlažem pohranjivanje zadnjeg broja fakture u ćeliji na putu na radnom listu Izbornik, recimo Z1. Ako bi broj fakture trebao ići u ćeliju H2 radnog lista, tada bi ova makronaredba učinila trik:

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

Zatim, da biste spremili fakturu, otprilike ovako:

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