Userformda toplama

[byfika]

Merhabalar, Userformda bazı işlemler yaptım. Fakat parasal değerleri bazı textbox larda yaptığımda hata almaktayım. Örnek dosya ekliyorum ve olması gereken textbox lardaki işlemlerde aşağıdaki gibi ;

TEXTBOX lardaki işlemler.
1- Gri backcolor olan textbox lara userformdan bilgi girişi yapılacak şekilde ayarladım.
Userfomdaki sadece backcolor ı beyaz olan TEXTBOX 10, TEXTBOX 14, TEXTBOX 15 ve TEXTBOX 18 aşağıdaki açıklandığı şekilde parasal işlem yapılacak şekilde veri girilecek, TEXTBOX 17 ve TEXTBOX 20 textboxları parasal girişi otomatik hesaplayacak.
2- TEXTBOX 10, TEXTBOX 14, TEXTBOX 15 textbox larda parasal değer varsa (hepsi boş, herhangi birinde veya hepsinde parasal değer olabilir, bunları toplatacağız.) ve TEXTBOX 17 ye PARASAL TOPLAM değeri yazacak,
3- TEXTBOX 18 de:
Parasal değer GİRİLMEZSE ==> TEXTBOX 17 deki parasal değer TEXTBOX 20 ye
Parasal değer GİRİLİRSE ==> TEXTBOX 17 deki parasal değerden, TEXTBOX 18 deki parasal değer çıkarılarak TEXTBOX 20 ye yazacak.

Bilgi için şimdiden teşekkürler.

 

[kemal turan]

merhaba,
userformunuzun İnitialize bölümüne ekleyiniz

TextBox10 = Format(CDbl(0), "#,##0.00 ")
    TextBox14 = Format(CDbl(0), "#,##0.00 ")
    TextBox15 = Format(CDbl(0), "#,##0.00 ")
    TextBox17 = Format(CDbl(0), "#,##0.00 ")
    TextBox18 = Format(CDbl(0), "#,##0.00 ")
    TextBox20 = Format(CDbl(0), "#,##0.00 ")

textbox ların exit kodlarını aşağıdaki gibi değiştiriniz.

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Textboxda Kuruşlu para birimi
    TextBox10 = Format(TextBox10, "#,##0.00 ")
    hesap
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Textboxda Kuruşlu para birimi
    TextBox14 = Format(TextBox14, "#,##0.00 ")
    hesap
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Textboxda Kuruşlu para birimi
    TextBox15 = Format(TextBox15, "#,##0.00 ")
    hesap
End Sub
Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Textboxda Kuruşlu para birimi
    TextBox17 = Format(TextBox17, "#,##0.00 ")
    hesap
End Sub
Private Sub TextBox18_Exit(ByVal Cancel As MSForms.ReturnBoolean) ' Textboxda Kuruşlu para birimi
    TextBox18 = Format(TextBox18, "#,##0.00 ")
    hesap1
End Sub

bu kodu da userformunuza ekleyiniz,

Sub hesap()
TextBox17 = Format(CDbl(TextBox10.Value) + (TextBox14.Value) + (TextBox15.Value), "#,##0.00 ")
TextBox20 = Format(CDbl(TextBox17.Value), "#,##0.00 ")
End Sub
Sub hesap1()
TextBox20 = Format(CDbl(TextBox17.Value) - (TextBox18.Value), "#,##0.00 ")

End Sub

 

[byfika]

Kemal bey çok teşekkürler, elinize bilginize sağlık

 

[kemal turan]

Textbox 10 ,14 ,15 e verileri alt alta giriyorsanız eğer Textbox larınızın Tab order sıralamaları nı düzenlerseniz daha kullanışlı olur.