Dinamik Filtreleme

[berque]

Arkadaşlar Selam

Private Sub CommandButton1_Click()
TextBox1.Text = ""
TextBox2.Text = ""
Set ilk = Range("a7")
Set son = Range("a7").End(xlToRight).End(xlDown)
Range(ilk, son).AutoFilter


End Sub

Private Sub TextBox1_Change()
Set ilk = Range("a7")
Set son = Range("a7").End(xlToRight).End(xlDown)

Range(ilk, son).AutoFilter 1, TextBox1.Text


End Sub

Private Sub TextBox2_Change()
Set ilk = Range("a7")
Set son = Range("a7").End(xlToRight).End(xlDown)

Range(ilk, son).AutoFilter 2, TextBox2.Text


End Sub

kodunu kullanarak dinamik filtreleme yapıyorum fakat bir eksiğim var

Textbox'a A sütünundaki Verilerin birebir aynısını girmezsem filtreleme yapmıyor.
Örnek

Ahmet i bulmam için Ahmet yazmam lazım, benim istediğim ise Ah yazsam bile "AH" ile başlayanları getirmesi

Mümkün müdür? Varsa önerileriniz..

DOSYA EKTEDİR.

Şimdiden çok teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Private Sub TextBox1_Change()

    Dim i As Long
    Application.ScreenUpdating = False
    Selection.AutoFilter
    i = Cells(Rows.Count, "A").End(3).Row
        ActiveSheet.Range("$A$7:$D$" & i).AutoFilter Field:=1, Criteria1:="=" & TextBox1.Value & "*"
    Application.ScreenUpdating = True
 
End Sub

 

[berque]

Application.ScreenUpdating = False altında selection.autofilter ı kaldırınca kod çalıştı.

Çok teşekkürler ellerine sağlık