texboxlarda 4 işlemde sorun

[nazifdural]

Arkadaşlar Merhaba,
Şöyle bir sorunum var.
1-Texbox9 da yazdığım rakamın %8 kdv.sini Texbox10 yazacak.Yine Textbox13 e yazdığım rakamın %18 kdv.sini Textbox14 yazacak.. 2-Textbox9+Textbox10+Textbox13+Textbox14 toplamını Textbox15 yazacak.
3- Textbox9+Texbox10/Textbox11 cevabınıda Textbox12 yazacak.

Yardımcı olursanız çok sevinirim.
Şimdiden çok teşekkür ederim
Dosya ektedir
Saygılar,

 

[ynmcan]

Syn. Nazifdural; Ekteki dosyayı inceleyin, istediğiniz olmuşmu ?

 

[nazifdural]

Merhabalar
textbox15 e toplam almıyor...

 

[Terkanli]

Merhaba Nazif,
aşağıdaki kodu userform1 e yapıştır
Private Sub TextBox9_Change()
'1-Texbox9 da yazdığım rakamın %8 kdv.sini Texbox10 yazacak.
'Yine Textbox13 e yazdığım rakamın %18 kdv.sini Textbox14 yazacak..
'2-Textbox9+Textbox10+Textbox13+Textbox14 toplamını Textbox15 yazacak.
'3- Textbox9+Texbox10/Textbox11 cevabınıda Textbox12 yazacak.
'Userform da textbox ların value seçeneğini 0 olarak verin
'Userform da textbox ların textalign frmtextalignright a çevirin
On Error Resume Next
Dim KDVMATRAH8 As Double
KDVMATRAH8 = TextBox9.Value
TextBox10.Value = Format(KDVMATRAH8 * 8 / 100, "#,##0.00")
Topla
End Sub
Private Sub TextBox11_Change()
TextBox12.Value = Format(TextBox15.Value / TextBox11.Value, "#,##0.0000")
End Sub
Private Sub TextBox13_Change()
On Error Resume Next
Dim KDVMATRAH18 As Double
KDVMATRAH18 = TextBox13.Value
TextBox14.Value = Format(KDVMATRAH18 * 18 / 100, "#,##0.00")
Topla
End Sub
Sub Topla()
Dim KDV8 As Double
Dim KDV18 As Double
Dim GENELTOPLAM As Double
KDVMATRAH8 = TextBox9.Value
KDV8 = TextBox10.Value
KDVMATRAH18 = TextBox13.Value
KDV18 = TextBox14.Value
GENELTOPLAM = KDVMATRAH8 + KDV8 + KDVMATRAH18 + KDV18
TextBox15.Value = Format(GENELTOPLAM, "#,##0.00")
End Sub
Bodrum' a selamlar
Tansu

 

[nazifdural]

Sn tansu,
öncelikle yazdığınız kodlar için çok teşekkür ederim.söylediklerinizi aynen yaptım.fakat hata msj.veriyor..run time error '13': type miscmatch debug yaptığımda TextBox12.Value = Format(TextBox15.Value / TextBox11.Value, "#,##0.0000") bu satırda hataya yöneliyor..kendim bulmaya çalıştım fakat malesef bu sorun beni aşıyor..

 

[ynmcan]

Merhabalar
textbox15 e toplam almıyor...

Syn. Nazifdural ;
textbox1' e toplam direk gelmiyor. genel toplama ( Label114 ) tıklamanız gerekli.
Ancak direk gelmesini istiyorsanız ekteki dosyayı deneyiniz.

 

[Terkanli]

Sn tansu,
öncelikle yazdığınız kodlar için çok teşekkür ederim.söylediklerinizi aynen yaptım.fakat hata msj.veriyor..run time error '13': type miscmatch debug yaptığımda TextBox12.Value = Format(TextBox15.Value / TextBox11.Value, "#,##0.0000") bu satırda hataya yöneliyor..kendim bulmaya çalıştım fakat malesef bu sorun beni aşıyor..

'Userform da textbox ların value seçeneğini 0 olarak verin
'Userform da textbox ların textalign frmtextalignright a çevirin
Hata vermez ve doğru hesaplama yapar

 

[G_GÜZİN]

merhaba,

bu sorun excel 2007'de yaşanıyor.

TextBox21.Value = Format(TextBox21, "#,##0.00") gibi bir kodlama kullanılırsa excel2003'te hiç sorun yaşanmıyor ancak 2007'de aynı kod çalışmıyor, form hata veriyor.

bu konuda yardımcı olabilecek var mı?