Janet z Anglicka položila dnešnú otázku.
Potrebujeme vedieť, ako nastaviť makro, ktoré priradí jedinečné číslo faktúry, ako nastaviť druhé makro, ktoré uloží vyplnenú faktúru ako jedinečné číslo.
Tu je hypotetická aplikácia, ktorú si predstavujem. K dispozícii je zošit s hárkom Faktúra a hárkom ponuky. Navrhujem uložiť posledné číslo faktúry do bunky mimo cestu v pracovnom hárku ponuky, povedzme Z1. Ak sa má číslo faktúry nachádzať v bunke H2 tabuľky s faktúrami, potom by toto makro stačilo:
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
Potom pre uloženie faktúry niečo také:
Sub SaveInvWithNewName() ' Copy Invoice to a new workbook Worksheets("Invoice").Copy NewFN = Range("H2").Value & ".xls" ActiveWorkbook.SaveAs NewFN ActiveWorkbook.Close End Sub