< návrat zpět

MS Excel


Téma: Nastavení kritérií filtrů vzorcem rss

Zaslal/a 20.9.2019 15:02

Dobrý den, pokouším se nastavit v tabulce filtr sloupců, nahrál jsem si makro a nyní v kódu bych chtěl nastavit kritéria tak, aby mohlo být různé, nejlépe vzorcem v závislosti na hodnotě konkrétní buňky.

Konkrétně tento řádek -
ActiveSheet.ListObjects("Tabulka2").Range.AutoFilter Field:=1, Criteria1:="=1", Operator:=xlOr, Criteria2:="=102"
kde bych namísto hodnoty 102 nastavil hodnotu z nějaké bunky.
nemám rád tuhle otázku, ale "je to vůbec možné?"

Díky moc!

Zaslat odpověď >

#044322
avatar
A co to zkusit?

Kromě toho, že na to nepotřebujete vlastně ani makro, ani Tabulku, ale Rozšířený filtr?citovat
#044323
avatar
Diky Darbujane za komentar, na rozsireny filtr jsem pri hledani narazil, priznam se, ze jsem se na to dival vic az ted, po Vasem komentu, ale prestoze je to zajimavy, neni to to, co hledam. nepotrebuju kdovikolik kriterii, jen jedno (v tomto pripade).
A ohledne makro versus predefinovane funkce, nekdy se radsi priklonim k makru (viz treba podminene formatovani... radeji resim makrem).
navic filtrovani samotne opet resim makrem, kdy mam nastavene ruzne kombinace a tlacitkem je zobrazuji. mozna to jde i jinak, mozna i lepe, takto resim ja..

pokud by slo jen jednoduse vzorcem napr. Range().value (coz mi nefunguje) vepsanym v uvedenym kodu vyse, bylo by pro me nejlepsi :)citovat
#044324
avatar
Jen jedno kritérium? Jo, to asi špatně vidím. A ještě když šestkrát zdůrazníte, jak potřebujete kombinace.

A co se v přiřazení u parametrů Criteria odkázat na Range?citovat
#044326
avatar
Darbujane,
potrebuji poradit jen s jednim parametrem Criteria (to, ktere je promenne), ostatni (ktere jsou podle fixnich hodnot, jako v uvedenem pripade "=1") dam snad do kupy sam.

Pokud jde se odkazat na Range, ja prosím? googlil jsem tuhle variantu, ale nic nenasel. muj pokus o kod s Range taky nevysel. Za tuhle konkretni radu bych byl rad.
neco jako
Criteria2:="Range(a1).Value"...citovat
#044327
elninoslov
Tak vyskúšajte
Criteria2:="=" & Range("A1").Valuecitovat
#044330
avatar
ANO TO JE ONO! uz to funguje
Moc Děkuju :)citovat

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

Vynásobit hodnoty kurzem - Power Query

Alfan • 24.4. 16:32

Relativní cesta - zdroje Power Query

Alfan • 24.4. 15:44

Relativní cesta - zdroje Power Query

elninoslov • 24.4. 14:26

Jak odstraním duplicitní údaje

Mirek8 • 24.4. 12:13

Jak odstraním duplicitní údaje

elninoslov • 24.4. 8:57

Vyhledej

PavDD • 24.4. 8:56

Vyhledej

elninoslov • 24.4. 8:47