[ JohnyR @ 05.04.2013. 11:57 ] @
Poštovani,
imam jedan mali probem, napravio sam sebi neke macro-e koje treba da startuje sledeci makro

Sub PokreniMakro()

If Range("B1") = "Stalna imovina 2009" Then
Application.Run "PERSONAL.XLSB!Macro2009"
ElseIf Range("B1") = "Stalna imovina 2010" Then
Application.Run "PERSONAL.XLSB!Macro2010"
Else: MsgBox "Greška!!!"
End If

End Sub

E sad pošto imam na stotine sheet-ova on radi kad idem pojedinačno jedan po jedan... Ali kad ih markiram sve dolazi do greske, jer macro 2010 ne radi kako treba... A kad idem pojedinačno jedan po jedan sheet sve odlicno radi... Sta bi tu moglo da mi pravi problem?

Pozdrav...
[ Brodoplovac @ 05.04.2013. 12:06 ] @
Mogao si da ostaviš XLS primer. Nije najjasnije šta ti treba.

Ja pretpostavljam da je problem u tome što koristiš zapis Range("B1"). Ovakav zapis se odnosti samo na aktivni sheet. Moraš pored toga da imenuješ i sheet na kojem želiš da izvršiš promenu, npr. Worksheets("Sheet1").Range("B1"). Za sve sheetove trebalo bi ti nešto ovako:

Code:
Dim wsht as worksheet
For each wsht in Worksheets
         If wsht.Range("b1") = "Stalna.......
         ..............................................
Next wsht

[ JohnyR @ 05.04.2013. 14:32 ] @
Opet mi negdje nesto nije kako treba...
Evo u prilogu je ta baza (skracena verzija) u onako malo losem grafickom izdanju ali to nije ni bitno to mi je prelazni fajl za import u access...