aplikování filtru Vyřešeno

[Sirka]

zdravím,

pomohl by mi někdo s nastavením filtrů?

mám cca 400 řádků a 8 sloupců které se kopírují z jiných listů na jeden.

a potřeboval bych nějak upravit

Kód: Vybrat vše

    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=5
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=6
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=7
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=8
   
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=6, Criteria1:= _
        "<>0", Operator:=xlOr
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=7, Criteria1:= _
        "<>0", Operator:=xlOr
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=8, Criteria1:= _
        "<>0", Operator:=xlOr
    ActiveSheet.ListObjects("Tabulka47").Range.AutoFilter Field:=9, Criteria1:= _
        "<>0", Operator:=xlOr


aby když ve sloupci 6 7 8 9 bude alespoň v jednom hodnota různa od nuly, aby po stisknutí tlačidla se zobrazili ty s hodnotou.


příklad


s6 s7 s8 s9
ř1 pes 0 0 0
ř2 0 500 0 židle
ř3 0 0 0 0

> zobrazili by se mi řádky ř1 a ř2

ps. řádky mají ve výchozím stavu všude 0, v průběhu používání se 0 mění na něco jiného > aby se filtr aplikoval pokaždé od "zobrazení všeho"


díky moc s) snad mi někdo pomůžete.

[Reklama]

[cmuch]

Problém je v tom, že pokud začneš nastavovat filtr pro jednotlivé sloupce tak u těch dalších to bude vždy jen z těch hodnot předchozího filtru.
Tady by bylo spíš lepší (ASI) mýt pomocný sloupec kde kde by byl nějaký znak, že na tom řádku nejsou jen 0 a ten pak nastavit filtrem,
potom by to chodilo tak jak potřebuješ.

[Sirka]

no napadlo mě to, ale nevím jak napsat makro :X
pomohl by jsi mi? :)

=KDYŽ([@Dárek1]<>0; 1;KDYŽ([@Dárek2]<>0;1;KDYŽ([@Dárek3]<>0;1;KDYŽ([@Dárek4]<>0;1;0))))

a na filtr si udělám makro :))


díkyy

[cmuch]

A co do sloupce 9 dát fci když nebo jak se na tento list dostávají ty sloupce z jiných listů?
Pak to automatické nastavování filtru nebude problém.
Jen jestli se bude zpouštět aktivací toho listu nebo čím.

[Sirka]

a ještě otázečka jak mohu nastavit makro aby se aktivovalo zmačknutím toho listu?

[cmuch]

Ten vzorec by mohl vypadat takto

Kód: Vybrat vše

=KDYŽ(A2<>0;"*";KDYŽ(B2<>0;"*";KDYŽ(C2<>0;"*";KDYŽ(D2<>0;"*";KDYŽ(E2<>0;"*";KDYŽ(F2<>0;"*";KDYŽ(G2<>0;"*";"same nuly")))))))

Jinak to makro by bylo na tom listě kde se bude nastavovat ten filtr
Pro aktivaci listu:

Kód: Vybrat vše

Private Sub Worksheet_Activate()

End Sub

Pro změnu na listě:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

[Sirka]

děkuju :)