< návrat zpět

MS Excel

Téma: Hromadné skrytí řádků dle podmínky rss

Zaslal/a marficek119 13.5.2012 12:07

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

stop Uzamčeno - nelze přidávat nové příspěvky.
Pavlus(13.5.2012 13:34)#008478
avatar
"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: zip8478_skryt_prazdne_radky.zip (16kB, staženo 19x)
citovat
marficek119(13.5.2012 13:52)#008479
avatar
:-) 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
avatar
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
avatar
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: zip8483_skryt_prazdne_radky2.zip (17kB, staženo 18x)
citovat
marficek119(13.5.2012 15:10)#008485
avatar
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
avatar
Máš tam: Cells(radek, sloupec)

Takže všude změň na: Cells(něco, 2)
P.citovat
marficek119(13.5.2012 17:18)#008491
avatar
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
avatar
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: zip8494_skryt_prazdne_radky3.zip (17kB, staženo 19x)
citovat
marficek119(13.5.2012 23:14)#008495
avatar
Děkuji moc. Moc jsi mě pomohl. Teď už to mám komplet:-)citovat

Uživatelské menu

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

Menu

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.

On-line nástroje