Kuruş sorunu

[yavuz829]

Merhaba arkadaşlar ekteki dosyamda UserForm1 deki TextBox4 Fiyat bölümüne ,55 şeklinde başına sıfır koymadan rakam girebilmem için aşagıdaki kodları nasıl eğiştirmem lazım.

Private Sub TextBox3_Change()
deg1 = IIf(TextBox3 = "", 0, TextBox3)
deg2 = IIf(TextBox4 = "", 0, TextBox4)
0 NO: TextBox5 = Format(Replace(CDbl(deg1) * CDbl(deg2), ".", ","), "#,##0.00")
End Sub

 

[Necdet]

Merhaba,

TextBox5 = Format(Replace(CDbl(deg1) * CDbl(deg2), ".", ","), "#,###.00")

şeklinde dener misiniz?

 

[yavuz829]

Hocam olmiyor kod hatası veriyor.

 

[halit3]

Bunu denermisiniz.

Private Sub TextBox3_Change()
If Right(TextBox3.Text, 1) = "." Then TextBox3.Text = Mid(TextBox3.Text, 1, Len(TextBox3.Text) - 1) & ","
If Right(TextBox3.Text, 1) = "," Then Exit Sub
deg1 = IIf(TextBox3 = "", 0, TextBox3)
deg2 = IIf(TextBox4 = "", 0, TextBox4)
TextBox5 = Format(Replace(CDbl(deg1) * CDbl(deg2), ".", ","), "#,##0.00")
End Sub

 

[yavuz829]

Şimdi oldu çok teşekürler ellerinize sağlık.

 

[halit3]

Bende çalışıyor

 

[yavuz829]

Çok teşekurler hocam yanlış kodu değiştirmişim. Bendede çalıştı. ellerinize sağlık.

 

[halit3]

Çok teşekurler hocam yanlış kodu değiştirmişim. Bendede çalıştı. ellerinize sağlık.

İyi çalışmalar