Code:
Private Sub Workbook_Open()
Dim brojac As Integer
brojac = Left(ThisWorkbook.Sheets(1).Range("B1").Text, Len(ThisWorkbook.Sheets(1).Range("B1").Text) - 3)
ThisWorkbook.Sheets(1).Range("B1").Value = Str(brojac + 1) & Right(ThisWorkbook.Sheets(1).Range("B1").Text, 3)
End Sub
Ukoliko broj treba da ima vodeće nule kao u 012/09 umesto Str koristi se funkcija Format ......e sada????
Kako da ja napravim "buton"- dugme kojim cu isprazniti čeliju B1 i uvečati je za npr 013/09 pa opet tako a da ne moram zatvarati Workbook.?
Nije znanje znanje znati, znanje je znanje dati .....