Combobox ve TextBox taki değerleri artitmek toplama

[tamer42]

Merhaba,

Ekli dosyada yer alan Userform' da Combobox sayfadan veriler almakta; yalnız bu veriler decimal (1- 1,5- 2 - 2,5- 3)

daha sonra Combobox' ta seçtiğim değer ile TextBox1' de yazan değeri toplatmak ve bu toplamı TextBox2' ye yazdırmak istediğimde, farklı sonuçlar ortaya çıkıyor ve TextBox2' ye gelen değer virgül yerine nokta geliyor.

bu işin içinde nasıl çıkacağız, normal aritmetik toplama yaptırmak istiyorum. (1,5 + 1 = 2,5 ) (2,5 + 1,5 = 4 )

teşekkürler,

iyi pazarlar.

 

[Korhan Ayhan]

İnceleyiniz.

https://www.excel.web.tr/threads/userform-uezerinde-pratik-doert-islem.43262/

 

[tamer42]

İnceleyiniz.

https://www.excel.web.tr/threads/userform-uezerinde-pratik-doert-islem.43262/

Sn Kayhan Korhan çok teşekkürler,
buradaki örnekleri inceledim, hepsi TextBox üzerinden hesaplanıyor, işin içine Combobox girdiği için bu düzenlemeyi yapamadım, rica etsem gönderdiğim örnek üzerinde düzenleme yapabilir misiniz,

tekrar teşekkürler,
iyi pazarlar.

 

[Ziynettin]

Tüm kodlarınızı silin ve aşağıdaki kodları deneyin.

Private Sub ComboBox1_Change()
    topla
End Sub

Private Sub ComboBox1_Click()
    ComboBox1 = Format(Replace(Replace(ComboBox1, ",", ""), ".", ","), "#,##0.00")
End Sub

Private Sub TextBox1_AfterUpdate()
    TextBox1 = Format(TextBox1, "#,##0.00")
End Sub

Private Sub TextBox1_Change()
    topla
End Sub

Private Sub UserForm_Activate()
    With ComboBox1
    .RowSource = "=Sayfa1!E2:E6"
    End With
End Sub
Sub topla()
    If TextBox1 = "" Then x = 0 Else x = CDbl(TextBox1)
    If ComboBox1 = "" Then y = 0 Else y = Format(ComboBox1, "#,##0.00")
    m = Format(x + y, "#,##0.00")
    TextBox2 = m
End Sub

 

[tamer42]

Tüm kodlarınızı silin ve aşağıdaki kodları deneyin.

Private Sub ComboBox1_Change()
    topla
End Sub

Private Sub ComboBox1_Click()
    ComboBox1 = Format(Replace(Replace(ComboBox1, ",", ""), ".", ","), "#,##0.00")
End Sub

Private Sub TextBox1_AfterUpdate()
    TextBox1 = Format(TextBox1, "#,##0.00")
End Sub

Private Sub TextBox1_Change()
    topla
End Sub

Private Sub UserForm_Activate()
    With ComboBox1
    .RowSource = "=Sayfa1!E2:E6"
    End With
End Sub
Sub topla()
    If TextBox1 = "" Then x = 0 Else x = CDbl(TextBox1)
    If ComboBox1 = "" Then y = 0 Else y = Format(ComboBox1, "#,##0.00")
    m = Format(x + y, "#,##0.00")
    TextBox2 = m
End Sub

Çok teşekkürler,
emeğinize sağlık....