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: « předchozí 1 2

Palooo(4.12.2013 9:11)#016636

a vidite teraz keby to bolo v cykle zmenim podmienku z = na <> a v tom je ta jednoduchost

pri tomto zapise musim hladat spravne slovne spojenie :)

takze asi toto:
Selection.SpecialCells(xlCellTypeConstants, 23).Selectcitovat

eLCHa(4.12.2013 9:18)#016637

Mno nebudu dále trápit

pokud jsou to jen konstanty (všechny typy):SrchRngu.SpecialCells(xlCellTypeConstants).EntireRow.Delete

pokud jsou to jen vzorce (všechny typy):SrchRngu.SpecialCells(xlCellTypeFormulas).EntireRow.Delete

pokud chci všechny neprázdné buňky, tak to napíšu takto:Union(SrchRngu.SpecialCells(xlCellTypeConstants), SrchRngu.SpecialCells(xlCellTypeFormulas)).EntireRow.Delete

Jinak např. jen číselné a textové budou takto:
.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues)citovat

Palooo(4.12.2013 9:33)#016639

ok tak skusme nieco univerzalnejsie co sa aj v praxy dost casto deje:

napr. potrebujem naplnit array pole a to len tie riadky ktore splnaju tieto podmienky: (bez pouzitia cyklu, SQL syntaxu)

stpci A:
- hodnoty od 400 do 500
- hodnoty NULL
stlpci B:
- nesmie mat OLD
Stlpci D:
- hodnoty aktualneho mesiaca

ako by som toto naplnil bez cyklu?

ono je to uz profesionalna deformacia ze to takto riesim. Samozrejme da sa to este urobit aj SQL syntaxov, ktora je brutalne dobra a rychlacitovat

eLCHa(4.12.2013 9:39)#016641

:))

mno to už jsme trochu mimo dotaz, ale pokud to potřebujete bez cyklu, tak se tady nabízí automatický filtr + pouze viditelné buňky
ale to jen v případě, že je chcete naplnit stejnou hodnotou nebo vzorcem
pokud mají mít různou hodnotu, taxe bez cyklu asi neobejdetecitovat

Palooo(4.12.2013 9:44)#016643

myslim ze LeslieBrown-ovi to ani nebude vadit :) kedze ani na prvi prispevok nereagoval

ja som chcel len pre zacinajucich programatorov povedat to ze s cyklom FOR a podmienkou IF dokazu naprogramovat uplne vsetkocitovat

eLCHa(4.12.2013 9:49)#016645

Ano - to je pravda, ale ty bychom asi nepotřebovali objektově orientovaný jazyk ;)
Když už ho máme a ty objekty s vlastnostmi a metodami tady jsou, tak je používejme ;)

A to by se měli začínající naučit, než získají špatné návyky ;))
Prostě stačí přemýšlet - když bych to dělal bez kódu, tak bych to udělal tak a tak. Mno a teď to jenom napsat.
;)citovat

Palooo(4.12.2013 10:07)#016650

tak dalsia rada pre zacinajucich programatoroch

naprikladd stane sa im toto:
for ..
for ..
for ..
for ..
for ..
next
next
next
next
next

ja tomu lajicky hovorim 5 vnorenych cyklov ... pre zapis je to hrozne neprehladne a ked uz sa dostane programator do takehoto stadia mal by zacat pouzivat objectove programovanie :)

a to len z dovodu toho aby kod vypadal prehladnejsie a rychlo sa s nim pracovalo

tak by to vypadalo asi takto:
sub test1()
for
test2
next
end sub

sub test2()
for
test3
next
end sub

sub test3()
for
test4
next
end sub

sub test4()
for
test5
next
end sub

sub test5()
end sub

.... kde je kod hned prehladnejsicitovat

marjankaj(4.12.2013 10:43)#016652

eLCHa napsal/a:

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.

Ja som iba opravil Palooov cyklus.
Zadanie som neriešil.citovat

Strana: « předchozí 1 2

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