استبدال الدرجة الوظيفية

[خالد ابوعوف]

السلام عليكم

استبدال الدرجة الوظيفية عند مرور (4) سنوات 

وكما موضح بالملف 

ان شاء الله الفكرة واضحة

 

استبدال الدرجة الوظيفية.xlsx

تم تعديل أبريل 11, 2019 بواسطه خالد ابوعوف

[ابراهيم الحداد]

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

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

حتى لا يتم التغيير مرتين اذا تم الضعط على زر الماكرو مرة اخرى و بدون قصد

انسخ الكود التالى و الصقه فى محرر الاكواد و خصص له زر

Sub Update_Jopes()
Dim sh As Worksheet
Dim x As Date, y As Date, z As Date
Dim p As Integer, i As Integer, Lr As Long
Set sh = Sheets("السجل")
Lr = sh.Range("B" & Rows.Count).End(xlUp).Row
i = 2
Do While i <= Lr
If IsDate(Range("D" & i)) Then
x = Range("D" & i).Value
y = Date
p = Year(y) - Year(x)
If p >= 4 Then
z = DateAdd("yyyy", 4, x)
sh.Cells(i, 3) = WorksheetFunction.VLookup(Cells(i, 3), _
Sheets("تغيير الدرجة").Range("A2:B27"), 2, 0)
sh.Cells(i, 4) = z
Else
sh.Cells(i, 3) = sh.Cells(i, 3)
sh.Cells(i, 4) = sh.Cells(i, 4)
End If
End If
i = i + 1
Loop
End Sub

 

[وجيه شرف الدين]

تسلم ايديك استاذ ابراهيم كود فى غاية الجمال والروعة

[خالد ابوعوف]

السلام عليكم

جزاك الله خيرا - الاستاذ المحترم - الخبير /  ابراهيم الحداد

وفقك الله - مشكور - هو المطلوب 

 

تم تعديل أبريل 11, 2019 بواسطه خالد ابوعوف