سيصبح الكود هكذا
Sub Abu_Ahmed_Delet()
Dim CL As Range
For Each CL In [H4:H1000]
If Application.CountIf([J4:J1000], CL) = 0 Then CL.Offset(0, 1) = "X"
Next
End Sub
اخي محمود كن على ثقة انك لن تعاقب على فعل الخير بل تُكرم
والاولى كان ان تقوم بعد ردك ان تنوه الى طلب تعديل العنوان من قبل الاشراف وليس التنويه الى مخالفة الموضوع وحسب
او (وهو الأفضل)
بعد الرد ان تقوم بالضغط على زر تقرير اسفل المشاركة وتعلق بأن العنوان مخالف ليتم تعديله
شاهد الصورة
جرب هذا الكود
Sub Abu_Ahmed_Delet()
Dim CL As Range
For Each CL In [H4:H1000]
If Application.CountIf([J4:J1000], CL) = 1 Then CL.Offset(0, 1) = Empty
Next
End Sub
السلام عليكم
اليك بعض الروابط
http://www.officena.net/ib/index.php?showtopic=15722&hl=
http://www.officena.net/ib/index.php?showtopic=150
http://www.officena.net/ib/index.php?showtopic=40690
السلام عليكم
الفكرة ماخوذة من عمل للاستاذ طارق محمود جزاه الله خير
جرب هذا العمل بالنسبة للموظفين كبداية هل هذا هو المطلوب
لادراج موظف جديد اضغط على السهم الاحمر (مع رسالة تنبيهية قبل الادراج)
نموذج موازنة.rar
هل المطلوب كود لادراج صفوف بها المعادلات التي بالصف الاعلى في الحالات التالية
1. الموظفين
2. الخبراء
3. المصاريف
ام للموظفين فقط=====بالنسبة للحماية يمكن ذلك