Excel - Makro pro skrytí prázdných sloupců a opětovné zobrazení neprázdných sloupců při změně filtru

Predpokladám, že tých stĺpcov, ktoré môžu mať (i naraz) prázdne obsahy pri určitých filtroch, je viac a môžu sa vyskytnúť v nesúvislej oblasti na viacerých miestach tabuľky (napr pri danom filtri budú prázdne stĺpce D, H, K ...) a chceme skryť všetky prázdne stĺpce...
Riešenie: udalosť zmenu filtrácie zachytiť nejakým ľubovoľným pomocným vzorcom, ktorý bude filtráciou meniť svoju hodnotu a makro spúšťať udalosťou Worksheet_Calculate (v module príslušného hárka!). Táto udalosť nastáva vždy pri prepočítavaní hárka (pokiaľ nie je automatické prepočítavanie vypnuté)
Čiže máme podchytenú reakciu na zmenu filtra.
Následne je potrebné vytvoriť kód, ktorý najlepšie funkciou SUBTOTAL (ktorý rešpektuje skutočnosť skrývania riadkov filtrovaním) s parametrom funkcie 103 (t.j. COUNTA), ktorý spočítava počet zobrazených údajov (či už číselných alebo reťazcových) v neskrytých bunkách stĺpca. Funkciu je možné zapracovať do kódu ako Worksheetfunction (t.j vzorce SUBTOTAL jednotlivých stĺpcov nemusia byť v samotnej tabuľke). Prejdením všetkých stĺpcov v cykle sa zistia stĺpce, v ktorých je hodnota SUBTOTAL (103,...) rovná 1 (t.j. obsahuje len záhlavie) a každý takýto stĺpec sa nechá skryť.
Ako odkryť tie stĺpce, ktoré zmenou filtra menia prázdny stav na neprázdny, keďže doposiaľ sú skryté? Tak, že každou zmenou filtra sa najprv všetky stĺpce odkryjú aby sa mohla previesť kontrola SUBTOTAL-ov a následne sa skryjú len tie stĺpce, pri ktorých nastala zmena filtrovaním na stav bez hodnoty.
Všetky skrývania a odkrývania prebehnú utajene (t.j. bez preblikávania obrazovky) tak, že sa na začiatku dočasne vypne aktualizácia obrazovky príkazom Application.Screenupdating=False

Údajně by to mělo fungovat pomocí tohoto kódu

Private Sub Worksheet_Calculate()
    Dim tbl As ListObject
    Dim col As ListColumn
    Set tbl = Me.ListObjects("example")
    For Each col In tbl.ListColumns
        col.Range.EntireColumn.Hidden = (Application.Subtotal(103, col.DataBodyRange) = 0)
    Next col
End Sub

Jenže, člověk na podpoře microsoft mně nasdílel soubor s tímto kódem, kde to funguje. Tam jsem napsal naprosto totožný soubor se stejným, kde to nefunguje. Očividně mám tam něco špatně, ale není mně jasné co.

Oba soubory jsou v příloze.

Prosím o radu,

Děkuji

Jak už psal Robert, chybí Ti tam dvě věci.
1. Objekt Tabulka, tedy ListObject se kterým kód pracuje
2. Někde v listu funkce NYNÍ(), v EN verzi NOW(), která způsobí přepočet listu při manipulaci s filtrem. Přepočet listu spustí kód.

Soubor:
tabulka převedena na Tabulku se stylem "žádný", automaticky generované jméno tabulky - Tabulka1 změněno v kódu > Me.ListObjects("Tabulka1")

Bohužel beru zpět, kód co uvedl robert13, nějak nemá rád skupinovou práci na jednom souboru.

Každopádně, asi budu za blbce, ale já stále nechápu, jak jste docílil, aby Vám ten kód fungoval. Tabulku jsem nějak neupravoval ve stylu.

Ďalšou možnosťou je namiesto NOW() vložiť inú funkciu, ktorá sa nebude prepočítavať KAŽDÝM úkonom. Napr do našej G1 tiež použiť už spomenutú funkciu SUBTOTAL(103, A:A), alebo konkrétnejšie s rozsahom riadkov, v ktorom sa v stĺpci A reálne môžu nachádzať údaje napr SUBTOTAL(103, A1:A1000). Čo získame? Ak práve nebudeme manipulovať s filtrom, kód sa nebude spúšťať, kým sa do stĺpca A nezapíše ďalší údaj. Žiadne iné úkony kód spúšťať NEBUDÚ. Čo je teda určite OBROVSKÉ odľahčenie od zbytočného priebehu kódu po každučkom ľubovoľnom úkone v hárku, napriek tomu, že kód zbytočne prebehne pri vložení nového údaja do stĺpca A.
Samozrejme, najlepšie je použiť zákaz aktualizácie obrazovky a zároveň vyššie popísaným spôsobom zmeniť funkciu NOW().

Tak bohužel musím opětovně otevřít toto téma. Navýšil jsem rozsah, aby to při přidávání nových řádků nemusel měnit. A tím vznikl problém, když zvolím u jakéhokoliv filtr "blank"

V takovém případě musím odkrýt všech slunce a kompletně zrušit filtr. Druhý sloupec zůstal zobrazený jenom proto, že se na posledním řádku něco nachází.

Lze to opravit, prosím?

Děkuji

No veď ale taká bola požiadavka: stĺpec, ktorý neobsahuje žiadne hodnoty (čo samozrejme nastane i pri voľbe "blank" pre daný stĺpec) má byť skrytý.
Z toho vyplýva, že voľba "blank" je neprípustná, pretože stĺpec s takto aktivovaným filtrom ostane trvale skrytý a spôsobí skrytie i iného stĺpca, ktorý sa takouto voľbou stane tiež prázdnym.
Jedná sa o vzájomne sa vylučujúce požiadavky.

Ano, jsou to rozdílné požadavky. Ale já jsem chtěl skrýt pouze skrýt sloupce, které při daném vyfiltrování nic neobsahují.

Nicméně, v tomhle případě by nebylo nutné měnit makro, ale pouze přidat další, které by zakázalo ve filtru možnost vybrat (Blanks). Tím by se celý problém vyřešil.

Jak to, prosím Vás, napíšu? (Jestli je to teda možné, ale pochybuji že ne, když jsou v programování tyhle věci zcela normální)

Děkuji

Pozriem sa na to, ako by sme to poriešili, ale nie je to možné hneď, takže pokiaľ Ti niekto iný neposkytne riešenie skôr, tak strpenie...

No tak aby sme to nepredlžovali:

Zaveď si v hárku tlačidlo (mimo oblasti, ktorá sa môže skrývať) a priraď mu nasledujúce makro, ktoré umiestniš do všeobecného modulu

Sub AnulaciaFiltra()
With ActiveSheet
If .AutoFilterMode = True And .FilterMode = True Then
.Range("A1").AutoFilter
.Range("A1").AutoFilter
End If
End With
End Sub

Keď si zvolíš nešťastný filter, týmto tlačidlom si ušetríš manuálnu nápravu. Filter sa vypne a opätovne zapne do východzieho stavu.
Z princípu nemôže fungovať to, aby zostal viditeľný stĺpec, ktorý nič neobsahuje, keď zadaním bolo to, že takýto stĺpec má byť skrytý.
Z požiadavky vyplýva i to, že ak vplyvom filtra "prázdne" v určitom jednom stĺpci sa stanú i iné stĺpce prázdnymi, logicky musia byť skryté i tie.
Skryté stĺpce sa stanú neupravovateľnými, lebo nie je možnosť ani vypnúť v nich filter.

Ešte snáď by šlo odkontrolovať, že v ktorom stĺpci bol zapnutý filter na "prázdne" a skryť len ten, v ktorom je aktívny filter. Stĺpce, ktoré sú síce prázdne, ale nie vlastnou vinou , teda tie, v ktorých filter nie je aktívny, by sa pri skrývaní obišli ... Ale v takom prípade by si musel skrývať každý takýto stĺpec jednotlivo, aktivovaním jeho vlastného filtra na "prázdne", čo neviem, či je prínosom... najmä keby tých stĺpcov malo byť viac ...

Takže tu to máš... skrýva sa len ten stĺpec, v ktorom je aktívny výber prázdnych buniek.
Ostatné stĺpce, u ktorých nastane prázdny stav vplyvom filtrácie v inom stĺpci, nebudú dotknuté.

Z dôvodu, že u skrytého stĺpca nie je možné zmeniť filter, aby sa mohol zmeniť výber na neprázdne hodnoty, musí ostať k dispozícii tlačidlo anulácie globálneho filtra, nastoľujúceho východzí stav.
Nie som si istý, či si chcel dosiahnuť toto, lebo predtým si sa vyjadroval tak, že to po úprave NOW na SUBTOTAL pracovalo bez problémov a vtedy sa skrývali všetky prázdne stĺpce...