Textboxa girilen sayının virgülden sonra 3 basamak olamaması.

[matyyut]

Arkadaşlar merhaba;

Textboxlar'ı excell sayfasına yazan bir makro hazırladım. Sorunum şu ki; textboxlar'a yazmış olduğum virgülden sonraki 3 basamaklı sayıları excell hücresine doğru aktarmıyor.
Örnek olarak: Textbox'a girilen değer = 1,253
Excell hücresinde görünen değer =1253

Eğer textbox'a 1,25 girilir ise sorun yok.

Bu durumu nasıl düzeltebilirim?

 

[vardar07]

Deneyiniz.

XX=Replace(TextBox1.Value, ",", ".")

 

[matyyut]

Çok teşekkür ederim. Çözümün bu olduğu kesin. Çünkü değerleri "." ile girersem sıkıntı olmuyor. Ancak acemilik ve sınırlı bilgiden kaynaklı yazdığınız kodu nereye yapıştırmam gerektiğini bulamadım.

Private Sub TextBox1_Change()
xx = Replace(TextBox1.Value, ",", ".")
Sheets("H TAB").Range("AH" & 2).Value = TextBox1.Text

End Sub

Şeklinde ekledim ancak çalışmadı.

 

[vardar07]

Buyurun.

Sheets("H TAB").Range("AH" & 2).Value = Replace(TextBox1.Value, ",", ".")

 

[matyyut]

Efendim çok teşekkürler. Çözülmüştür.