استاذ حسين بارك الله فيك
وشكرا لمساعدتك
لكن لاتعمل المعادله بشكل صحيح عندما يكون المدفوع مثلا اقل من المستحق خلال 90 يوم
ولكن بعد فكرتك بالمعادلات جاتنى فكره عملها بلكود وكانت كالتالى
Sub acck()
With ActiveSheet
m = [b5]
n = m + [c5]
o = n + [d5]
p = o + [e5]
If [f11] <= m Then
[b11] = m - [f11]
[c11] = [c5]
[d11] = [d5]
[e11] = [e5]
ElseIf [f11] > m And [f11] <= n Then
[b11] = 0
[c11] = n - [f11]
[d11] = [d5]
[e11] = [e5]
ElseIf [f11] > n And [f11] <= o Then
[b11] = 0
[c11] = 0
[d11] = o - [f11]
[e11] = [e5]
ElseIf [f11] > o Then
[b11] = 0
[c11] = 0
[d11] = 0
[e11] = p - [f11]
End If
End With
End Sub
لكن اريد ايضا عملها بالمعادلات وشكرا مره اخرى
حساب عميل2.rar