Makroda Tek Koşul hariç Filtreleme

[Tarikkk_]

Merhabalar Aşağıda kullandığım makroda Arpa hariç diğer tüm koşulları getirmesini istiyorum.
Array("<>ARPA"), Operator:=xlFilterValues gibi şeyler denedim ama olmadı Arpa dışında çok fazla koşul olduğundan ve sonradan eklenecek şeyler olduğundan sadece arpa haricindeki diğer herşeyi getirmesini istemiyorum. kodla yapma imkanımız varsa yardımlarınızı bekliyorum şimdiden teşekkürler.

Sub Makro2()
        Sheets("ALIŞ-SATIŞ").Unprotect
    Range("TB_AS").AutoFilter
    ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=11, Criteria1:= _
        Array("ARPA"), Operator:=xlFilterValues
End Sub

 

[ÖmerFaruk]

Tanımlı tabloda nasıl olur bilemedim. Ama tablo yerine aralığınızı belirtirseniz.
ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd

 

[Tarikkk_]

Tanımlı tabloda nasıl olur bilemedim. Ama tablo yerine aralığınızı belirtirseniz.
ActiveSheet.Range("$A$1:$B$5").AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd

sağolun hocam tam istediğim gibi oldu. çok teşekkürler

 

[Haluk]

Eğer sözkonusu aralık "TB_AS" olarak adlandırılmışsa;

Sub Test()
    Range("TB_AS").AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd
End Sub

Ya da, sözkonusu alan sayfada "Tablo" olarak yer alıyor ve bu tablonun adı eğer "Table1" ise;

Sub Test2()
     ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd
End Sub

.

 

[Tarikkk_]

Eğer sözkonusu aralık "TB_AS" olarak adlandırılmışsa;

Sub Test()
    Range("TB_AS").AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd
End Sub

Ya da, sözkonusu alan sayfada "Tablo" olarak yer alıyor ve bu tablonun adı eğer "Table1" ise;

Sub Test2()
     ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:="<>Mehmet", Operator:=xlAnd
End Sub

.

hocam bu seferde şöyle bir sorum olacak Mehmet yerine <>$I$3 hücresindeki değer hariç "<>$I$3" bu şekilde yazınca olmuyor. yardımınız için şimdiden teşekkür ederim

ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=11, Criteria1:="<>$I$3", Operator:=xlAnd

 

[Saban Sertkaya]

Merhabalar,
Aşağıdaki şekilde dener misiniz.

ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=11, Criteria1:="<>" & [I3], Operator:=xlAnd

 

[Tarikkk_]

Merhabalar,
Aşağıdaki şekilde dener misiniz.

ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=11, Criteria1:="<>" & [I3], Operator:=xlAnd

çok teşekkür ederim, tam istediğim gibi

 

[Saban Sertkaya]

Rica ederim, iyi geceler.