TextBoxda Toplama

[manisalı88]

ekte bulunan excel dosyamda açıldıgı zaman onumuze userform gelıyor. Bu userformda toplama ışlemı yaptıracagım. Ama toplama yaparken virgülden sonrakı kurus hanelerini toplamıyor. bana yardımcı olabilir misiniz

 

[Orion1]

val yerine cdbl fonksiyonunu kullanınız.

 

[manisalı88]

yaptım olmadı hata veriyor bu kez

 

[Orion1]

yaptım olmadı hata veriyor bu kez

textbox7 için yaptım.Diğerlerini siz yapabilirisiniz.

Private Sub TextBox7_Change()
Dim sayi1 As Double, sayi2 As Double, sayi3 As Double
Dim sayi4 As Double, sayi5 As Double
If IsNumeric(TextBox7.Value) Then sayi1 = TextBox7.Value
If IsNumeric(TextBox11) Then sayi2 = TextBox11.Value
If IsNumeric(TextBox15) Then sayi3 = TextBox15.Value
If IsNumeric(TextBox19.Value) Then sayi4 = TextBox19.Value
If IsNumeric(TextBox23.Value) Then sayi5 = TextBox23.Value
TextBox25.Value = sayi1 + sayi2 + sayi3 + sayi4 + sayi5
End Sub

 

[manisalı88]

çok saolun teşekkur ederim