Textbox'a ytl formatı nasıl verebiliriz?

[tevfikseremet]

iyi çalışmalar,

userform üzerindeki textbox1' e ytl formatı nasıl atanır?
verilerimi proğramı çalıştırdığımda giriyorum ve bir hücreye atamak istiyorum.

TextBox1 = Format(TextBox1, "#,##0") kodu tl 'yi binlik ayırarak yazdırıyor. YTL formatı için yardımcı olursanız sevinirim.

officeXp kullanıcısıyım.

 

[xxrt]

Forumda buna ilişkin çok örnekler var.
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "###,###.00")
End Sub

 

[mavidus]

peki bunu label lara nasıl uygulayabiliriz.Mesala elimizde bir userform var ve hücrelerde toplama yapıp user form üzerinde yeralan label1'e aktarılıyor bunu nasıl ytl formatına çevirebiliriz.

 

[class37]

Merhaba

Label1.Caption = Format(TextBox4.Value, "#,##0.00")

 

[mavidus]

teşekkürler class37
ama benim elimde hiç textbox yok.Sayfa1 içericinde verileri a25 hücresinde topluyor ve bende bunu user form üzerinde bulunan label 10' a YTL formatında aktarmak istiyorum aşağıdaki kodları denedim ama başaramadım;
Private Sub UserForm_Initialize()
Label10 = Format(Label10, "###,###.00")
Label10.Caption = Sheets("Sayfa1").Range("a25")
End sub

 

[class37]

Merhaba
Kodu Düzenlemişsiniz amma il önce veriyi alıp sonra format satırını yazın yani satırların yerlerini değiştirin.
Private Sub UserForm_Initialize()
Label10.Caption = Sheets("Sayfa1").Range("a25")
Label10 = Format(Label10, "###,###.00")
End Sub

 

[mavidus]

çok teşekkür ederim.Doğru söylüyorsun valla.Acemilik işte hocam

 

[aduhan22]

şu label nasıl topluyor hücreleri mümkünse öğrenebilirmiyim?

 

[mavidus]

öncelikle hücrelerde toplama yaptırıp daha sonra
Label10.Caption = Sheets("Sayfa1").Range("a25")
komutu ile label la aktarıyorum.

 

[ocamsul]

Arkadaşlar merhaba bu koda YTL. Formatını eklememde yardım edermisiniz?TextBox12.Value = Sheets("VG").Cells(g + 3, 14).Value şimdiden teşekkür ederim.

 

[class37]

Merhaba
TextBox12.Value = Format(Sheets("VG").Cells(g + 3, 14).Value, "0.00")

 

[ocamsul]

class37 çok teşekkür ederim.

 

[class37]

:arkadas: İyiçalışmalar.

 

[agd]

iyi çalışmalar,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "###,###.00")
End Sub

kodu ile YTL textbox 'tan çıkıldığında işe yarıyor.CHANGE 'te bu işi yazarken nasıl ayırabiliriz.yani teksbox'a rakamı girerken otomatik nasıl ayırabiliriz.?

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?p=103744#103744