Ja sam ovo radio tako što na drugom listu original radne sveske zapamtim broj poslednje izdate fakture u pomoćnoj ćeliji.
Prilikom otvaranja original radne sveske (u događaju Open) prenesem vrednost pomoćne ćelije (poslednja izdata faktura) i uvećam za jedan.
Code:
Private Sub Workbook_Open()
Sheets("Faktura").Range("C2").Value = Sheets("Pom").Range("B1").Value +1
End Sub
Prilikom čuvanja radne sveske (u događaju Before Save) prenesem vrednost broja fakture u pomoćnu ćeliju na drugom listu. I sačuvam original svesku ( fakturaoriginal.xls )
Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Pom").Range("B1").Value = Sheets("Faktura").Range("C2").Value
ActiveWorkbook.Save
End Sub
Sledeći put kad se otvori fakturaoriginal.xls popuniće se sledeći broj fakture na osnovu sadržaja pomoćne ćelije.
Naravno, ukoliko je iz nekog meni nepoznatog razloga neophodno, može se rešiti i pretraživanjem direktorijuma. Na primer funkciju koja traži najnoviji fajl u direktorijumu možeš naći na adresi
http://j-walk.com/ss/excel/tips/tip97.htm. Ova funkcija se može prepraviti tako da uvek uzima xls fajlove i vraća samo naziv fajla - u tvom slučaju broj.
[Ovu poruku je menjao Jpeca dana 28.11.2006. u 09:27 GMT+1]
[Ovu poruku je menjao Jpeca dana 28.11.2006. u 09:27 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?