K.D.V hesaplama

[g_demir]

K.D.V hesaplama konusunda yardımlarınızı beklıyorum arkadaşlar
örnek ekte şimdiden teşekkür ederim

 

[Ayhan Ercan]

Private Sub CheckBox1_Click()
kdv = CDbl(TextBox5) * 18 / 100
If CheckBox1.Value = True Then
TextBox6 = kdv
TextBox7.Value = CDbl(TextBox5) + kdv
End If
If CheckBox1.Value = False Then
TextBox6 = Empty
TextBox7.Value = TextBox5.Value
End If
End Sub


Private Sub TextBox5_Change()
If CheckBox1.Value = False Then
TextBox7.Value = TextBox5.Value
End If
End Sub

 

[Kenantu]

Dostum kolay gelsin
Dosyana baktım ve hazırladığın UserFormun kod sayfasına aşağıdakileri yazarsan sorun çözülecektir.




Private Sub CheckBox1_Click()
TextBox5.Value=Val(TextBox5.Value)*18%
TextBox7.Value=Val(TextBox5.Value)+Val(TextBox6.Value
End Sub


İyi Çalışmalar

 

[g_demir]

Sn:SchakaL cevabınız için çok teşekür ederim
çok işime yaradı

 

[Ayhan Ercan]

fayda sağlayabildiysek ne mutlu bize...

 

[uguristanbul]

tesekurrler