MS Excel

Ahoj,

mám excel ve kterém mám makro a chci aby mě to makro v buňkách M8 až všechno níž projelo uvedené buňka, a pokud buňka obsahuje jakoukoli hodnotu, tak jí smaže a mají mě zůstat jenom buňka, které nejsou vyplněné.

Uvedné makro odkážu udělat naopak, tzn. pokud chci aby mě to smazalo celý řádek, pokud buňka obsahuje konkrétní slovo nebo hodnotu.

Dim a As Range
Dim SrchRngu

Set SrchRngu = ActiveSheet.Range("M8", ActiveSheet.Range("K65536").End(xlUp))
Do
Set a = SrchRngu.Find("RUS", LookIn:=xlValues)
If Not a Is Nothing Then a.EntireRow.Delete
Loop While Not a Is Nothing

Může mě s tím někdo prosím pomoct jak tam mám místo "RUS" nadefinovat to, aby mě nehledalo konkrétní text ale hledalo vyplněné buňka?

díky moc

Zaslat odpověď >

Strana: 1 2 další »

Palooo(3.12.2013 8:54)#016618

napr:

for x = 1 to 666
if cells(x,1) <> "" then rows(x).delete
nextcitovat

marjankaj(3.12.2013 11:37)#016623

Vhodnejšie je ísť odzadu

for x = 666 to 1 step -1
if cells(x,1) <> "" then rows(x).delete
nextcitovat

Palooo(3.12.2013 12:21)#016624

pardon pravda :)citovat

eLCHa(4.12.2013 8:15)#016628

Je to pořád dokola to samé - stačí trošku hledat

@Palooo, marjankaj
Taky byste už mohli zareagovat na to co tu sem tam píšu. :(
Proč cyklus.citovat

Palooo(4.12.2013 8:31)#016629

eLCHa: ja na SET nemam hlavu ... ja mam rad ked sa svet toci :)citovat

eLCHa(4.12.2013 8:46)#016630

Ani Set není potřebacitovat

Palooo(4.12.2013 8:50)#016631

bez setu a cyklu! Ako??? :)citovat

eLCHa(4.12.2013 8:52)#016632

Už jsem to tu psal
Zkusím napovědět
CTRL+Gcitovat

Palooo(4.12.2013 8:58)#016633

aha uz vidim:
Selection.SpecialCells(xlCellTypeBlanks).Select

ale aj tak by ma zaujimalo co by bolo rychlejsie

ten hore prikaz alebo ten cyklus ale prerobeny tak ze najprv selectne riadky a nakonci ich vsetky naraz vymaze

:)

aj ta funkcia SpecialCells(xlCellTypeBlanks) musi mat nejaky cyklus zaznacovaniacitovat

eLCHa(4.12.2013 9:01)#016634

Mno jste blízko, ale není to ono

ale hledalo vyplněné buňka?

Tady už ani tak nejde o rychlost, ale o přehlednost a délku kódu.
Co se týče rychlosti - integrovaná věc bude vždy rychlejší než VBAcitovat

Strana: 1 2 další »

Téma: VBA Smazání řádku pokud buňka není prázdná

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje