Combobox a girilen sayıları diğer combo boxta toplatmak

[Fenomen]

iyi çalışmalar

ben comboboxlara girdiğim rakamları diğer bir combo boxta toplatmak istiyorum
bu kod ile
Private Sub gYrdMlz2_Change()
If gYrdMlz2 = "" Then
gYrdMlz2 = 0
GoTo x1
End If

gYrdMlzFyt.Value = gYrdMlz2.Value + gYrdMlz3.Value + gYrdMlz4.Value + gYrdMlz5.Value + gYrdMlz6.Value + gYrdMlz7.Value + gYrdMlz8.Value + gYrdMlz9.Value + gYrdMlz10.Value
x1: End Sub
Private Sub gYrdMlz3_Change()
If gYrdMlz3 = "" Then
gYrdMlz3 = 0
GoTo x1
End If

gYrdMlzFyt.Value = gYrdMlz2 + gYrdMlz3 + gYrdMlz4 + gYrdMlz5 + gYrdMlz6 + gYrdMlz7 + gYrdMlz8 + gYrdMlz9 + gYrdMlz10
x1: End Sub

comboboxlara sayıları girince toplam alınan comboboxta şöyle oluyor

1.combobox =1
2.combobox =1
3.combobox =1
...

böyle girdiğimde

toplam alınan yer 111 oluyo biyerde yanlış yapıyorum ama nerde

 

[ALPEN]

gYrdMlzFyt.Value = cint(gYrdMlz2) + cint(gYrdMlz3) + .........

 

[Fenomen]

ilk önce sizden özür dilerim textbox yazacağıma combo box yazmışım

Sn. Alpen Cint ile söylediğiniz şekille yaptığımda boş textboxlar olduğunda hata verdi
bende if textbox = "" then: textbox = 0 ile çalıştırdım fakat en az 6 basamaklı sayı girildiğinde overflow hatası verdi bununla ilgili ne yapabilirim acaba şimdiden teşekkürler

 

[ALPEN]

Clng yi deneyin.

 

[Fenomen]

çok saol şimdi oldu

 

[BeyazGölge]

Arkadaşlar Clng de Cint de over flow hataları alıyorum. Tam olarak kullanılış şeklini bileniniz var mı ??

 

[Levent Menteşoğlu]

Toplama sonucunu alacağınızı Texbox3 kabul edersek aşağıdaki kodu Textbox3'in içine yazınız.

Private Sub TextBox3_Enter()
TextBox3 = CInt(TextBox1) + CInt(TextBox2)
End Sub

veya

Private Sub TextBox3_Enter()
TextBox3 = Val(TextBox1) + Val(TextBox2)
End Sub

ondalıklı sayılarıda toplaması için

Private Sub TextBox3_Enter()
TextBox3 = Ccur(TextBox1) + Ccur(TextBox2)
End Sub

selamlar

 

[BeyazGölge]

teşekkür ederim hemen deneyeceğim.