Makro na skrytí prázdných sloupců v Excelu 2007 Vyřešeno

[kockaj]

Mám tabulku, která má několik desítek sloupců. Do tabulky píšu mj. odpracované hodiny k zakázkám v různých profesích. Po skončení měsíce obsahuje tabulka data třeba je v polovině sloupců (záleží na tom, co se na zakázce dělalo). Aby se mi tabulka vytiskla jen se sloupci, ve kterých jsou data tak si ručně s klávesou CTRL oklikám na řádku 47 přiloženého souboru buňky a dám skrýt sloupce.
Jde o velmi neohrabanou činnost, rád bych, aby se na tlačítko makra skryly sloupce ve kterých nejsou žádná čísla.
Pomůžete? Díky. Jarda

Hlaseni.xls

(66 KiB) Staženo 97 x

[Reklama]

[navstevnik]

Mozne reseni viz priloha

[kockaj]

Tak takhle jsem si to představoval, to je to, co jsem chtěl. Jen bych to potřeboval aplikovat do souboru který používám. To co jsem dal jako vzor do přílohy je ořezaná tabulka v jednom listu a takových tabulek mám v souboru několik.
Můžete mi poradit jak to udělat abych to dokázal dát do mého souboru? Žádné makro (co bych si mohl zkopírovat do jiného souboru) jsem v přiloženém souboru nenašel.
Díky.

[navstevnik]

Ze se jedna o zredukovany soubor je celkem jasne.
Procedura volana tlacitkem na listu je umistena v modulu listu. Takze je nutno zkopirovat vcetne patricneho umisteni.
Pri blizsim obhledani ukazky lze rici ze:
- vzorec ve sloupci BX10:BX46 je vhodne nahradit vzorcem: =SOUČIN.SKALÁRNÍ(D10:BW10;$D$8:$BW$8) - ukazka v BY10:BY46
- ve sloupci AB10:AB46 je vodne vlozit vzorec: =SUMA(D10:AA10) - ukazka v BZ10:BZ46
- vlozeny automaticky filtr (k cemu slouzi nevim) pri aktivaci neni nijak vyrazne odlisen od neaktivnich (modry trojuhelnicek misto cerneho) - pridana v modulu listu udalostni procedura procedura vizualizujici aktivni filtr, nutno mit v listu volatilni funkci (automaticky prepocitavanou), je v bunce A3, format vlastni: ;;; - tri stredniky; nutno aktivovat automaticky prepocet listu.
- reset listu je resen jak? jsou vlozeny nuly.
Mozna by bylo vhodne prilozit demo souboru, urcite by se naslo vice moznosti sesit zefektivnit.
Pro ilustraci moznosti je skryvaci procedura doplnena o skryti prazdnych radku. Mozno doplnit o proceduru resetu volanou tlacitkem.

[kockaj]

Skvělá práce. Koukám, že jste na Excel supr mozek. Nakonec jsem tedy v modulu listu zkopíroval do svého sešitu to co jste tam napsal v tom prvním souboru. Nedokázal jsem si tam ale vložit to tlačítko, chvíli to trvalo než jsem přišel na to, že když přejdu do režimu návrhu tak si tlačítko mohu označit a zkopírovat. Stejně mi to nefungovalo tak chvíli přemýšlel a nakonec mě napadlo přepsat v textu modulu cmdHidden na CommandButton1 (všiml jsem si, že v řádku kde je normálně adresa buňky se mi rozbrazuje CommandButton1). Teď už to chodí, to je supr.
Jo a s tím vzorcem =SOUČIN.SKALÁRNÍ to je supr zjednodušení. Díky za pomoc. Asi by ten můj soubor potřeboval pořádnou očistu, mám v něm přez 70 000 vzorců, soubor ma 6,5MB.
Ještě jednou díky.