özel filtre hakkında yardım lütfen...

[noknoa]

Herkese Merhaba,

Yolladığım örnek dosyada K1 hücresine yazılan değere göre ilgili makro filtreleme yapmaktadır.
Ancak filtreleme işlemi sadece K1 hücresinde yazan veriye eşit değerler için gerçekleşmektedir.
Ricam filtrelemenin hem K1 hücresinde yazan değere eşit, hemde bu değeri içeren değerler için gerçekleşmesidir.
Örnek olarak filtre değeri 11 yazıldığında, 5, 10, 13 ve 15nci satırlar gelmektedir.
Ancak isteğim bunlara ek olarak 8,18 ve 19ncu satırların da gelmesidir.

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

Herkese kolaylıklar.

 

[Levent Menteşoğlu]

İlgili satırı aşağıdaki ile değiştirerek deneyin.

ActiveSheet.Range("$A$4:$H$19").AutoFilter Field:=3, Criteria1:="*" & [k1] & "*", Operator:=xlOr, Criteria2:=[k1]

 

[noknoa]

teşekkür

çok teşekkür ederim.
Çalışmalarınızda başarılar.

saygılarımla.