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

[عامر ياسر]

الشرح داخل الملف

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

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

ما هو انت اذا حذفت الدرجة تتغيير النتيجة لتصبح ناجحاً لان المعادلة تطلب تنفيذ هذا الشيء

[عامر ياسر]

تحياتي واحترامي أستاذ سليم حاصبيا وكل عام وانت بالف خير 

تم تغيير صيغة السؤال وارجو ان تكون واضحة داخل الملف

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

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

جرب هذا الماكرو

Option Explicit

Sub del_last_4()
Dim cel As Range
For Each cel In Range("F5", Range("M4").End(4))
 If IsNumeric(cel) And _
  cel <= 4 Then cel = vbNullString
Next
End Sub

 

[عامر ياسر]

شكرا جزيلا أستاذ سليم حاصبيا ....... وعذرا لتأخري في الرد على اجابتكم .... لكن بقت مشكله واحدة اريد النتيجة اذا كان راسب لا تحذف درجات الرسوب ......... مع فائق احترامي وتقديري

 

الأستاذ الكريم أحمد يوسف مع احترامي لكم انا دائما اقدم الشكر و الاعجاب وهذا اقل شيء اقدمه للأساتذة وخاصة الأستاذ المبدع سليم حاصبيا ......... شكرا على التوضيح اخ كريم

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

تم التعديل على اماكرو كما تريد

Option Explicit

Sub del_last_4()
Dim cel As Range
For Each cel In Range("F5", Range("M4").End(4))
 If IsNumeric(cel) And _
  cel <= 4 And _
  Range("N" & cel.Row) = "مكمل" Then cel = vbNullString
Next
End Sub

 

[عامر ياسر]

شكرا دائما ً مبدع أستاذ سليم حاصبيا .... هذا هو المطلوب جزاك الله خيراً

[احمد بدره]

رائع ودائمًا مبدع أستاذنا الفاضل سليم

لي سؤال هل ممكن مسح بناء على اسم المادة المؤخوذة من مواد الرسوب

 

المصنف1.xlsx