تدقيق البيانات الموجوده بشروط من خلال VBA Code

[مستخدم الاوفس]

السلام عليكم ورحمة الله وبركاته 

يوجد لدي تقرير شهر لكل موظف هذا التقرير موجود في المثال المرفق 

يضمن التقرير 

1- رقم الموظف

2- اسم الموظف

3- القسم 

4- التاريخ 

5- الوقت الحضور  الصباحي 

6- الوقت الخروج المسائي

7- المتغيرات

يكون الاسم والرقم مكرر حسب ايام الشهر 

لدي لكل موظف مجموعه من المتغيرات التي تطرأ على هذا الموظف 

مثلاً من يوم 1 الى يوم 10 لديه اجازه ....مؤشرة في حقل المتغيرات "ج"

من يوم 11 الى يوم 19 لديه دوام .... مؤشر في حقل المتغيرات "v" وجب ان يكون لديه في حقل الوقت الصباحي والوقت المسائي (وقت)

يوم 20 لديه اجازة اضطرارية ... مؤشر في الحقل المتغيرات "س"

من يوم 21 الى يوم 30 او 31 حسب الشهر لديه واجب .... مؤشر في حقل المتغيرات "و"

ملاحظة هامه هذه البيانات متغيرة من شخص الى اخر ومن شهر الى اخر لكن المتغيرات ("ج"-"V"-"و"-"س") هي ثابته وكن ايامها تتغير

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

المطلوب هو كود يقوم بالتحقق من الحلات التاليه 

لديه اجازة من 1-10 يكتب في العمود الاخير يكتب ok

لديه لدوام من 11-19 يتحقق من الوقت الدخول الصباحي ووقت الدخول المسائي موجود يكتب في العمود الاخير يكتب ok

لديه يوم 20 اجازة اضطراريه يكتب في العمود الاخير يكتب ok

لديه واجب من 21-الى 30 او 31 واجب يكتب في العمود الاخير يكتب ok

بخلاف الفقرات اعلاه (اي ان اي فقرة غير مطابقة للشروط) يترك العمود الاخير فارغ

النوذج مرفق 

 

وفقكم الله لكل خير في حالى عدم وجود حل يرجى افدتي بالنصيحه وان اكمل الباقي انا لدي بعض الخبرة البسيطة بالاكواد وعمل شي بسيط لكن لم اتمكن اكمال جميع الحالات كما في الكود المتواضع هنا 

Sub check_Name()
Dim x As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet 1")
wslr = ws.Cells(Rows.Count, 1).End(xlUp).Row
For x = 2 To wslr

If ws.Cells(x, 5) <> "" And ws.Cells(x, 8) = "v" Then
ws.Cells(x, 7) = "ok"
End If
Next x
MsgBox (wslr)
End Sub

 

المثال.xlsx