Domnívám se, že je dostačující, aby změna proběhla při otevření souboru. Tak jsem to udělal.
Příloha: 
12425_kopie-sablona.zip (52kB, staženo 41x)
citovat12425_kopie-sablona.zip (52kB, staženo 41x)
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Skrytí sloupců dle hodnoty v buňce
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: Skrytí sloupců dle hodnoty v buňce 
Zaslal/a pepča 21.3.2013 21:48
Ahojky.
Potřeboval bych poradit s makrem, které skrývá nebo zobrazuje sloupce dle hodnoty v buňce.
Když je v buňce BE2 ( v listech 250,260,340 ) vygenerované číslo 28 skrýt sloupce AG - AI (pokud jsou zobrazeny), když 29 skrýt sloupce AH - AI, když 30 tak skrýt sloupec AI a když 31 tak nic. Pokud se hodnota buňky BE2 změní tak se automaticky spustí makro a skryje popřípadě zobrazí sloupce dle podmínek výše popsaných a také se musí spustit makro při každém otevření sešitu a provést skrytí a popřípadě zobrazení sloupců v listech 250,260,340 dle podmínek. Nevím zda je to realné.
Děkuji za každou odpověď.
Pepča
Příloha: 12423_sablona.rar (23kB, staženo 25x)
12423_sablona.rar (23kB, staženo 25x) Uzamčeno - nelze přidávat nové příspěvky.Ahojky.
Díky za radu. Je to co jsem potřeboval.
Mám však ještě jeden dotaz.
Je možné toto makro upravit,tak aby po proběhnutí makra, korzor zůstal na buňce B2 v listu 250? Je to jen kosmetická úprava , ale pomohla by mi.Jinak je to vše OK. Ještě jednou dík a nešlo by to makro zaslat s komentáři. S makry to moc neumím.
Díky
Pepčacitovat
Díky za radu. Je to co jsem potřeboval.
Mám však ještě jeden dotaz.
Je možné toto makro upravit,tak aby po proběhnutí makra, korzor zůstal na buňce B2 v listu 250? Je to jen kosmetická úprava , ale pomohla by mi.Jinak je to vše OK. Ještě jednou dík a nešlo by to makro zaslat s komentáři. S makry to moc neumím.
Díky
Pepčacitovat
@pepča: To makro som nevidel, ale malo by stačiť na posledné 2 riadky pred End Sub napísať:
Sheets("250").Activate
[B2].Select
Prípadne, aby to bolo odolnejšie na prepísanie názvu listu, zadeklarovať premennú ws a v tom prípade:
Dim ws As Worksheet 'pridať do deklarácií premenných
'na koniec kódu dopísať
Set ws = List1 'názov listu zmeň podľa toho, ako je jeho meno uvedené vo VBA editore v okne properties (Name)
ws.Activate
[b250].Select
End Subcitovat
Sheets("250").Activate
[B2].Select
Prípadne, aby to bolo odolnejšie na prepísanie názvu listu, zadeklarovať premennú ws a v tom prípade:
Dim ws As Worksheet 'pridať do deklarácií premenných
'na koniec kódu dopísať
Set ws = List1 'názov listu zmeň podľa toho, ako je jeho meno uvedené vo VBA editore v okne properties (Name)
ws.Activate
[b250].Select
End Subcitovat
v příloze okomentované a upravené makro. Nevím jak dopodrobna 
teď je tam víc komentářů, než vlastního kodu. 
Makro by šlo ještě zjednodušit, ale je to myslím zbytečné. Každé zadání má spousty řešení a tohle mě napadlo jako první. Je tu hodně profíků (nepatřím mezi ně), kteří by to zvládli asi elegantněji.
teď je tam víc komentářů, než vlastního kodu. Makro by šlo ještě zjednodušit, ale je to myslím zbytečné. Každé zadání má spousty řešení a tohle mě napadlo jako první. Je tu hodně profíků (nepatřím mezi ně), kteří by to zvládli asi elegantněji.
Příloha: 12478_kopie-sablona-s-komentarem.zip (54kB, staženo 45x)
citovat12478_kopie-sablona-s-komentarem.zip (54kB, staženo 45x)
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články