XLS - Makro pro výmaz řádku dle hodnoty sloupce

[MK_Vs]

Dobrý den,

prosím o radu.

Potřebuji na Listu1 odstranit celé řádky, kde se v určitém sloupci bude vyskytovat předem zadné číslo na listu zadani.

Provádění tohoto odstraňování ručně mi přišlo nepraktické. (Tedy filtr a pak ruční výmaz)

Heslo po odemčení přístupu makra je mk, psáno malým písmem.

Prosím o návrh, jak by mohlo vypadat makro pro tento účel.

Děkuji.

[Reklama]

[cmuch]

Ten rozsah se bude psát jen do těch dvou řádků?

[MK_Vs]

Dobrý den,

hodnoty budou jen v těchto dvou řádcích. Buď jedno číslo, nebo 2 čísla/hodnoty pro rozsah.

Např. pro jednu hodnotu by se vyplnil jen spodní řádek, pro dvě i horní.

[cmuch]

Tak jsem něco zplodil.
Data maže pomocí filtru, který se nastaví podle podmínek na listě zadání.

[MK_Vs]

Dorbý den,

děkuji za zaslaný soubor.

Skoušel jsem chování ve sloupci S, kde funguje v pořádku. Do hodní řádku jsem zadal nejnižsí číslo, do spodního nejvyšší a vše v tomto rozsahu se mi vymazalo.

To samé mi ale ne nedaří například ve sloupci R.

Mohlo by makro pracovat jako rozsah při zadání nahoře nejmenší, dole nejvyší hodnota, vše co je v rámci těchto čísel včetně nich vymaž? Pokud by bylo více zadání, než pro jeden sloupec, tak při splnění alespoň jedné z podmínek rovněž vymaže?

Ps:
V makru jsem editoval přidáním větší nebo rovno a menší nebo rovno.
ColShPdmnka1 = "=>" & Sheets(ShZadani).Cells(2, ColShZadani).Value
ColShPdmnka2 = "<=" & Sheets(ShZadani).Cells(3, ColShZadani).Value

V některém sloupci pracuje v některém ne. Možná ale tato cesta není správná.

Děkuji za pomoc.

[cmuch]

Ps:
V makru jsem editoval přidáním větší nebo rovno a menší nebo rovno.
ColShPdmnka1 = "=>" & Sheets(ShZadani).Cells(2, ColShZadani).Value

Má být takto

Kód: Vybrat vše

ColShPdmnka1 = ">=" & Sheets(ShZadani).Cells(2, ColShZadani).Value

[MK_Vs]

Dobrý den,

vložil jsem kodu

ColShPdmnka1 = ">=" & Sheets(ShZadani).Cells(2, ColShZadani).Value
ColShPdmnka2 = "<=" & Sheets(ShZadani).Cells(3, ColShZadani).Value

Při zadání rozsahu např. do sloupce S 0,2 - 0,5 nedojde k žádnému vymazání.
Totéž např. ve sloupci U pro 19 - 21,5.

Předpokládám, že jsem někde udělal chybu.

[cmuch]

Chybu si neudělal, ono to nějak nechodí s desetinou čárkou
Ještě na to kouknu.

[cmuch]

Ten filtr s tou desetinou čárkou se mi nepodařilo rozchodit tak jsem to udělal jinak.

[MK_Vs]

Dobrý den,

děkuji za odpověď. Pozatím varinaty, které jsem zkoušel fungují. Otestuji více přiblížně za týden až dám dohromady data.
Prozatím děkuji za ochotu.

Uff...

Děkuji