فلتر متقدم

[أبو جاسم]

السلام عليكم

محتاج فلتر متقدم ،بحيث اني لما اكتب كلمة في العمود حسب الملف المرفق تجيب باقي البيانات في الاعمدة

وشكرا جزيلا

Data.xlsx

[احمد عبدالحليم]

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

تفضل اخى جرب الملف

الكود فى حدث الشيت Change

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim filterRange As Range
    Dim dataRange As Range
    Dim lastRow As Long
    Dim lastRow2 As Long
Application.ScreenUpdating = False
   If Target.Address = "$P$4" Then
 
         lastRow2 = Cells(Rows.Count, "P").End(xlUp).Row

        Range("P6:V" & lastRow2 + 1).ClearContents
        If Not IsEmpty(Target.Value) Then
        lastRow = Cells(Rows.Count, "E").End(xlUp).Row
        Set dataRange = Range("A6:G" & lastRow)

        dataRange.AutoFilter Field:=5, Criteria1:="*" & Target.Value & "*"



        dataRange.Copy Range("P6")

        dataRange.AutoFilter

     End If
    End If
Application.ScreenUpdating = True
End Sub

 

Data.xlsm

[أبو جاسم]

الف شكر لحضرتك ع المجهور الرائع

جزاك الله خير

[احمد عبدالحليم]

الشكر لله وجزاكم الله من جميع أبواب الخير

تحياتى