[es] - Makro za automatsko uvećanje broja

pero krizanovic
Biovodoinstalater
podzemlje

Član broj: 212192
Poruke: 35
*.bi.dlp208.bih.net.ba.

+10 Profil

^{26.12.2009. u 12:59 - pre 174 meseci}

Pretpostavimo da je ćelja koju treba da se ažurira B1. U proceduri Workbook_Open radne sveske ubaci se sledeći kod
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 .....

Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
93.86.110.*

+9 Profil

Re: Makro za automatsko uvećanje broja

^{26.12.2009. u 13:28 - pre 174 meseci}

Tako sto sec ceo makro iskopirati u dogadjaj Sub CommandButton1_Click komandnog dugmeta koje ces postaviti negde na Sheetu i po potrebi klikom na njega odradjivati isto ono sto se odradi kroz Workbook_open.
Vodi racuna o tome da formiras komandno dugme - button iz palete ControlToolbox (iz menija Tools/Customize/Commands, desnim klikom na njega izaberes View code i iskopiras makro), a ne button koje poziva formu iz palete Forms.

Odgovor na temu