Textbox'a küsüratlı sayı formatı

[Ayhan Ercan]

selam arkadaşlar.
forumda epeyi arama yaptım ama benim sormak istediğimi maalesef bulamadım.

textboxa sayı formatı olarak:

Textbox1.value= Sheets("Sayfa1").Cells(1,1)
TextBox1.Value = Format(TextBox1.Value, "#,##0.00 YTL") olarak yazıyorum.

sayfa 1 deki rakamları textboxa verirken küsüratı olmayan sayılarda sorun yapmıyor. ama küsüratlı olanlarda sorun yapıyor. şöyle:

hücrede 120,00 varsa textbox' da aynen 120,00 olarak geçiyor ama
hücrede 120,80 varsa (yani küsürl&#252 bu sefer textbox'a 1.208,00 olarak geçiyor.

hücrede 120,80 yazıyorsa textboxa da 120,80 geçsin istiyorum
bunu nasıl düzeltebilirim????

 

[yeniyetme]

ben bu işlerde yeniyim ama bir çözüm buldum galiba
sanırım senin için sorun çıkarmayacak
kodu şu şekilde tekrar düzenle

Private Sub UserForm_Click()
TextBox1.Value = Sheets("Sayfa1").Cells(1, 1)
TextBox1.Value = Format(TextBox1.Value, "0.00 YTL")
End Sub

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

TextBox1 = FormatCurrency([A1], 2)

 

[Ayhan Ercan]

teşekkürler, ama o şekilde de denememe rağmen olmadı

 

[ZİNDAN]

Bu sorun bende de var, bugünlerde onunla uğraşıyorum ama bir türlü çözümünü bulamadım.

Üstadların el atması lazım sanırım.

 

[Korhan Ayhan]

Selamlar,

Birde aşağıdaki kodu denermisiniz.

TextBox1 = FormatCurrency((CDbl([A1])), 2)

 

[Ayhan Ercan]

arkadaşlar deniyorum deniyorum olmuyor.
ekte küçücük bir örnekleme yolluyorum.

textboxlardaki formata bir bakıverseniz sevgili üstadlarım. çıldırcak gibi oldum. 2 gündür bir tek bu olay için uğraşıyorum ama neticelendiremedim hala

 

[Ferhat Pazarçevirdi]

Userformdaki Combobox'ın kodunu şu şekilde değiştirin. Kırmızı ile belirtilen değişiklik yapıldı.

Private Sub ComboBox1_Change()
DoEvents
On Error Resume Next
Dim X As Integer
X = Sheets("veri").Range("a:a").Cells.Find(what:=ComboBox1, LookIn:=xlValues).Row
For a = 1 To 3
[COLOR=red]    Controls("textbox" & a) = Format(Sheets("veri").Cells(X, a + 1).Text, "#,##0.00 YTL")
[/COLOR]Next
End Sub

 

[yeniyetme]

arkadaşlar deniyorum deniyorum olmuyor.
ekte küçücük bir örnekleme yolluyorum.

textboxlardaki formata bir bakıverseniz sevgili üstadlarım. çıldırcak gibi oldum. 2 gündür bir tek bu olay için uğraşıyorum ama neticelendiremedim hala

gönderdiğin dosyayı açtım
hiç dokunmadım dosyaya
bende çıkan şekli gönderiyorum sana jpg formatında
eğer sende farklı çıkıyorsa denetim masasındaki
bölgesel ayarları bir kontrol et derim.

 

[Ayhan Ercan]

@Ferhat Pazarçevirdi çok sağolun, örnek dosyamda denedim ve sonuç pozitif. umarım kendi dosyamda da sorunsuz olarak çalıştırabilrim. tekrar çok sağolun. başarılar...

 

[hryildirim]

Textbox'ta "." ve "," problemi

arkadaşlar bende aynı problemi yaşıyordum. Ben problemi text box veri aktarmadan önce sayıyı round komutu ile 2 haneye yuvarlayarak çözdüm. Bilmiyorum nederece mantıklı ama oldu. Bu konuda daha tecrübeli arkadaşlar ne derler acaba.

İyi Çalışmalar

 

[yenilik025]

Merhabalar Küsuratlı Sayı Hatası ?? Off öldüm valla.

Eklemiş olduğum resim ve kodlarda;
50,00
60,00
67,50
75,00
80,00
85,00
90,00
50,00
57,50
65,00
72,50
80,00
87,50
sayıları var. bu sayıları çağırdığımda (süzdüğümde)
tam sayıları yalnızca .... 50
buçukluları ise .... 675 gibi göstermektedir.

Kod ve sayılar ektedir.Bizleri bu konuda aydınlatabilirmisiniz selamlar.

Private Sub TextBox22_Change()
TextBox22 = Format(TextBox22, "##,##")
End Sub