< návrat zpět

MS Excel


Téma: Skrytí sloupců dle hodnoty v buňce rss

Zaslal/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: rar12423_sablona.rar (23kB, staženo 25x)
stop Uzamčeno - nelze přidávat nové příspěvky.

#012425
Opičák
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: zip12425_kopie-sablona.zip (52kB, staženo 40x)
citovat
#012476
avatar
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
icon #012477
avatar
@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 Sub
citovat
#012478
Opičák
v příloze okomentované a upravené makro. Nevím jak dopodrobna 4 teď je tam víc komentářů, než vlastního kodu. 3
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: zip12478_kopie-sablona-s-komentarem.zip (54kB, staženo 44x)
citovat
#012487
avatar
Díky za ochotu.

Je to přesně to co jsem potřeboval. 5

Pepčacitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09