sütündaki değerlere göre veri süzme

[inowjoin]

merhabalar
hazırladığım bir dosyada bir hücreye girdiğim değerlere göre filitreleme yapmak istiyorum
tam olarak anlatamıyacağım için bir örnek gönderdim
yardımcı olabilirmisiniz

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E:E]) Is Nothing Then Exit Sub
[E1].Select
ActiveCell.AutoFilter FIELD:=5, Criteria1:=[E1]
If [E1] = "" Then
ActiveCell.AutoFilter
End If
End Sub

 

[excel03]

Sub Makro1()

Dim x As String
x = Range("e1").Value
ActiveSheet.Range("$A$2:$F$276").AutoFilter Field:=5, Criteria1:=x

End Sub