PC-HELP.CZ

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

Vítej na PC-HELP

Bylo by namístě, přiložit vzorový soubor. Takhle z hlavy, těžko říct..

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.

-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.