Kodla süzme işlemi

[akineton_1]

Mrb. Kolay gelsin demekle başlamak istiyorum
öncelikli sorunum şu

texbox'dan süz işlemi yaptırıyorum yanlız texbox'ı yazdıktan sonra makro çalıştırmak için ayrı tuşa basıyorum. ekrana yazar yazma süzmüyor.

2 sorun ise listedeki verilerden örnegin

"istanbul"u çıkarmak için texbox 'a yanlızca "tanbul" yazarakta süzmesini istiyorum. ama olmuyor.
dosya ektedir.
emeğe geçen üstadlarıma şimdiden teşekkurler.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
On Error Resume Next
ActiveSheet.ShowAllData
Range("G2").Value = "*" & TextBox1.Text & "*"
    Range("A2:F65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("G1:G2"), Unique:=False
End Sub

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=16264&highlight=metin+kutusu

Buraya bakın.

.