Userforma giriş problemi

[byfika]

Merhabalar, USERFORM iki textbox ı topladığımda virgülün sağındaki rakamları toplamıyor. Çözüm aramaktayım,
Örnek resim ve kitapta detaylar yazılı. Bilgileriniz için şimdiden teşekkürler

 

[Ömer BARAN]

Merhaba.

-- UserForm_Activate kodunu silip onun yerine aşağıdaki ilk kod'u (Initialize) kullanın
(KDV ve Fatura Tutarı kısmı elle yazılmayacağından o TextBoxları pasif yapmakta yarar var),
-- Combobox15 için aşağıdaki ikinci kod'u kullanın,
(Combobox15'te değişiklik yapıldığında hesaplamanın yeniden yapılması gerekir),
-- TextBox9'un kodlarını da aşağıdakiyle değiştirin.

İstediğiniz sonucun bu şekilde elde edilmesi lazım.
.

[B][COLOR="blue"]Private Sub UserForm_Initialize()[/COLOR][/B]
    Call Kayıtbul
    TextBox10.Enabled = False
    TextBox11.Enabled = False
[B][COLOR="Blue"]End Sub[/COLOR][/B]

[B][COLOR="red"]Private Sub ComboBox15_Change()[/COLOR][/B]
If ComboBox15 = "" Then
    TextBox10 = "": TextBox11 = ""
    Exit Sub
Else
    If TextBox9 = "" Then tutar = 0
    If TextBox9 <> "" Then tutar = 1 * TextBox9
        TextBox10.Value = Format(tutar * ComboBox15 / 100, "#,##0.00")
        TextBox11.Value = Format(tutar * (1 + ComboBox15 / 100), "#,##0.00")
End If
[B][COLOR="Red"]End Sub[/COLOR][/B]

[B]Private Sub TextBox9_Change()[/B]
If Not IsNumeric(TextBox9.Text) Then
    Beep
    If TextBox9 <> "" Then MsgBox "Numerik olmayan bir değer girdiniz"
    If TextBox9 = "" Then Exit Sub
    TextBox9 = Left(TextBox9, Len(TextBox9) - 1)
    Exit Sub
End If
    If ComboBox15 = "" Then Exit Sub
    If TextBox9 = "" Then tutar = 0
    If TextBox9 <> "" Then tutar = 1 * TextBox9
TextBox10.Value = Format(tutar * ComboBox15 / 100, "#,##0.00")
TextBox11.Value = Format(tutar * (1 + ComboBox15 / 100), "#,##0.00")
[B]End Sub[/B]

 

[byfika]

Teşekkürler

Merhabalar Ömer bey,
Kusura bakmayın, yanıtınızı dışarıda olduğum için geç gördüm. Kodları uyguladım ve çalışmakta. Çok çok teşekkürler. Ellerinize sağlık.