Textboxlarda sayı formatlarında (.) ve (,) sorunu

[sin77]

Merhaba arkadaşlar. uzun zamandır uğraştığım bir formda sorunum var. Şöyleki;
Textboxa sayı girişi yapıyorum. Örneğin 1.999,11 Bunu yazarken (.) ve (,) kullanarak yazıyorum ama hücrede metin olarak gözüküyor. Fakat 1,999.11 şeklinde yazarsam hücrede sayı olarak gözüküyor ve istediğim değeri veriyor.

Kullandığım formül şu
UserForm_Initialize()
TextBox1.Text = Format(TextBox1.Text, "#,##0.00")

Private Sub TextBox1_Afterupdate()
TextBox1.Value = Format(TextBox1.Value, "#,##0.00")


Excelin ondalık ve binlik ayraçlarını değişirsem sorunum çözülüyor fakat bu seferde diğer belgelerde ondalık (.) binlik (,) oluyor.
Acaba 1.999,11 şeklinde yazıp nasıl sayı olarak hücreye getirebilirim. Teşekkürler

 

[mancubus]

aşağıdaki bir değişiklik yaptı mı?

Private Sub TextBox1_Change()
    TextBox1.Value = Format(Val(TextBox1.Value), "#,##0.00)
End Sub

 

[sin77]

olmadı çözmedi

 

[Excelmy]

Kayıt kodlarınızda,
CDbl(TextBox1.Text) şeklinde uygulama yapınız.

 

[sin77]

Textbox1.Text=Format(CDbl(Textbox1.Text,"#,##0.00

Bu şekildemi demek istediniz?

 

[mancubus]

Range("A1") = CDbl(TextBox1) gibi...

veya kod içinde bir değişkene atayarak.

 

[mancubus]

şu konuya da bir bakın...

http://www.excel.web.tr/f48/val-replace-textbox1-text-t83279.html

 

[sin77]

oldu arkadaşlar teşekkür ettim.

 

[sin77]

Üstad bu seferde textbox boş olunca makro uyarı veriyor.

 

[mancubus]

tabii kodları görmek daha fazla fikir verirdi.

on error resume next ifadesi ile hata veren bölüm atlanabilir veya if textbox1 = "" Then .... ile başka bir komut uygulanabilir. ... yerine yapmak istediğiniz şeyi yazarsınız.