MS Excel

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

Zaslal/a newmi 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: rar

15908_pokus.rar (76kB, staženo 13x)

Zaslat odpověď >

marjankaj(25.10.2013 12:57)#015909

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

newmi(25.10.2013 13:15)#015910

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

Opičák(25.10.2013 18:54)#015915

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

newmi(25.10.2013 18:58)#015916

Presne takcitovat

Opičák(26.10.2013 1:48)#015920

upravené (předchozí byl s chybou - vymazal jsem)

Příloha: zip

15920_mazani-stejnych-datumu-podle-podminky2.zip (15kB, staženo 18x)

citovat

newmi(26.10.2013 3:03)#015921

Úplně perfektní, děkuji mnohokrátcitovat

Opičák(27.10.2013 11:21)#015923

ještě jedna úprava

Příloha: zip

15923_mazani-stejnych-datumu-podle-podminky2.zip (15kB, staženo 16x)

citovat

newmi(27.10.2013 11:36)#015924

Mohu se zeptat v čem spočívá ta poslední úprava? Už jsem aplikoval tu předchozí a na chybu jsem nenarazil.
Děkujicitovat

Opičák(28.10.2013 8:25)#015926

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)

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.