حساب المتبقي من تاريخ الاستحقاق

[Mohmad83]

السلام عليكم ورحمة الله وبركاته الاساتذة والاخوة الأعضاء الكرام

ارجو التفضل بحل المشكلة الاتية

والتي تتمثل بكوني ارغب باظهار عدد الايام المتبقية في العمود D ويتم ذلك بطرح التاريخ الموجود في العمود C من تاريخ ( اليوم ) ليظهر عدد الايام المتبقية من تاريخ الاستحقاق لكل زبون . 

ملاحظة . !!!! 

اتمنى ان يكون الحل بالاكواد وليس بالمعادلات .

مع فائق شكري وتقديري لاي جهد يبذل . ودعائي لكم بالصحة والعافية والتفوق الدائم .

الايام المتبقية.xlsm

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Private Sub Workbook_Open()
With Sheets("ورقة1")
.Select
If .Range("A1").CurrentRegion.Rows.Count = 1 Then Exit Sub
 .Range("A1").CurrentRegion.Offset(1). _
  Resize(Range("A1").CurrentRegion.Rows.Count - 1) _
  .Columns(4).Formula = _
  "=IF(AND(C2>=TODAY(),C2<>""""),C2-TODAY(),"""")"
  .Range("A1").CurrentRegion.Value = _
  .Range("A1").CurrentRegion.Value

End With
End Sub

الملف مرفق

Autodate.xlsm

[Mohmad83]

بسم الله ماشاء الله 

عاشت الانامل..  تمام التمام استاذي القدير🌹 

سليم حاصبيا 

اسئل الله ان يمدك بالعافية والصحة والتوفيق

[عبدالفتاح في بي اكسيل]

بعذ   اذن  استادنا  الكبير   سليم  واثراء  للموضوع 

Sub coundat()

Dim lrD As Long
Dim lrC As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("ورقة1") 'change as needed
lrD = ws.Range("D" & Rows.Count).End(xlUp).Row
lrC = ws.Range("C" & Rows.Count).End(xlUp).Row
If lrD >= lrC Then Exit Sub

With Range(Range("D" & lrD), Range("D" & lrC))
    .Formula = "=Today()-C" & lrD
    .Value = .Value
    .NumberFormat = "General"
End With

End Sub

 

الايام المتبقية.xlsm

[سليم حاصبيا]

ممتاز اخي عبد الفتاح

لكن لا بد من وضع شرط ان تكون الخاية C أكبر من تاريخ اليوم وان لا تكون فارغة  والا سيظهر لك خطأ

 

[Mohmad83]

ربنا يحفظكم ويديمكم لنا اساتذتنا سر نجاحنا الا خ الاستاذ 

سليم حاصبيا

الاخ الاستاذ 

عبد الفتاح في بي اكسل

نتمنى لكم النجاح المتواصل والتوفيق حفظكم الله لنا ولاحبائكم