عمل SORT بناء على إختيارين

[احمد بهجت]

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

تحية طيبة

المطلوب : - 

طلب المساعدة في عمل SORT بناء على إختيارين (المهنة & رقم الدورة)

عمل SORT بناء على إختيارين.rar

[سليم حاصبيا]

الحل على الصفحة الثانية

عمل SORT بناء على إختيارين salim.rar

[احمد بهجت]

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

اخي الفاضل سليم حاصبيا

من الموضح في الملف إستخدام الكود والمعادلات ولكن يوجد خطأ قائم في الملف المرفق 

أنه عند عمل sort يتم تكرار رؤوس الجداول مرتين

ولكن هل من الممكن التعديل على الكود التالي بحيث انه بدلا من أنه مصمم لعمل sort لإختيار واحد يتم تعديله بحيث يصبح الفرز للإختيارين الموضحين سابقاً على الملف المرفق

 

Sub FilterData()
Dim strCriteria As String
strCriteria = Sheet1.Range("C3").Value

On Error Resume Next
With Sheet1
.AutoFilterMode = False
.Range("E2:O2").AutoFilter Field:=11, Criteria1:=strCriteria
.Range(("E2:O") & .Cells(Rows.Count, 5).End(xlUp).Row).Sort Key1:=.Range("F2"), Order1:=xlAscending, Header:=xlYes
End With
End Sub

[طارق محمود]

السلام عليكم

بعد إذن أخي الغالي سليم

تفضل الكود التالي (تعديلا علي الكود الذي أرسلته)

يتم تفعيل الكود

 بالضغط علي الزر بعد تغيير الخليتين الحمراوين

Sub FilterData()
Dim jobs As String, cycl As String
jobs = [B1].Value: cycl = [I1].Value
On Error Resume Next
ActiveSheet.AutoFilterMode = False

With [B3:O999]
    .AutoFilter Field:=13, Criteria1:=cycl
    .AutoFilter Field:=14, Criteria1:=jobs
End With

End Sub

تفضل الملف أيضا

عمل SORT بناء على إختيارين.rar

[احمد بهجت]

سلمت يداك أستاذي الفاضل طارق محمود