Hücreye yazdığım veriye göre filtre

[seyfiseval]

Yazdığım isim otomatik filitrelensin
örnekteki kitapta açıklamasını yazdım

 

[vardar07]

Lütfen konu başlığınızı kurallara göre değiştirin. Siz ve sizinki gibi konuya araştırırken ulaşılması için gereklidir. Aksi takdirde kişiye özel olduğu için konu silinebilir. Konu başlığını değiştirin cevap öyle yada böyle gelir. Kolay gelsin.
d2 Ye yazdığınız içeriliyorsa listeler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("D2")) Is Nothing Then Exit Sub
ActiveSheet.Range("$C$3:$J$2001").AutoFilter Field:=2, Criteria1:=Array("*" & [D2] & "*"), Operator:=xlFilterValues
End Sub