TextBox Sayı Değerlerindeki "." ve "," Hatası

[tahkurth]

Ustadlarım bir sorunum var ve içinden çıkamadım. Öncelikle forumda benzer konulara bakıp denedim ama sonuç hep farklı çıkıyor. Userform aktifken textboxlar daki işlemler nokta çıkıyor. Ben değerlerin virgül ile gelmesini ve virgülden sonra en fazla 2 haneli olarak yazılmasını istiyorum. Yardımcı olabilir misiniz?

 

[tahkurth]

Yardımcı olabilecek birileri var mı?

 

[Mahmut Kök]

Aşağıdaki şekilde deneyin. Örneği diğer yerlere uyarlarsınız.

TextBox7.Value = Format(WorksheetFunction.Round(CDbl(TextBox4.Value), 2) * WorksheetFunction.Round(CDbl(TextBox6.Value), 2), "#,##0.00")

 

[tahkurth]

Teşekkürler. Kodları şu şekilde düzenledim ve herşey sorunsuz çalışıyor. Bütün textbox ların change lerine bu kodu yazdım.

Private Sub TextBox8_Change()
TextBox8.Value = WorksheetFunction.Round(CDbl(TextBox8.Value), 2)
TextBox8.Value = Replace(TextBox8.Value, ".", ",")
End Sub