تحضير قوائم السنة الجامعية المقبلة

[aaaaamine1]

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

الملف.xlsx

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

ربما كان المطلوب

الكود

Option Explicit

Sub fil_data()
Dim S_rg As Range
Dim I%, m%
Dim st1$, st2$
Range("g3", Range("g4").End(4)).Resize(, 4).ClearContents
Set S_rg = Range("b3", Range("b4").End(4)).Resize(, 4)
For I = 1 To S_rg.Rows.Count
 If S_rg.Cells(I, 4) <> "مشطب" Then
      If S_rg.Cells(I, 3) & S_rg.Cells(I, 4) <> "3 جامعي" & "ناجح" Then
       Cells(m + 3, "G") = S_rg.Cells(I, 1)
       Cells(m + 3, "H") = S_rg.Cells(I, 2)
           Select Case S_rg.Cells(I, 3) & S_rg.Cells(I, 4)
             Case "1 جامعي" & "معيد": st1 = "1 جامعي": st2 = "نعم"
             Case "1 جامعي" & "ناجح": st1 = "2 جامعي": st2 = "لا"
             Case "2 جامعي" & "معيد": st1 = "2 جامعي": st2 = "نعم"
             Case "2 جامعي" & "ناجح": st1 = "3 جامعي": st2 = "لا"
           End Select
        Cells(m + 3, "I") = st1: Cells(m + 3, "j") = st2
        m = m + 1
      End If
  End If
Next
End Sub

الملف مرفق

jama3i.xlsm

[بن علية حاجي]

السلام عليكم

وحل آخر بالمعادلات...

بن علية حاجي

الملف.xlsx

[Ali Mohamed Ali]

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

[aaaaamine1]

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

 

الرجاء من أساتذتنا الكرام التفضل بترتيب الطلبة في السنة الجامعية المقبلة بحسب المستوى و لكم جزيل الشكر و الإمتنان مسبقا.