كود تصفية الطلاب حسب التخصص

[khairi ali]

أخواني الكرام في المنتدى المتألق كيف حالكم جميعا 

في الشيت المرفق المطلوب التعديل على كود لتصفية اللاب حسب التخصص

ولكم مني فائق الاحترام

تصفية الطلاب.xlsm

[lionheart]

Sub FilterData()
    Const txt As String = "Your Filter Criteria Here"
    Dim m As Long
    Application.ScreenUpdating = False
        ClearFilter
        With ActiveSheet
            m = .Cells(Rows.Count, 4).End(xlUp).Row
            .Range("A4:S" & m).AutoFilter 4, txt
        End With
    Application.ScreenUpdating = True
End Sub

Private Sub ClearFilter()
    With ActiveSheet
        .AutoFilterMode = False
        If .FilterMode = True Then .ShowAllData
    End With
End Sub

 

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

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

ActiveSheet.Range("$A$4:$T$117").AutoFilter Field:=4, Criteria1:="العام"

يتم كتابة التخصص المطلوب مكان كلمة العام

ويوضع هذا السطر قبل else في جميع الإجراءات 

بالتوفيق 

[khairi ali]

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

 

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

جميعا بإذن الله

جمعتكم مباركة