< 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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46