Sütunda Birçok metne göre Filtre Yapabilme

[DEKORrehberi.com]

Sütunda Birçok metne göre Filtre Yapabilme

"B" Sütünunda 3000 Ad. adres var bu sütunda "Bahçelievler", "öveçler", "elmadağ"
... vb .. kelimelerini içeren Filtre yapmak istiyorum

 

[hımmmmmmmm]

Private Sub TextBox1_Change()
If TextBox1 = "" Then ActiveSheet.Range("A:H").AutoFilter Field:=2: Exit Sub
    ActiveSheet.Range("A:H").AutoFilter Field:=2, Criteria1:="=*" + TextBox1 + "*" ',  Operator:=xlAnd"
End Sub

öncelikle sütun başlıklarını tarayıp filitre uygula...
macro istiyosan;
active x textbox nesnesi sayfaya getir ve yukardaki kotları textbox için kopyla..
Range("A:H") kotdaki bu kısmı kendi sayfana göre yeniden düzenle
textboxa bilgi girersen b sütununu filitre yapacaktır..

excelin kendi filitresini kullanmak istiyosan başlık filitre uygulamasında metin filitrelerini kullan

 

[DEKORrehberi.com]

Bilgisizliğim için özürdilerim

Ben dediklerinizi beceremedim, örnek dosya göndersem yardımcı olur musunuz? ,

makrosuz halinide yapamadım, yapmaya çalıştığım yerin resmini gönderiyorum

Teşekkürler...

 

[DEKORrehberi.com]

Excel dosyasını gönderdim

 

[DEKORrehberi.com]

Excel dosyası

Excel dosyası

 

[hımmmmmmmm]

çalışma ekde
sayfadaki textboxa girilen bilgiye göre adresler süzülür..
textbox boş kalırsa tüm adresler görünür..