معادلة لتعبئة الخانات تلقائيا بموجب تاريخ الدفعة المقدمة

[ابو عبدالرحمن البغدادي]

السلام عليكم - وفقكم الله

تعبئة الخانات تلقائيا وحسب تاريخ الدفعة المقدمة - ويكون دفع القسط كل شهر (30) يوم 

وكما موضح بالملف المرفق (شيت الدفعات)

 

 

معادلة املأ الخانات تلقائيا استنادا على تاريخ الدفعة المقدمة.rar

[أبو حنــــين]

السلام عليكم

استعمل اخي هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 14 And Target.Row > 2 Then
    If IsDate(Target.Value) = True Then
    For i = 1 To 9
    Target.Offset(, i) = DateAdd("m", i, Target.Value)
    Next
    End If
    End If
End Sub

 

عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

[ابو عبدالرحمن البغدادي]

السلام عليكم

جزيت خيرا

تمام