TextBox ta sayı

[mbattal]

Günaydın Arkadaşlar,
Forumda bununla ilgili çok konu var, hepsini inceledim fakat kendi problemimi çözemedim.

Private Sub CommandButton4_Click()
Sheets("oto").Range("E28") = (TextBox10.Value)
Sheets("oto").Range("G28") = (TextBox11.Value)
Sheets("oto").Range("H28") = (TextBox12.Value)
Sheets("oto").Range("E29") = (TextBox13.Value)
Sheets("oto").Range("G29") = (TextBox14.Value)
End Sub

Ben önce başka bir kod yardımıyla excel sayfasındaki sayıları textbox lara alıyorum daha sonra textbox lardaki sayılara gerekli düzeltmeyi yaptıktan sonra ;
örneğin 2,502 excel sayfasına aktardığımda 2502,00 gibi farklı bir şey oluyor.

Kodlarda nasıl bir düzeltme yapılabilir.

TextBox sayısı yukarıdaki kadar değil textbox105'e kadar çıkıyor.


Saygılarımla

 

[haso_excel]

Private Sub TextBox10_Change()
TextBox4 = Format(TextBox10.Value, "#,##0.00")
End Sub

Umarım işinize yarar

 

[mbattal]

Sayın haso_excel,
ilginiz için teşekkür ederim fakat verdiğiniz kod tam olarak istediğim gibi çalışmıyor
teşekkürler

 

[haso_excel]

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox10= Format(TextBox10, "#,##0.00")
End Sub

Bir de böyle deneyin