Userform ile KDV Hesaplama

[1Al2Ver]

Merhaba,

Mevcut userform, girilen KDV değerini hesaplayarak rakamdan düşmekte ve hem KDV miktarını hem de kalanı vermekte,

İsteğim aynı userform üzerinde başka bir buton ile girilen rakamın KDV'sini hesaplatmak, teşekkür ederim.

İyi iftarlar,

 

[Ferhat Pazarçevirdi]

Userformdaki CommandButton2'nin kodunu aşağıdaki gibi geliştiriniz.

Private Sub CommandButton2_Click()
    If IsNumeric(TextBox9) And IsNumeric(TextBox10) Then
        TextBox11 = Format(CDbl(TextBox9) * (1 + (CDbl(TextBox10) / 100)), "#,##0.00")
        TextBox12 = Format(CDbl(TextBox9) * (CDbl(TextBox10) / 100), "#,##0.00")
    Else
        TextBox11 = "#HATA"
        TextBox12 = "#HATA"
    End If
End Sub

 

[1Al2Ver]

Userformdaki CommandButton2'nin kodunu aşağıdaki gibi geliştiriniz.

Private Sub CommandButton2_Click()
    If IsNumeric(TextBox9) And IsNumeric(TextBox10) Then
        TextBox11 = Format(CDbl(TextBox9) * (1 + (CDbl(TextBox10) / 100)), "#,##0.00")
        TextBox12 = Format(CDbl(TextBox9) * (CDbl(TextBox10) / 100), "#,##0.00")
    Else
        TextBox11 = "#HATA"
        TextBox12 = "#HATA"
    End If
End Sub

Sayın Ferhat Pazarçevirdi, elinize sağlık, çok teşekkür ederim, saygılarımla.