كدة تمام
اول خطأ كان فى هذا السطر
If Cells(i, 3).Value = "ناجح" And Cells(i, 4) <> " " Then
والثانى فى هذا السطر
ElseIf Cells(i, 3).Value = "له دور ثان" And Cells(i, 4) <> " " Then
والتصحيح الاولى من الشمال 83 ودة رقم خلية الناجح او دور ثان والرقم الثانى 3 ومش عارف يشير لايه
الرجا التوضيح
واخر خطأ
MsgBox "تم بحمد الله فصل ناجح وله دور ثان", vbOKOnly, "ترحيل الناجحون والراسبون"
والتصحيح "ترحيل الناجحين والراسبين" وهل ناجحون وراسبون تعطل الماكرو
وفى النهاية انا عاجز عن شكرك والله من قلبى ربنا يكرمك بس ياربت توضح لى اخطائى
لانى باحاول اتعلم وافهم