Userform Üzerinde KDV Hesabı

[Hsn55]

İyi günler;
Ekli örnek dosyada Textbox1 'e Ana Para tutarını girdimizde bu ana paranın KDV%18 ini Textbox2 ye ve Anapara+KDV Toplamını ise TextBox3'e nasıl userform1 üzerinde anlık nasıl hesaplatabiliriz?

İndir KDV Hesaplama

Dosyayı indir KDV Hesaplama

dosya.co

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu kullanın.

Private Sub CommandButton1_Click()
    If IsNumeric(TextBox1.Value) Then
        TextBox2 = FormatNumber((TextBox1.Text * 0.18), 2)
        TextBox3 = FormatNumber(CDbl(TextBox2.Value) + CDbl(TextBox1.Value), 2)
    Else
        TextBox3 = "#HATA"
        TextBox4 = "#HATA"
    End If
End Sub

 

[Hsn55]

Muzaffer bey buton olarak değil de anlık veri girildik ce hesaplama yapabilir miyiz

 

[Muzaffer Ali]

Kodları Texbox Change olayına aktarın.

 

[Hsn55]

Muzaffer bey çok teşekkür ederim.