Excel VBA

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Bobo799
nováček
Příspěvky: 3
Registrován: prosinec 20
Pohlaví: Muž
Stav:
Offline

Excel VBA

Příspěvekod Bobo799 » 09 pro 2020 11:22

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

Reklama
d1amond
člen HW spec týmu
Elite Level 12
Elite Level 12
Příspěvky: 16106
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA

Příspěvekod d1amond » 09 pro 2020 11:53

Vítej na PC-HELP

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č?

Bobo799
nováček
Příspěvky: 3
Registrován: prosinec 20
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA

Příspěvekod Bobo799 » 09 pro 2020 12:32

r1_kopie.xlsm
(67.67 KiB) Staženo 53 x


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.

Uživatelský avatar
elninoslov
Level 2.5
Level 2.5
Příspěvky: 366
Registrován: červen 13
Pohlaví: Muž
Stav:
Offline

Re: Excel VBA

Příspěvekod elninoslov » 09 led 2021 11:43

-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.
Přílohy
r1_kopie.xlsm
(59.31 KiB) Staženo 32 x


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel a OneDrive
    od sginfo » 11 zář 2023 15:28 » v Kancelářské balíky
    16
    5994
    od mirekol Zobrazit poslední příspěvek
    20 říj 2023 08:31
  • Excel - vlastní formát Příloha(y)
    od Story-Long » 11 srp 2023 14:50 » v Kancelářské balíky
    3
    1842
    od Story-Long Zobrazit poslední příspěvek
    14 srp 2023 10:11
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    266
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Excel - problém se vzorci
    od honzzicek » 28 čer 2023 21:45 » v Kancelářské balíky
    2
    1644
    od honzzicek Zobrazit poslední příspěvek
    01 črc 2023 08:57
  • Excel - funkce když
    od Martyn20 » 13 črc 2023 11:56 » v Kancelářské balíky
    5
    2325
    od mmmartin Zobrazit poslední příspěvek
    13 črc 2023 18:44

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů