السلام عليكم
===========
اخى الحبيب ايسم
شاهد المرفق الثانى ايضا
مع استبدال السطر
.Range("A" & R).Resize(1, 106).Copy
بالسطر
.Range("A" & R).Resize(1, 120).Copy
على اساس ان الكود سيقارن فى العمود 120 وليس 106
هذا بالنسبة لترحيل الطلبةالناجحين
واضافة السطر
ElseIf .Range("DP" & R) = "راسب" Then
لترحيل الطلبة الراسبين الراسب
ان شاء الله يعمل معك المرفق الثانى ايضا بيسر
تقبل تحياتى لشخصكم الكريم
مشكلة ترحيل.rar