Toplama işlemi

[erzen]

Ekte gönderdiğim dosyada userformda toplama işlemi yaptığımda eğer textboxlarda virgüllü bir sayı varsa toplama işlemi hatalı oluyor.Yardımlarınızı bekliyorum. Birde bu toplama işlemini butona basmadan yaptırabilirmiyiz. Yani değerlere göre textbox3 e kendisi toplasın. Teşekkürler

 

[hsayar]

hatalı olan formullerin başına cdbl koy yani

TexboxToplam = cdbl(textboxDeger1+textboxDeger2) gibi

 

[erzen]

Gönderdiğim dosyada gösterirseniz sevinirim

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz..

Private Sub ComboBox1_Change()
If TextBox2 = "" Then TextBox2 = 0
Sheets("Sayfa1").Select
Range("A1").Select
ComboBox1.RowSource = "A1:A65536"
For Each bul In Range("A1:A" & Range("A65536").End(3).Row)
If StrConv(bul, vbUpperCase) = StrConv(ComboBox1, vbUpperCase) Then
bul.Select
TextBox1 = Format(CDbl(ActiveCell.Offset(0, 1)), "#.0,0")
Sheets("Sayfa1").Select
End If
Next
TextBox3 = Format(CDbl(TextBox1.Value) + CDbl(TextBox2.Value), "#.0,0")
End Sub

Private Sub ComboBox2_Change()
If TextBox1 = "" Then TextBox1 = 0
Sheets("Sayfa1").Select
Range("D1").Select
ComboBox2.RowSource = "D1:D65536"
For Each bul In Range("D1:D" & Range("D65536").End(3).Row)
If StrConv(bul, vbUpperCase) = StrConv(ComboBox2, vbUpperCase) Then
bul.Select
TextBox2 = Format(CDbl(ActiveCell.Offset(0, 1)), "#.0,0")
Sheets("Sayfa1").Select
End If
Next
TextBox3 = Format(CDbl(TextBox1.Value) + CDbl(TextBox2.Value), "#.0,0")
End Sub