Listbox'tan Textbox'a aktarılan değer aynı biçimde çık

[Orion1]

Mrb.

Private Sub UserForm_Initialize()
UserForm4.TextBox1 = UserForm3.ListBox1.Column(8)
End Sub


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

---------------------------------------------------------------------------
yukarıdaki kodlarile listbox'tan aldığım numeric veriyi textbox1' e gönderiyorum.
Fakat doğru göstermiyor.
Mesela, listbox'ta 5.555,55 değeri ,Textbox'ta 555.555,00 şeklinde gözüküyor.
Formatlamazsam 555.55 şeklinde gözüküyor Bu da Türkçe sayı şekline uymuyor.
Desimal nokta Türkçe'de (, ) ile olduğundan dolayı.
Ã?nerileriniz için teşekkür ederim.
Kolay gelsin.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.
[vb:1:66627944d7]Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
[/vb:1:66627944d7]

 

[Orion1]

Aşağıdaki şekilde deneyin.
[vb:1:3943b36c0e]Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
[/vb:1:3943b36c0e]

Maalesef.
Denedim. Olmadı.
Teşekkür edrim kolay gelsin.

 

[class37]

Merhaba
Aşağıdaki kodla noktalama işaretini değiştirince dügün görünüyor.

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