Tekboxda hesaplama problemi

Katılım
3 Mart 2005
Mesajlar
609
Excel Vers. ve Dili
2010 Excel-Türkçe
Altın Üyelik Bitiş Tarihi
21/03/2019
Merhaba
Excelde textboxa matematiksel işlem yaptırtmak kaday gıcık(!) bir iş yok herhalde.bir türlü derdimi anlayamadı.
Yapmak istediğim işlemi aşağıda açıkladım. Üstadlar kısa sürede çözer.
Programda işlemler YTL olarak yapılmaktadır. Sonuçların işlemden sonra 100,52 şeklinde görünmesi gerekiyor.

İşlemler:
a=Yevmiye (hesaplamadan sonra otomatik yazılıyor)
b=yol gideri(hesaplamadan sonra otomatik yazılıyor)
c=Konaklama gideri(Kullanıcı veriyi giriyor)
d=Ptt masrafı(hesaplamadan sonra otomatik yazılıyor)

Hak ve masraf toplamı=(a+b+c+d)
Damga Vergisi=hak ve masraf toplamı*6/1000
Bu ay toplamı= Hak ve masraf toplamı – damga vergisi
e=Geçen ay toplamı(Kullanıcı veriyi giriyor)
bütün toplam= Bu ay toplamı+e
Bu basit(!) işlem hususunda yardımlarınızı bekliyorum.
 
Katılım
7 Temmuz 2004
Mesajlar
327
Excel Vers. ve Dili
office xp pro türkçe
Sanırım aşağıdaki örnek işinizi görecektir.
 
Katılım
3 Mart 2005
Mesajlar
609
Excel Vers. ve Dili
2010 Excel-Türkçe
Altın Üyelik Bitiş Tarihi
21/03/2019
sayın abdi cevabınız için teşekkür ederim.
ancak damga vergisi sonucu doğru çıkmıyor.1000 toplamına göre 6 olması gereken değer 0,01 sonucunu üretiyor.asıl problem yaşadığm yer de burasıydı zaten.
tekrar bakarsanız sevinirim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,248
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. abdi beyin dosyasındaki hesaplama kodlarını aşağıdaki ile değiştiriniz.

Kod:
Private Sub CommandButton1_Click()
TextBox6.Value = Format(Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4), "#,##0.00")
TextBox7.Value = Format(CDbl(TextBox6 * 6 / 1000), "#,##0.00")
TextBox8.Value = Format(CDbl(TextBox6) - CDbl(TextBox7), "#,##0.00")
TextBox9.Value = Format(CDbl(TextBox8) + Val(TextBox5), "#,##0.00")
End Sub
 
Katılım
26 Ocak 2006
Mesajlar
68
Excel Vers. ve Dili
2000 tr
metinozlu elinizdeki kodları aşağıdaki kodlarla değiştirin ?

Private Sub CommandButton1_Click()
TextBox6.Value = Format(Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4), "##0.00")
TextBox7.Value = Format(CDbl(TextBox6 * 6 / 1000), "##0.00")
TextBox8.Value = Format(CDbl(TextBox6) - CDbl(TextBox7), "##0.00")
TextBox9.Value = Format(CDbl(TextBox8) + Val(TextBox5), "##0.00")
End Sub


kolaygelsin istediğin bu dur inşallah
 
Üst