فیلتر با انتخاب کردن

**M_ExceL** · 2019/07/13, 15:42

نوشته اصلی توسط habib100

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

سلام،
داخل ماژول شیت 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

یا حق.