كيفية فرز بيانات الطلاب حسب نتائجهم

[samoxz]

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

استفسر عن موضوع لي فيه 3 ايام و لم أجد حل كامل له

لدي بيانات نتائج الطلاب بعد امتحانات و أريد فرزهم في جدول مجاور (في نفس الصفحة) يضم 3 فئات (ممتاز, متوسط, ضعيف)

كل ما استطعت تحقيقه هو فرزهم الى صفحات مختلفة و استخدام vba و زر لعمل الفرز

ثم قمت بربط نتائج الصفحات مع الجداول في الصقحة الام

 

المشاكل:

كلما ضغطت على الزر و لو بالخطأ يقوم بتكرار العملية

لا استطيع محو النتائج في الصفحات لتنمحي في الصفحة الأم

 

هل يوجد حل مباشر جزااااكم الله كل خير

fffff222.xlsb

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

العامود D  اجعله فارغاً من كل شيء

نفذذ هذا الماكرو

Sub tarheel22()
Dim myrange1 As Range
Set myrange1 = Sheets("Sheet1").Range("E3:G4")
Sheets("Sheet1").Range("a3").CurrentRegion.Clear

Sheets("Mydata").Range("A3:C500").AdvancedFilter _
xlFilterCopy, myrange1, Sheets("Sheet1").[a3]

End Sub

الملف مرفق

Salim_222.xlsb