hücre değerini userforma getirme

[ms_6647]

Merhabalar,

Ekteki dosyada A1 hücresine girilen (1.250,00) değeri userforma getirdiğinde (1250) ondalık basamağı ile 1000 ayrıcısını yapmıyor. bunu nasıl düzelte bilirim

 

[enegen]

arkadaşım Value yerine text yaz.

 

[ersoyalan]

Merhaba,

Kodlarınızı bu şekilde değiştirin.

Private Sub UserForm_Initialize()
TextBox1.Text = Range("A1").Value
TextBox1 = Format(CCur(TextBox1.Value), "#,##0.00")
End Sub