Textbox' ları virgüllü toplamak?

[me68met]

İyi çalışmalar, forumu yeterince incelediğimi sanıyorum ama istediğimi bulamadım. Ya da bulduğumu yapamadım. Ekte gönderdiğim dosyamda textbox' lara girdiğim 2 haneli sayıları label' da toplamı commandbutton' a click' leyerek yaprıtıyorum, ama ben aynı olayı commandbutton olmadan yapmayı istiyorum ama beceremedim. Forumdaki arkadaşlardan aldığım örnekleri uyguladım ama hep tamsayı olarak topluyor. Virgülleriyle birlikte toplama yapıtıramadım. Yardımcı olursanız sevinirim. Kolay gelsin.

 

[asi_kral]

Merhaba
Userform'un kod bölümündeki kodları silin ve bu kodu ekleyin.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = CSng(TextBox1.Text)
Label1 = Format(Label1, "#,0.00 TL")
TextBox1 = Format(TextBox1, "#,0.00 TL")
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = CSng(TextBox1.Text) + CSng(TextBox2.Text)
Label1 = Format(Label1, "#,0.00 TL")
TextBox2 = Format(TextBox2, "#,0.00 TL")
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = CSng(TextBox1.Text) + CSng(TextBox2.Text) + CSng(TextBox3.Text)
Label1 = Format(Label1, "#,0.00 TL")
TextBox3 = Format(TextBox3, "#,0.00 TL")
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = CSng(TextBox1.Text) + CSng(TextBox2.Text) + CSng(TextBox3.Text) + CSng(TextBox4.Text)
Label1 = Format(Label1, "#,0.00 TL")
TextBox4 = Format(TextBox4, "#,0.00 TL")
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = CSng(TextBox1.Text) + CSng(TextBox2.Text) + CSng(TextBox3.Text) + CSng(TextBox4.Text) + CSng(TextBox5.Text)
Label1 = Format(Label1, "#,0.00 TL")
TextBox5 = Format(TextBox5, "#,0.00 TL")
End Sub

 

[me68met]

Asi Kral çok teşekkürler ederim yardımlarınız için, gayet güzel ama textbox sayısı artarsa bu uygulama bayağı zor olacak gibi görünüyor.

 

[asi_kral]

Asi Kral çok teşekkürler ederim yardımlarınız için, gayet güzel ama textbox sayısı artarsa bu uygulama bayağı zor olacak gibi görünüyor.

Yani ben sadece sizin istediğinizi yaptım butonsuz istediniz bende olurunu gösterdim.

 

[me68met]

Yani ben sadece sizin istediğinizi yaptım butonsuz istediniz bende olurunu gösterdim.

Çok teşekkür ederim. Çok güzel oldu, ben sadece textbox sayılarını düşünmüştüm. Artarsa uygulaması zor olur diye. Emeğinize sağlık gayet güzel olmuştu.