< návrat zpět

MS Excel


Téma: Makro smazání více řádků dle vyhledání rss

Zaslal/a 25.10.2013 12:45

Zdravím,

mám data např. ve sloupci F, kterým odpovídá datum ve formátu DD (sloupec A) MM (sloupec B). Potřeboval bych nastavit makro tak, aby hledalo ve sloupci F nulové hodnoty a když najde tuto buňku, tak aby byly smazány všechny řádky, které mají stejný datum (sloupec A a B) jako je odpovídající datum právě té nulové buňky F.
Pro upřesnění přikládám soubor, kterého se to týká.

Velice děkuji.

Příloha: rar15908_pokus.rar (76kB, staženo 13x)
Zaslat odpověď >

#015909
avatar
Na to musíš odzadu
príkaz
For radek = 1 To ActiveSheet.UsedRange.Rows.Count
nahraď príkazom
For radek = ActiveSheet.UsedRange.Rows.Count to 1 step -1citovat
#015910
avatar
To sice funguje, ale já potřebuji, aby když to najde hodnotu 0 pro sloupec F, tak aby to našlo a smazalo všechny řádky (celý ten den), podle data (sloupec A a B) které odpovídá právě té nulové hodnotě v F.
Takhle to smaže pouze ten 1 řádek kde je nulová hodnota.

Velice děkujicitovat
#015915
Opičák
Jak tedy?
Když se ve skupině třeba 20 stejných datumů objeví v sl. F 1x NULA, tak smazat celý blok stejných dní, i když u některých nula nebude ?citovat
#015916
avatar
Presne takcitovat
#015920
Opičák
upravené (předchozí byl s chybou - vymazal jsem)
Příloha: zip15920_mazani-stejnych-datumu-podle-podminky2.zip (15kB, staženo 18x)
citovat
#015921
avatar
Úplně perfektní, děkuji mnohokrátcitovat
#015923
Opičák
ještě jedna úprava
Příloha: zip15923_mazani-stejnych-datumu-podle-podminky2.zip (15kB, staženo 16x)
citovat
#015924
avatar
Mohu se zeptat v čem spočívá ta poslední úprava? Už jsem aplikoval tu předchozí a na chybu jsem nenarazil.
Děkujicitovat
#015926
Opičák
pouze doplnění jednoho řádku do stávajícího kodu
1:
If lin = rMax Then Exit Sub
If Cells(lin, "F") = 0 Thencitovat

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