كود فلترة برقم الجلوس

[2saad]

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

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

ولكم جزيل الشكر     m_m.xlsx

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

وعليكم السلام 

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

FilterData.xlsm

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

كتعديل في كود الفلتر وعدم الحاجة لكود إلغاء الفلتر يمكن استعمال هذا الكود في حدث تغيير محتوى الخلايا في الشيت

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

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

    If Not IsEmpty(Range("D8")) Then
        FilterRange.AutoFilter Field:=2, Criteria1:=Range("D8").Value
    Else
        FilterRange.AutoFilter Field:=2
    End If
End If
End Sub

بالتوفيق

[2saad]

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