[حل شده] فیلتر کلمه در ماکرو

[hamidr3za]

درود بر دوستان و اساتید
میخوام یه کد بنویسم که فقط یک کلمه رو فیلتر کنه
مثلا وقتی خواستم reza رو فیلتر کنم فقط reza بیاره و سلولی ک ali reza داره رو نیاره...

[misammisam]

درود بر دوستان و اساتید
میخوام یه کد بنویسم که فقط یک کلمه رو فیلتر کنه
مثلا وقتی خواستم reza رو فیلتر کنم فقط reza بیاره و سلولی ک ali reza داره رو نیاره...

سلام
بفرض اطلاعات در ستون A و نام مورد نظر در سلول F1 وارد میشود.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Range("F1").Value = "") Then
ActiveSheet.Range("A:A").AutoFilter Field:=1
Else
ActiveSheet.Range("A:A").AutoFilter Field:=1, Criteria1:=Range("F1").Value
End If
End Sub