رسالة تنبيه للغياب عن العمل لمدة محددة

[MPC]

اريد تعديل الكود حتى يمكننى اظهار رسالة تنبيه في بداية فتح الشيت في حالة تجاوز أي موظف من اصل 800 موظف لعدد (7) أيام متصلة أو (15) يوم متفرقة حتى يتم ارسال انذار فصل له

Sub test

Dim z As String

%Dim y%: Dim x

y = 2

x = 3

(z = Cells(x, y

if z= "غياب" then

("   غياب لمدة يوم واحد   ")&(MsgBox Cells(3, 1

End If

End Sub 

 

[سليم حاصبيا]

كان عليك رفع ملف للمعالجة

لكن بامكانك تجربة هذا الشيء

 

Abscence.xlsx

[MPC]

هذا هو الملف المطلوب

Book1.xlsm

[بن علية حاجي]

السلام عليكم

تم إضافة معادلة أخي الكريم سليم بتصرف طفيف (حسب ما تريد) وتم أيضا التعديل على الكود ليقوم بالعمل نفسه وبالشروط نفسها (في عمود آخر) وما يبقى إلا برمجة هذا الكود ليعمل تلقائيا عند فتح الملف (وعند التعديل على البيانات)...

بن علية حاجي

Book1 (3).xlsm

[MPC]

بن علية حاجي - سليم حاصبيا جزاكم الله خيرا