[حل شده] فیلتر با انتخاب کردن

[habib100]

با سلام خدمت همه دوستان
در فایل مقابل میخواهم با انتخاب کردن(کلیک ) هر کدام از نامهای ذکر شده آن نام فیلتر شود اگه دوستان کدی برای انجام این کار دارند بفرستند .
ممنون هستم.

[M_ExceL]

با سلام خدمت همه دوستان
در فایل مقابل میخواهم با انتخاب کردن(کلیک ) هر کدام از نامهای ذکر شده آن نام فیلتر شود اگه دوستان کدی برای انجام این کار دارند بفرستند .
ممنون هستم.

سلام،
داخل ماژول شیت 1 کد زیر رو وارد کنید :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets(1).AutoFilterMode = False
Range("a1").AutoFilter
    If Target.Address = Range("b" & Target.Row).Address Then
        If Target <> "" Then
            Range("a1").AutoFilter field:=2, Criteria1:=Target.Value
        End If
    End If
End Sub

یا حق.

[habib100]

سلام
خیلی ممنونم