Ahoj, potřeboval bych pomoc s kódem pro Excel. Mám nastavené makro, které se spustí při změně buňky. Problém mi nastává při aktualizaci propojených tabulek. Mám na každém listu zvlášť aktualizaci pro daný list, ale při možnosti aktualizovat vše mi to , dle mého názoru pochopitelně hodí chybu, protože nejsem najednou na všech listech jako aktivní. Je možné se tomu vyhnout a třeba před otevřením sešitu a proceduru vypnout? Toto se dá ošéfovat ve vlastnostech tabulky, ale tak to řešit nechci. Níže kód.
Děkuji za věnovaní se mi.
Private Sub Worksheet_Change(ByVal Target As Range)
Macro1 Target
Macro2 Target
End Sub
Private Sub Macro1(ByVal Target As Range)
HledanyText = Range("C5").Value
ActiveSheet.Range("Filtr_Firmy").AutoFilter Field:=2, Criteria1:=(HledanyText)
End Sub
Private Sub Macro2(ByVal Target As Range)
ActiveSheet.Range("Filtr_Firmy").AutoFilter Field:=1, Criteria1:= _
Worksheets("Data").Range("Datum_od_Firmy"), Operator:=xlAnd, Criteria2:=Worksheets("Data").Range("Datum_do_Firmy")
End Sub
Private Sub CommandButton2_Click()
Range("Filtr_Firmy").Select
Selection.AutoFilter
End Sub
Excel VBA
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: Excel VBA
Vítej na PC-HELP
Bylo by namístě, přiložit vzorový soubor. Takhle z hlavy, těžko říct..
Bylo by namístě, přiložit vzorový soubor. Takhle z hlavy, těžko říct..
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
Re: Excel VBA
Děkuji. Přikládám soubor bez napojení externích dat. Na vzoru jsou dva listy, ale finnal je listů víc, jen se jedná o jiné data.
- elninoslov
- Level 2.5
- Příspěvky: 373
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
Re: Excel VBA
-Skúste jednu parametrizovanú procedúru volanú z každého listu.
-Naozaj sa má volať pri zmene akejkoľvek bunky ???
-Prečo má na jednom liste tlačítko CommandButton1 opačnú funkciu ako na inom?
-Jeden dátum medzi rokmi 2021 bol 2020.
-Takto ani tie Definované názvy nepotrebujete.
-Nepotrebujete ani dátumy pre kritériá na liste Data.
-Reaguje to aj na zmazanie filtrovacích kritérií (to overenie dát umožňuje).
-Predpoklad je, že daná Tabuľka o ktorú ide, je prvá v liste.
Ale najdôležitejšia vec:
-Skúste tú aktualizáciu, nemám ako vyskúšať. A nechce sa mi niečo vymýšľať a vytvárať.
Inak na takéto filtrovanie môžete použiť aj Rýchly Filter na objekte Tabuľka.
-Naozaj sa má volať pri zmene akejkoľvek bunky ???
-Prečo má na jednom liste tlačítko CommandButton1 opačnú funkciu ako na inom?
-Jeden dátum medzi rokmi 2021 bol 2020.
-Takto ani tie Definované názvy nepotrebujete.
-Nepotrebujete ani dátumy pre kritériá na liste Data.
-Reaguje to aj na zmazanie filtrovacích kritérií (to overenie dát umožňuje).
-Predpoklad je, že daná Tabuľka o ktorú ide, je prvá v liste.
Ale najdôležitejšia vec:
-Skúste tú aktualizáciu, nemám ako vyskúšať. A nechce sa mi niečo vymýšľať a vytvárať.
Inak na takéto filtrovanie môžete použiť aj Rýchly Filter na objekte Tabuľka.
- Přílohy
-
- r1_kopie.xlsm
- (59.31 KiB) Staženo 33 x
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 16
- 8198
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 1242
-
od mmmartin
Zobrazit poslední příspěvek
28 kvě 2024 23:45
-
- 1
- 1477
-
od Grimm
Zobrazit poslední příspěvek
12 bře 2024 21:43
-
- 3
- 3102
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 5
- 3879
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 11 hostů