autofilter ile hücrede yazanı "içerir" süzebilmek?

[Meyhaneci]

arkadaşlar bir hücrede yazılan bir değeri auto filter ile "içerir" süzmek istiyorum. bir anlamda search engine gibi birsey olacak

Selection.AutoFilter Field:=9, Criteria1:=Cells(2, 2).Value, Operator:=xlAnd

bu komut eşittir süzebiliyor

Selection.AutoFilter Field:=9, Criteria1:="=*Cells(2, 2).Value*", Operator:=xlAnd

bu komutta cells(2,2).value yi text kabul edip süzüyor. bi türlü işin içinden çıkamadım

yardımlarınız için şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub SÜZ()
    Selection.AutoFilter Field:=9, Criteria1:="=*" & Cells(2, 2) & "*"
End Sub

 

[Meyhaneci]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub SÜZ()
    Selection.AutoFilter Field:=9, Criteria1:="=*" & Cells(2, 2) & "*"
End Sub

çok saolasın birader. tam olarak istediğim gibi çalışıyor.

 

[baydeniro]

İkili Otomatik Süzme

Sayın Cost Control harika bir kod. Sayenizde ben de faydalandım. Hem konuyu açan arkadaşa hem de size teşekkürler. Bu kodu geliştirici yönde bir sorum olacak. Hücreden referanslı ikili süzme için kodu geliştirmeye çalıştım ama olmadım. Konu şu : D1 ve E1 hücresindeki verileri alarak OR yani D1 veya E1'deki verileri içerenleri filtrele komutu için şu yaptım :

Sub IKILI()
Selection.AutoFilter Field:=2, Criteria1:="=*" & Cells(1, 4) & "*", Operator:=xlOr, _
Criteria1:="=*" & Cells(1, 5) & "*"
End Sub

Buradaki hata nerede sizce ?