حساب مديونيات

[الدهشوري]

الشرح موجود بالمرفق  ... وجزاكم الله كل خير 

 

مديونيات.rar

تم تعديل فبراير 6, 2016 بواسطه الدهشوري

[رجب جاويش]

أخى الفاضل

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Integer
LR = Cells(Rows.Count, "I").End(xlUp).Row
If Not Intersect(Target, Range("I5:I" & LR)) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Target = "سداد - خالص" And Target.Offset(0, -1) <> 0 Then
Target.Offset(0, 1) = Target.Offset(0, -1)
Target.Offset(0, -1) = 0
Target.Offset(0, -2) = Target.Offset(0, -3)
End If
End If
End Sub

 

مديونيات1.rar

[الدهشوري]

جزاك الله كل خير

اتمنى ان اجد حل بالمعادلات ان امكن ولك منى الف شكر

تم تعديل فبراير 6, 2016 بواسطه الدهشوري

[خالد الرشيدى]

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

بارك الله فيك استاذنا رجب جاويش

اريد لفت نظر الاخ الكريم الى انه من غير الممكن تنفيذ الامر بالمعادلات نظراً لانه فى حاله وضع معادلة بعمود المدفوع لتتغير عند جعل قيمه العمود I هى سداد - خالص   سوف تمسح تلقائى عند وضع القيمه المدفوعه

بمعنى اوضح لا يمكن ادخال قيمه بخليه تحوى معادلة وإلا مسحت المعادلة

خالص تحياتى

 

[رجب جاويش]

أخى الفاضل / الدهشورى

كما أخبرك الأستاذ خالد الرشيدى لا يمكن عمل ذلك بالمعادلات

 

[الدهشوري]

جزاكم الله كل خير .... وأشكركم علي سرعة الرد والاجابة بارك الله فيكم

وتقبلوا خالص تحياتى