TL yazma sorunu

[kelbasasimsirtarak]

Textbox1'e maksimum 6 rakam yazılmasını istiyorum.bu sebeple maximumu 6 olarak değiştirdim.aynı zamanda yazılan rakamı TL cinsinden göstersin istiyorum.bunun için de
Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1.Value, "#,### ")
End Sub

formülünü kullandım.fakat ben 1 tane rakam girince gerisini giremiyorum ve hata veriyor.çözümü varmıdır?

 

[Emir Hüseyin Çoban]

. . .

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

. . .

 

[kelbasasimsirtarak]

Bu kod TL cinsinden göstermiyor?

 

[Emir Hüseyin Çoban]

. . .

Siz rakamı nasıl görmek istiyorsunuz, belirtiniz.
1.500,03 TL gibi mi ?

. . .

 

[kelbasasimsirtarak]

örneğin 50binlira için textboxa ellibin yazarken noktayı her yazdığım rakamda kaydırsın.sonunda kuruş hiç olmasın.virgüllü olmasın yani tam sayı olsun.sonuna da TL eklesin.

50000------> 50.000 TL olsun istiyorum.

 

[Emir Hüseyin Çoban]

. . .

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1.Value, "#,##0 TL")
End Sub

. . .

 

[kelbasasimsirtarak]

Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3.Value, "#,##0 TL")
End Sub

olarak yazdığımda oldu.teşekkür ederim.

 

[kelbasasimsirtarak]

ne yazıkki bu da çözmedi sorunumu.ben istiyorumki 27.518 TL yazsın.fakat program 27518,814 diye yazıyor.bu virgülden sonraki kısımları istemiyorum.yardımınızı rica ederim.

 

[Ömer]

Merhaba,

Sorunuzun cevabını #6 numaralı mesajda Hüseyin bey yanıtlamış.

 

[kelbasasimsirtarak]

kodu böyle yazdığımda 27518,814 TL diye çıkıyor hala

 

[Emir Hüseyin Çoban]

kodu böyle yazdığımda 27518,814 TL diye çıkıyor hala

. . .

Çıkan sonuç yerine, yazdığınız rakamı belirtin.
Bizde deneyelim. Ona göre çözüm üretelim.
Muhtemelen virgüllü rakam yazıyorsunuz.

. . .

 

[kelbasasimsirtarak]

ayrıca TL simgesi kutuyu tıkladığımda değil rakamı yazıp başka bi yere tıkladıktan sonra çıkıyor