Moze na vise nacina to da se uradi;
Evo deo od jednog nacina kako je to moguce resiti:
- U VBA napraviti f-ju koja generise broj racuna u skladu sa potrebama i koja vraca generisani broj racuna kao povratnu vrednost tipa string;
- Pozvati tu VBA f-ju kada god je potrebno generisati novi broj;
Primer VBA f-je koja koristi Registry za cuvanje poslednjeg generisanog broja preko f-je gde preko ulaznog parametra kontrolise da li se poslednji generisani broj azurira ili ne u registry-ju i deo koda koji sluzi za povezivanje makro-a sa drugim elementima u okviru Excel-a isto kroz VBA i makro;
Code:
Public Function GenerateInoviceNum(Optional ByVal SaveLastNumber As Boolean = True) As String
Dim r As String
r = Val("" & GetSetting("myinvoiceapp", "invoice", "invoicenum", "0")) + 1
If SaveLastNumber = True Then
SaveSetting "myinvoiceapp", "invoice", "invoicenum", r
End If
r = Format(r, "000")
r = r & "/L1/1P"
GenerateInoviceNum = r
End Function
Public Sub DoGenerateInvoiceNum()
ActiveCell = GenerateInoviceNum(True)
End Sub