Dinamik filtreleme

[yNsr43]

Merhabalar, sayfamdaki "tablo4[isim]" ü 'A2' hücresindeki değere göre dinamik bir şekilde filtrelemek istiyorum bunu nasıl yapabiliriz.
Teşekkürler.

 

[yNsr43]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A7:A42]) Is Nothing Then Exit Sub
Range("B49") = Target.Value
Sheets("hesap").Range("a1") = Target.Value

    Application.CutCopyMode = False
    Range("Tablo4[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange _
        :=Range("kriter"), Unique:=False
        
End Sub

Tekrar merhaba arkadaşlar, şöyle bir şey yaptim lakin tam istediğim gibi olmadi kod sadece a7-a47 tıklayınca çalişiyor bunu sürekli çalışır hale nasıl getirebilirim.

aslında istediğim tam olarak şu "B2" hücresindeki değere göre filtreleme yapması.
Teşekkürler.

 

[yanginci34]

If Intersect(Target, [A7:A42]) Is Nothing Then Exit Sub satırını silin

 

[NADİR YILDIZ]

textbox kullanarak yapmak isterseniz.


Private Sub TextBox1_Change()
Dim i As Long
Application.ScreenUpdating = False
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

 

[yNsr43]

If Intersect(Target, [A7:A42]) Is Nothing Then Exit Sub satırını silin

illa bir yere tıklamam gerekiyor o zaman da ben tıklamadan hücre değerini otomatik takip etsin değer değiştiğinde filtreleme de değişsin istiyorum.