Filtreleme

[mertdalagan]

Selamlar,
Ekteki dosyada sorunumu anlattım. yardımcı olmanız dileği ile iyi çalışmalar...

 

[scuba]

sen A değeri haricindekilerimi süzmek istiyorsun. Bunu makro ile yapmak istemiyorsan 4001 başlığındaki süz butonuna bas sonrada özeli seç oradanda eşitdeğil seç sağdanda A değerini seç . A haricindeki değerleri verecektir.
diğerlerinide uygularsın

makro ile ise

Sub suz()

Selection.AutoFilter Field:=5, Criteria1:="<>A", Operator:=xlAnd
Selection.AutoFilter Field:=6, Criteria1:="<>A", Operator:=xlAnd
Selection.AutoFilter Field:=7, Criteria1:="<>A", Operator:=xlAnd
Selection.AutoFilter Field:=8, Criteria1:="<>A", Operator:=xlAnd
Selection.AutoFilter Field:=9, Criteria1:="<>A", Operator:=xlAnd
Selection.AutoFilter Field:=10, Criteria1:="<>A", Operator:=xlAnd
End Sub

kriter değerinide bir hücreye yada bir nesneye bağlamak istiyorsan onuda örneğin text kutusuna
Selection.AutoFilter Field:=5, Criteria1:=<>TextBox1.value, Operator:=xlAnd

Umarım yardımcı olmuşumdur.