أكاديمية الصقر للتدريب
موضوع بعنوان :اصلاح وتفعيل كود به معادلة
الكاتب :هانى على


السلام عليكم اساتذتى واخوانى كل عام وانتم بخير جميعا
أود ان اجد حل لمشكلة هذا الكود, فالكود به معادلة احب ان تنفذ على اكمل وجه فعندما اقوم بتفعيل الكود تظهر معى مشكلة فى صورة رسالة سوف ارسلها لكم هى والكود
ومضمون عمل الكود :بحيث اذا تواجد اى اسم تلميذ كغياب فى صفحة التقرير اليومى خلال يوم معين
فلابد ان يقوم الكود بكتابة حرف غ أمام نفس اسم التلميذ فى نفس اليوم وذلك فى صفحة الغيابات-ولابد ان لا تمحى هذه النتيجة وهى حرف غ حتى لو حذف غياب هذا اليوم من صفحة التقرير اليومى فهو يتغير يوميا
ولكم جزيل الشكر وبارك الله لكم جميعا
Sub FormulaCopy()
Range("F6:IE560").Formula = "=IF(AND(COUNTIF('ÇáÊÞÑíÑ Çáíæãí'!$C$63:$I$102,$B6)=1,COUNTIF('ÇáÊÞÑíÑ Çáíæãí'!$N$61,F$5)=1),""Û"","""")"
Sheet("ÇáÊÞÑíÑ Çáíæãí").Activate
Range("c63:h102").ClearContents
MsgBox "Done...", 64
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
oMjpHn8ggv0dZZv