Textbox,ta sifir veya noktadan sonra hesap

[Jezus]

Selamlar

Arkadaslar Textbox7 de Noktadan sonra gelen rakami Textbox9 hesaplamiyor nerede hata yapiyorum ( ornek 1.15 olursa sorun yok fakat 0.80 olursa problem oluyor) bir fikir icin zamani olan varmi..?



Private Sub TextBox7_Change()
TextBox7.Text = Format(TextBox7.Text, "#.##;0,00")
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub

Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(".")
Case Else
End Select
End Sub

Private Sub TextBox8_Change()
TextBox9 = Val(TextBox7) * Val(TextBox8)
End Sub

Private Sub TextBox9_Change()
TextBox9.Text = Format(TextBox9.Text, "#.##;0,00")
On Error Resume Next '
Dim i As Currency, e As Currency
i = TextBox7
e = TextBox8
TextBox9 = i * e
End Sub

 

[Ongun]

Merhaba , aşağıdaki link`e bakarmısınız. Kolay gelsin.

http://www.excel.web.tr/viewtopic.php?t=14842

 

[Jezus]

Sayin Ongun cevabiniz icin tesekkur ederim fakat yine cozemedim

 

[Levent Menteşoğlu]

Kodlardaki Val fonksiyonunu kaldırın ve direk çarpın.

 

[Jezus]

Merhaba hocam nasilsiniz..?

Cevap icin tesekkur ederim