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ž

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: 16069
Registrován: květen 08
Bydliště: České Budějovice
Pohlaví: Muž

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!
i5-4430/Asus H97M/Kingston HyperX 8GB DDR3/Asus R9 280X/Seasonic M12II-620/Samsung 850 Pro 128GB
Chcete si nechat sestavit nový počítač?

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

Re: Excel VBA

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

r1_kopie.xlsm


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.
Nemáte oprávnění prohlížet přiložené soubory.

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

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.
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • spoluvytváření excel
    od chytilji » 14 črc 2020 07:33 » v Kancelářské balíky
    0
    355
    od chytilji
    14 črc 2020 07:33
  • Excel a databáze
    od Bobo799 » 11 pro 2020 12:48 » v Kancelářské balíky
    0
    126
    od Bobo799
    11 pro 2020 12:48
  • makro excel
    od pajdaj » 08 dub 2020 09:09 » v Kancelářské balíky
    4
    725
    od pajdaj
    09 dub 2020 07:24
  • Excel - vzoreček
    od SmejkalM » 18 bře 2020 07:33 » v Vše ostatní (sw)
    6
    1123
    od elninoslov
    20 bře 2020 13:18
  • excel tlačítko
    od pajdaj » 09 dub 2020 14:05 » v Kancelářské balíky
    2
    511
    od elninoslov
    10 dub 2020 02:54

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

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti