Taksit tutarına bağlı sırasıyla eksilen rakamlar

[oozdemir1]

merhaba ekte verdiğim taslakta müşteri taksidini ödedikçe sırasıyla taksit tutarlarının eksilmesini istiyorum. şöyleki bazen kişi tam taksit tutarı kadar ödeme yapabildiği gibi taksit tutarında eksik ya da fazla da ödeme yapabilmektedir. Bu tür ödemeler alındıkca yukarıdan aşağıya doğru taksit rakamlarının azalmasını istiyorum. bana bu konuda yardımcı olur msunuz. şimdiden tşk ler.

 

[usta07]

Ödemeler Sayfası kod bölümüne aşağıdaki kod'u yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("E18")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells(17, 5) = Cells(17, 5) - Cells(18, 5)
Son: Application.EnableEvents = True
End Sub

 

[oozdemir1]

sayın usta07 ilginize sonsuz tşk ler. bu kod bana yardımcı olacaktır. ancak ben sanırım tam anlatamadım. ekte tekrar gönderiyorum. tekrar ilgilenebilirseniz çok sevinirim.