TextBoxların toplamında küsurların toplanamaması sorunu

[baknediycem]

kodlarım aşağıdaki şekilde , ama 35,45+25,75 toplamını 60 olarak görüyorum. yani küsürleri toplamıyor. yardımcı olunuz.

Private Sub CommandButton3_Click()
TextBox32 = Val(TextBox6) + Val(TextBox7) + Val(TextBox8) + Val(TextBox9) + Val(TextBox10) + Val(TextBox11) + Val(TextBox12) + Val(TextBox13) + Val(TextBox14) + Val(TextBox15) + Val(TextBox16) + Val(TextBox17) + Val(TextBox18) + Val(TextBox19) + Val(TextBox20) + Val(TextBox21) + Val(TextBox22) + Val(TextBox23) + Val(TextBox24) + Val(TextBox25) + Val(TextBox26) + Val(TextBox27) + Val(TextBox28) + Val(TextBox29) + Val(TextBox30) + Val(TextBox31)
End Sub

Private Sub TextBox32_Change()
TextBox32 = Format(TextBox32, "#,##0.00 YTL")

End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodu deneyiniz.

Private Sub CommandButton3_Click()
Dim i As Byte, toplam As Single
For i = 6 To 31
    If IsNumeric(Controls("TextBox" & i)) Then
        toplam = Controls("TextBox" & i) + toplam
    End If
Next
TextBox32.Value = Format(toplam, "#,##0.00")
End Sub

 

[baknediycem]

sn sezar

butun pazar gunum boyunca beni ugrastıran bu sorundan kurtardıgınız ıcın mınnettarım. cok tesekkur ederim. kolay gelsin. isiniz rast gitsin .

:hey:

 

[Orion1]

Rica ederim.
İyi çalışmalar.