اذهب الي المحتوي
أوفيسنا

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


MPC
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

اريد تعديل الكود حتى يمكننى اظهار رسالة تنبيه في بداية فتح الشيت في حالة تجاوز أي موظف من اصل 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 

 

رابط هذا التعليق
شارك

السلام عليكم

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

بن علية حاجي

Book1 (3).xlsm

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information