textboxa sayı formatında veri alma sorunu

[chakistes]

merhaba arkadaşlar excelden textbox ile excele veri aktarırken doğru aktarıyor fakat excelden e sütünundan veri alırken 13.213,50 şekilde alması gerekirken 13213,5 şeklinde alıyor.
aşağıdaki kodları denedim yine yapamadım.
TextBox1 = Format(TextBox1.Text, "Currency")
TextBox1.Value = Format(CDbl(TextBox1.Value))
textbox1 = Format(textbox1, "#,##0.00")
TextBox1.Value = FormatCurrency(TextBox1.Value, 2)

 

[Ömer]

Merhaba,

Örnek A1 için:

TextBox1.Text = Format(Range("A1"), "#,##0.00")

 

[Orion1]

E sütununda ondalık ayıraç nokta kullanılmış.Türkçe windowsta ondalık ayıraç virgül kullanılması lazım.
Profilinizde Excel Vers. ve Dili kısmına sadece 2007 yazmışsınız.Dili yazmadığınızdan dolayı bir şey diyemiyecem.

 

[chakistes]

merhaba office 2010 kullanıyorum yukarıdaki kodu userformdan textboxa doğru aktarıyor fakat exceldeki kaydı çekerken hatalı aktarıyor örnek dosya ekledim. malzeme adı yazdıktan sonra adet kısmına 1149 girdik birim fiyat 11,75 girdik textbox içinde 13.500,75 hesaplıyor kaydet ve hesaplaya bastığımızda doğru yapıyor fakat programdan girip çıktığımızda veri al düğmesine bastığımızda 13500.75 bu şekilde yapıyor tekrar kaydete bu şekilde yaparsak hatalı oluyor

 

[Haluk]

Örnek olarak;

A1 hücresinde 13213,5 varsa, bunu TextBox1'de 13.213,50 TL olarak görüntülemek için;

TextBox1 = FormatCurrency(Range("A1").Text)

.

 

[chakistes]

Yardımınız için teşekkür ederim TL olmadan nasıl yapabiliriz

 

[Haluk]

2 No'lu mesaja bakınız, veya;

MsgBox Format(Range("A1"), "###,###.00")

.