الفلترة بالاسم

[2saad]

اخواني اعضاء المنتدي الكرام بعد سلام الله عليكمm_m.xlsm

هذا كود عند كتابة رقم الجلوس في الخلية d8يتم الفلترة علي الصف الذي به رقم الجلوس  

هل ينفع عند كتابة الاسم في الخلية e8 يتم الفلترة علي الصف الذي به الاسم

يعني عايز يتم الفلترة برقم الجلوس أو الاسم  

[عبدالفتاح في بي اكسيل]

جرب هذ  التعديل 

لا فائدة  من السطر  الاول  في  بداية الكود لقد  قمت  بازالته 

عند  وضع  احد  الخلايا سيتم الفلترة وعند مسح  الخلية سيتم  عرض  البيانات الكلية 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LastRow As Long
    Dim FilterRange As Range
    LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row
    Set FilterRange = Range("C9:U" & LastRow)
    If Me.FilterMode Then Me.ShowAllData
    If Not IsEmpty(Range("D8")) Then
        FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value
    ElseIf Not IsEmpty(Range("E8")) Then
        FilterRange.AutoFilter Field:=4, Criteria1:=Range("E8").Value
        
    End If

End Sub

 

تم تعديل سبتمبر 10, 2023 بواسطه عبدالفتاح في بي اكسيل

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

جرب الكود التالى 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$8" Or Target.Address = "$F$8" Then
        Dim LastRow As Long
        Dim FilterRange As Range
        Dim FilterColumn As Long

        If Target.Address = "$D$8" Then
            FilterColumn = 2
        ElseIf Target.Address = "$F$8" Then
            FilterColumn = 4
        End If

        LastRow = Me.Cells(Rows.Count, "D").End(xlUp).Row
        Set FilterRange = Range("C9:U" & LastRow)

        If Not IsEmpty(Target.Value) Then
            FilterRange.AutoFilter Field:=FilterColumn, Criteria1:=Target.Value
        Else
            FilterRange.AutoFilter Field:=FilterColumn
        End If
    End If
End Sub

 

[2saad]

شكرا حزيلا لكما وبارك الله فيكما وجعله في ميزان حسناتكم

لي سؤال أنا اسف علي تعبكما معي

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

[أ / محمد صالح]

يمكنك الاستفادة من هذا الموضوع بالنسبة للبحث بمجرد كتابة حرف

بالتوفيق

[2saad]

شكرا جزيلا استاذنا الكبير