MS Excel

Téma: Odstranění řádků

Zaslal/a martinek.v 28.1.2015 15:50

Zdravím vás všechny specialisté excelovských procedur. Potřeboval bych poradit s makrem. Mám v listu různě zaplněná data v různých buňkách. Potřeboval bych odstranit ty řádky, kde není ani jedna zaplněná buňka a nechat ty řádky, kde je aspoň jedna buňka zaplněná.

Děkuji moc, MartaV

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

kp57(28.1.2015 21:38)#023321

Dim rdR As Long
For rdR = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(Rows(rdR)) = 0 Then Rows(rdR).Delete
Next rdR
citovat

martinek.v(28.1.2015 22:51)#023323

Děkuji mnohokrát, funguje to. Lámal jsem si nad tím hlavu, ale vždy zvítězí jednodušší verze :)
MartaVcitovat

Uživatelské menu

Nejste přihlášen(a)

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.