texbox a girilen 2,5 rakamını hücreye 2,00 olarak yazıyor

[jambow]

formtaki texboxa girilen küsüratlı rakamları (2,5---2,9) hücreye 2 ,00 olarak yazıyor.

ancak virgül ile değilde nokta ile yazınca doğru yazıyor

 

[janveljan]

Formun initializa olayına aşağıdaki kodu ekleyim

TextBox3.Enabled = False

Virgül ile ilgili de aşağıdaki gibi deneyebilirsiniz, ancak hücrede metin şeklinde görünüyor, başka bir çözüm gelecektir herhalde.

Sheets("isimler").Cells(Son_Satir, 7) = Format(CDbl(TextBox2), "#,##0.00")

 

[janveljan]

Sheets("isimler").Cells(Son_Satir, 7) = CDbl(Format(CDbl(TextBox2), "#,##0.00"))

Bu şekilde kullanınca yukarıda bahsettiğim sorun da kalmadı.

 

[janveljan]

Yukarıdaki gibi girince de bu sefer "." ile girilen değerlerde problem çıkıyor, en iyisi muhtemelen bu olacak.

Sheets("isimler").Cells(Son_Satir, 7) = Val(Replace(TextBox2, ",", "."))

 

[jambow]

allah razı olsun arkadaş