سن نهاية الخدمة

[Tarekfathallah]

السلام عليكم بحاجة الى مساعدة في قاعدة بياناتي 

برجاء وضع الشرط في عمود السن القانوني على العمر 52 سنة ( يوم وشهر وسنة ) 

مرفق ربطا القاعدة 

مواقع استخدام العناصر 2021 - Copy.xlsx

[حسين مامون]

ادا كان ما تقصد هو تعبئة عمود السن القانوني بتاريخ السن الميلاد + 52 سنة 

جري هذا الماكرو

واضا الاسم الثلاثي

Sub Test()
Dim x, lr
lr = Cells(Rows.Count, "ay").End(xlUp).Row
For x = 2 To lr
If Cells(x, "ay") = vbNullString Then GoTo 1
Cells(x, "be") = Format(DateAdd("yyyy", 52, Cells(x, "ay")), "dd-mm-yyyy")
Cells(x, "bf") = Cells(x, "d") & " " & Cells(x, "bc")
1: Next x
End Sub

مواقع استخدام العناصر 2021 - Copy.xlsm

[Tarekfathallah]

شكرا لك اخي ولكن السؤال في تاريخ نهاية الخدمة اعطاني تواريخ 

dd-mm-yyyy   و تواريخ   dd/mm/yyyy  

لماذا هذا الاختلاف 

[حسين مامون]

اخي الكريم

لان ما فهمت في طلبك هو اضافة 52 سنة لتاريخ الميلاد  انظر السطر الاحمر من مشاركتك 

برجاء وضع الشرط في عمود السن القانوني على العمر 52 سنة ( يوم وشهر وسنة ) 

واذا كنت تقصد : لما يصل السن القانوني 52 سنة يضع اشارة في عمود السن القانوني

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

 

[Tarekfathallah]

شكرا لمرورك هذا ما اريد ولكن لاحظ الحقول او الخانات المعلمة باللون الازرق 

مواقع استخدام العناصر 2021 - Copy.xlsx

[حسين مامون]

تم تغيير تنسيق التاريخ في العموديين فقط

مواقع استخدام العناصر 2021 - Copy (1).xlsm

[Tarekfathallah]

السلام عليك بطل ورائع