ListBox'da Toplama Çıkartma işlemi

[zaruri]

Forumdan toparlayabildiğim kadarıyla taksit dökümü yapmaya çalışıyorum.
Toplam Tutar-Peşinat = Kalan tutarı Listbox ve UserForm da göstermek için yardımlarınızı bekliyorum.

 

[byfika]

Merhabalar, kod eklemeleri yapıp dosyanızı ekledim. Dener misiniz?
İyi çalışmalar...

 

[zaruri]

Teşekkür ederim, Emeğinize sağlık.
çalışma geliştirme safhasında, ileride yardımlarınızı isteyeceğim.

 

[byfika]

Rica ederim, iyi çalışmalar....

 

[byfika]

Merhabalar,
Yeni dosyanız ekte. Dener misiniz?
TextBox26 için alttaki kodu ilave edin... İyi çalışmalar...

Private Sub TextBox25_Change()
TextBox25.Value = Format(TextBox25.Value, "#,##0.00")
End Sub

 

[zaruri]

Eyvallah Hocam, gayet güzel. Teşekkür ederim.

 

[byfika]

Sayın Zaruri,
Private Sub sirala2_Change()
TextBox25.Value = Val(sirala1.Value) - Val(sirala2.Value) bu kodtaki Val ları silin,
ve alttaki kodları ilave ederseniz " sirala1, sirala2 ve textbox25 istediğiniz gibi virgüllü olacaktır.

Private Sub sirala1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
sirala1.Text = Format(sirala1.Text, "#,##.00")
End Sub

Private Sub sirala2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
sirala2.Text = Format(sirala2.Text, "#,##.00")
End Sub