Textbox kdv hesaplama

[sahika51]

İyi akşam kıymetli ustalar. Küçük bir yardıma ihtiyacım var yardımcı olursanız sevinirim.
Programda bilgi girişi yaptığımızda
1-tutar otomatik hesaplıyor ancak fiyat ondalıklı olursa örneğin 25,4 gibi virgülden sonraki değeri hesaplamıyor.
2-kdv yi hesaplatamadım. Toplamın kdvsi hem textbox17 ye yazması gerekiyot.
3-Genel Toplamında Toplam tutar ve KDV tutarının toplamının Textbox18 e yazması gerek.

 

[byfika]

Merhabalar,
Kodlara aşağıdaki kodu ilave ederseniz işleminiz olur..

Private Sub TextBox16_Change()
TextBox17.Value = Format(TextBox16 * 18 / 100, "#,##0.00")
TextBox18.Value = (Val(TextBox16) + Val(TextBox17))
TextBox18 = Format(TextBox18, "#,##0.00")
End Sub

 

[byfika]

Kodları bu şekilde değiştirirseniz hiç bir problem yaşamazsınız

Private Sub TextBox16_Change()
TextBox17.Value = Format(TextBox16 * 18 / 100, "#,##0.00")
TextBox18.Value = Format((1 * TextBox16) + (1 * TextBox17), "#,##0.00")
TextBox16 = Format(TextBox16, "#,##0.00")
End Sub

 

[sahika51]

Merhabalar,
Kodlara aşağıdaki kodu ilave ederseniz işleminiz olur..

Private Sub TextBox16_Change()
TextBox17.Value = Format(TextBox16 * 18 / 100, "#,##0.00")
TextBox18.Value = (Val(TextBox16) + Val(TextBox17))
TextBox18 = Format(TextBox18, "#,##0.00")
End Sub

byfika teşekkür ederim. kdv ve toplama ok.
Adet x Fiyatı kontrol edebilirmisiniz. Birim fiyat virgüllü yazıldığı zaman çarpma işlemini yanlış yapıyor
Örneğin Adet 3 Fiyat 25,4 girelim sonuç 76,20 olması gerekirken 75 oluyor

birde label 11 e genel toplamı yazı ile yazdırabilirmiyiz.

 

[sahika51]

Kodları bu şekilde değiştirirseniz hiç bir problem yaşamazsınız

Private Sub TextBox16_Change()
TextBox17.Value = Format(TextBox16 * 18 / 100, "#,##0.00")
TextBox18.Value = Format((1 * TextBox16) + (1 * TextBox17), "#,##0.00")
TextBox16 = Format(TextBox16, "#,##0.00")
End Sub

Biraz daha düzenledim son hali ekte. sadece burası kaldı
Adet x Fiyatı kontrol edebilirmisiniz. Birim fiyat virgüllü yazıldığı zaman çarpma işlemini yanlış yapıyor
Örneğin Adet 3 Fiyat 25,4 girelim sonuç 76,20 olması gerekirken 75 oluyor

 

[sahika51]

Arkadaşlar burda takıldım. Yardım..

 

[bycakir]

sıkıştırmadan ekleyebilirmisiniz dosyayı sirketimdeki gatevay rar indirmeye izin vermiyor

 

[sahika51]

sıkıştırmadan ekleyebilirmisiniz dosyayı sirketimdeki gatevay rar indirmeye izin vermiyor

 

[sahika51]

Arkadaşlar kafayı yiyicem neler neler denedim. olmuyor. Bir bakın lütfan.

 

[byfika]

Merhabalar Yeniden hazırlanmış dosyayı denermisiniz.

 

[byfika]

Merhabalar,
Bazı düzeltmeler yaptım. kaydet butonundan sonra Userform temizlenecek. Textbox16, 17, 18 manuel yazı girişi engellendi.

 

[sahika51]

Merhabalar,
Kaydet butonunun kodunu alttaki kodlarla değiştirirseniz kaydetten sonra userformu temizler.

Private Sub CommandButton1_Click()
Sheets("FATURA").Range("A5:E7").ClearContents
Sheets("FATURA").Range("E8:E9").ClearContents

Sheets("FATURA").Range("a5") = TextBox1
Sheets("FATURA").Range("a6") = TextBox2
Sheets("FATURA").Range("a7") = TextBox3

Sheets("FATURA").Range("b5") = TextBox4
Sheets("FATURA").Range("b6") = TextBox5
Sheets("FATURA").Range("b7") = TextBox6

Sheets("FATURA").Range("c5") = TextBox7
Sheets("FATURA").Range("c6") = TextBox8
Sheets("FATURA").Range("c7") = TextBox9

Sheets("FATURA").Range("d5") = TextBox10
Sheets("FATURA").Range("d6") = TextBox11
Sheets("FATURA").Range("d7") = TextBox12

Sheets("FATURA").Range("e5") = TextBox13
Sheets("FATURA").Range("e6") = TextBox14
Sheets("FATURA").Range("e7") = TextBox15

Sheets("FATURA").Range("e8") = TextBox16
Sheets("FATURA").Range("e9") = TextBox17
Sheets("FATURA").Range("e10") = TextBox18


TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""

End Sub

byfika iyi akşamlar. Teşekkürler ilgileniyorsunuz. iki tane problem görülüyor.
1. Örnek Fiyatı 1000 tl girdiğimizde 1000 180 181 sonucunu alıyorum
2. Genel toplam virgülden sonrakini 00 sıfırlıyor

 

[byfika]

Merhabalar, düzeltme yapıp yeni dosyayı gönderiyorum. Dener misiniz.

 

[sahika51]

Merhabalar, düzeltme yapıp yeni dosyayı gönderiyorum. Dener misiniz.

Byfika teşekkür ederim bir sorun görünmüyor.

 

[byfika]

Rica ederim işinizin görülmesine sevindim