Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Macro run (problem)

[es] :: Office :: Excel :: Macro run (problem)

[ Pregleda: 1097 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

JohnyR
PD

Član broj: 313405
Poruke: 17
*.teol.net.



Profil

icon Macro run (problem)05.04.2013. u 11:57 - pre 104 meseci
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...
 
Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 829
*.adsl.verat.net.



+163 Profil

icon Re: Macro run (problem)05.04.2013. u 12:06 - pre 104 meseci
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

 
Odgovor na temu

JohnyR
PD

Član broj: 313405
Poruke: 17
*.teol.net.



Profil

icon Re: Macro run (problem)05.04.2013. u 14:32 - pre 104 meseci
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...
Prikačeni fajlovi
 
Odgovor na temu

[es] :: Office :: Excel :: Macro run (problem)

[ Pregleda: 1097 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.