أكاديمية الصقر للتدريب
(نسخة قابلة للطباعة من الموضوع)
https://excel-egy.com/forum/t2098
أنقر هنا لمشاهدة الموضوع بهيئته الأصلية

اصلاح وتفعيل كود به معادلة
هانى على 09-08-2018 11:36 مساء
السلام عليكم اساتذتى واخوانى كل عام وانتم بخير جميعا
أود ان اجد حل لمشكلة هذا الكود, فالكود به معادلة احب ان تنفذ على اكمل وجه فعندما اقوم بتفعيل الكود تظهر معى مشكلة فى صورة رسالة سوف ارسلها لكم هى والكود
ومضمون عمل الكود :بحيث اذا تواجد اى اسم تلميذ كغياب فى صفحة التقرير اليومى خلال يوم معين
فلابد ان يقوم الكود بكتابة حرف غ أمام نفس اسم التلميذ فى نفس اليوم وذلك فى صفحة الغيابات-ولابد ان لا تمحى هذه النتيجة وهى حرف غ حتى لو حذف غياب هذا اليوم من صفحة التقرير اليومى فهو يتغير يوميا
ولكم جزيل الشكر وبارك الله لكم جميعا
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
أكاديمية الصقر للتدريب

Powered by PBBoard ©Version 3.0.2