عمل فلترة لجدول من خلال ادخال المعلومات

[محمود1980]

الاخوة الاعضاء 
عندي جدول مكون من : 

الرقم - الاسم - العنوان - العمر 

طبعا لو تم عمل تصفية تلقائية ، سيتم اختيار الاسماء من خلال القائمة المنسدلة وتصفيتها ، ولكن في حال كانت البيانات كثيرة جدا وكنت ارغب مثلا باختيار 10 اسماء من عمود الاسماء الذي يحتوي مثلا 1000 اسم سيكون من الاسهل ان اكتبها في عمود اخر ومن ثم اطلب تصفية عمود الاسماء وفقا لهذا العمود 

 

السؤال هل استطيع كتابة العشر اسماء ومن ثم تصفيتها بالفلتر ( طبعا ستظهر فقط الاسماء الموجودة في عمود الاسم ) 

مرفق مثال عن المطلوب ,,,, مع الشكر لكم ولجهودكم 

Book111.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

جرب هدا هل يناسبك

Option Explicit
Sub FilterByNames()
    Dim WS As Worksheet, arr(), i&, n&, filterRange As Range
    Set WS = Sheets("Sheet1")
    
    If WS.AutoFilterMode Then WS.AutoFilterMode = False
    
    n = WS.Cells(WS.Rows.Count, "I").End(xlUp).Row
    If n < 2 Then Exit Sub
    
    ReDim arr(1 To n - 1)
    For i = 2 To n
        arr(i - 1) = WS.Cells(i, "I").Value
    Next i

    Set filterRange = WS.Range("B6").CurrentRegion
    With filterRange
        .AutoFilter Field:=2, Criteria1:=arr, Operator:=xlFilterValues
    End With
End Sub