إنشاء معادلة لمعرفة موعد الزيادة المقبل

[Kareem_Abolfotoh]

السادة الأفاضل / السلام عليكم ورحمة الله وبركاته

أرجو منكم التكرم مساعدتي في حل التالي:

لدي قاعدة بيانات موظفين ، جميع العقود لمدة سنتين ، ويوجد منهم موظفين قدامى بالشركة

أرجو مساعدتي في وضع معادلة لتحديد موعد الزيادة القادم بالضبط

مثال :

من يتم تعيينه في سنة فردية تكون زيادته بعد عامين أي في سنة فردية ، والعكس صحيح

من تم تعيينه في 2010 فإن زيادته القادمة في 2012، 2014، 2016، 2018، 2020 وهكذا

ومن تم تعيينه في 2001 فإن زيادته القادمة في 2003، 2005، 2007، 2009 وصولا إلى 2021

أرجو الإفادة بارك الله فيكم ، ولكم مني جزيل الشكر والتقدير

( مرفق ملف توضيحي)

 

 

Increment.xlsx

[حسين مامون]

ربما يكون كود افضل

جرب المرفق

Increment.xlsm

[Kareem_Abolfotoh]

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

أنا أحاول وضع التواريخ ولكن الملف لا يعمل

[حسين مامون]

جرب هذا المرفق

الكود يعمل في حدث الشيت "change" 

 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim rng, lr
lr = Cells(Rows.Count, "c").End(3).Row
Set rng = Range("c5:c" & lr)
If Not Intersect(Target, rng) Is Nothing Then
If Not IsDate(Target) = True Then
Target = ""
Else
Target = Format(Target, "dd-mm-yyyy")
Target.Offset(, 1) = Format(DateAdd("yyyy", 2, Target), "dd-mm-yyyy")
Exit Sub
End If
End If

End Sub

 

Increment (1).xlsm

[Kareem_Abolfotoh]

أشكرك أخي حسين على هذا الكود ولكن لي ملحوظة وأرجو أن يتسع صدرك معي قليلا

إذا كان هناك موظف تاريخ تعيينه في 2010 فإن الكود يعطيني التاريخ 2012 مع العلم أن هذا التاريخ قد فات أنا أريد أن يحسب الكود سنتين بشكل مستمر حتى يصل إلى تاريخ حديث وهو 2020

أرجو قد أكون وضحت الفكرة

[حسين مامون]

تفضل ربما يكون ما تريد اخي الكريم

ادخل التاريخ في العمود "C"وانقر بالماوس الايسر دوبل كليك

مثلا تاريخ التعيين هو: 12/12/2014

النتيجة : 12/12/2016  12/12/2018  12/12/2020

اتمنى ان يكون ما تريد

تحياتي

Increment (1).xlsm

[Kareem_Abolfotoh]

جزاك الله ألف خير أخي حسين على ذلك المجهود الرائع .. ولكن هل لي أن أحصل على أكبر تاريخ فقط في الخلية انا لا أريد التواريخ القديمة ، أنا أرغب في آخر تاريخ حديث

مثلا تاريخ التعيين هو: 12/12/2014

النتيجة : 12/12/2020

فأنا لا أرغب في التواريخ القديمة ، أنا أرغب في آخر تاريخ حديث

 

أنا آسف جدا لإزعاجك أخي الفاضل ، لك خالص الشكر والاحترام

[حسين مامون]

تفضل 

Increment (1).xlsm

[Kareem_Abolfotoh]

أنا عاجز عن الشكر ... جزاك الله خير أحي حسين وجعله في ميزان حسناتك

[حسين مامون]

الحمد لله ان تم الامر على خير