MS Excel

Zase bych potřeboval pomoci s kódem.
Lze sestavit kód, který bude umět následující:
Tabulka o 100 řádcích. Potřeboval bych, aby makro zjistilo poslední obsazenou buňku ve sloupci A (od 1 do 100 řádku)a ostatní řádky za touto obsazenou buňkou hromadně skrylo až do řádku 100. Zkoušel jsem to postupným skrýváním buňěk, ale trvá to strašně dlouho (ve zkutečnosti mám řádků okolo 1 tisíce). Díky za případnou pomoc

Uzamčeno - nelze přidávat nové příspěvky.

Pavlus(13.5.2012 13:34)#008478

"Vy nás ale zásobujete pane Karfík." .-)

Šlo by to třeba nějak takto, konstantu konec si uprav dle skutečného počtu řádků v tabulce.
P.

Viz příloha:

Příloha: zip

8478_skryt_prazdne_radky.zip (16kB, staženo 19x)

citovat

marficek119(13.5.2012 13:52)#008479

:-) To já jen aby diskuze nestála:-).
Mám rozpracovaný jeden sešit pro export reportů pro vedení firmy a snažím si to co nejvíce usnadnit.
Jinak děkuji, to je přesně to co jsem potřeboval:-)citovat

marficek119(13.5.2012 13:55)#008480

Ještě dotaz, jak nastavit aby začátek kontroly obsazenosti buňek začínal od 10 řádku?citovat

Pavlus(13.5.2012 14:20)#008483

Např. přidáním ještě jednoho IFu. Nastavil jsem ti to tam na konstantu, takže stačí upravit minimum.
P.

Viz příloha:

Příloha: zip

8483_skryt_prazdne_radky2.zip (17kB, staženo 18x)

citovat

marficek119(13.5.2012 15:10)#008485

Děkuji, ještě prosím o radu jak nastavit sloupec z kterého se bude počítat obsazenost buňek. Už jsem z toho dneska nějak jelen, zkoušel jsem to nastavit na 2 sloupec ale marně:-)citovat

Pavlus(13.5.2012 15:33)#008487

Máš tam: Cells(radek, sloupec)

Takže všude změň na: Cells(něco, 2)
P.citovat

marficek119(13.5.2012 17:18)#008491

Ještě jedna technická- Pokud mám v buňce napsaný vzorec (a v buňce není zobrazeno žádné číslo ani text) tak makro bere buňku jako obsazenou. Co s tím?citovat

Pavlus(13.5.2012 21:37)#008494

Nevím jestli je na to něco "pěkného" jako .End(xlUp).Row. Každopádně to jde přes cyklus...
Snad poslední úprava .-).
P.

Viz příloha:

Příloha: zip