YTL PROGRAMI

[hakanbolat]

Bir Tane YTL Programı Yaptım Ekte Lütfen İnceliyiniz, Benim İstediğim gibi olmadı ama çünkü ben ; 1.348.500 TL Yazdığım Zaman 1.3485 YTL Yazmasını İstiyorum ama (13.485,00 YTL) Oluyor. Yardımlarınız için şimdiden çok teşekkür..

 

[Levent Menteşoğlu]

Sanırım eklemeyi gerçekleştiremediniz. Tekrar deneyiniz.

 

[hakanbolat]

Deniyorum Ama Bir türlü gönderimiyorum kilitleniyor..

(Dosyayı Ekleyemedim kodu gönderiyorum.. Bir Userform ve 2 tane textboxdan oluşuyor..)

Private Sub tl1_Change()
If tl1.Value = "" Then Exit Sub
tl1.Value = Format(tl1.Value, "###,###")
tl2.Value = CCur(tl1.Value) / 1000000
End Sub

 

[Levent Menteşoğlu]

Yazdığınız koda göre yaptığım denemede

tl1'e 1348500 yazdığımda 1.348.500 yazdı

tl2'de ise 1,3485 olarak göründü.

sorun nerede tam olarak anlayamadım. Tekrar izah edermisiniz.

 

[hakanbolat]

Birde 18,157,900,000 TL Yazıp denermisiniz ozaman da 18957.9 oluyor YTL de böyle birşey yok ama, doğrusu 18.957,90 olması lazım değilmi..

 

[Levent Menteşoğlu]

Ekteki örneği inceleyiniz.

 

[hakanbolat]

İstediğim Bu Değil di.. Benim istediğim ilk textboxa TL gireceğim ikincisine YTL otomatik olarak dönüştürülecek ama TL (1,353,500 TL = 1,3535 YTL Olacak ve 18.957,600,000 TL = 18.957,60 YTL olacak ama lütfen nokta ve virgüllerin yerlerine iyi bakın birde excel de a1 hücresinin formatı ne olacak çünkü command button la a1 hücresine textbox2 yani YTL yi yazdırdığım zaman 1,3535 olmuyor ve hesabıda 1,35 olarak hesaplıyor bunu nasıl halledebiliriz..

 

[xxrt]

Her iki özelliği aynı anda yaşıyamazsınız.Ya Bölgesel ayarlardan (,) seçiminizi yaşıyacaksınız,yada (.) seçimini.
TextBox1'e

Private Sub TextBox1_Change()
On Error Resume Next
    TextBox1 = Format(TextBox1.Value, "#,##0")
    TextBox2.Value = Format(TextBox1.Value / 1000000, "#,##0.0000")
    End Sub

Yazıp;
1,353,500 yazdığınızda....=>1.3535 yazacaktır.Bölgesel ayarları (,) yaparsanız =>1,3535 yazacak..Bunu Yaşadığınızda.
İkinci istediğiniz tam tersi..........

Exit olayına yazarakta bir fikir çıkarabilirsiniz.

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

 

[oerbas]

Selamlar:

xxrt nin önerisi güzel ama;

TextBox1' e sonu sıfırla biten rakamlarda problem yok ama 5.254.255 gibi olursa olduğu gibi yazıyor. Þöyle birşey olamazmı:

Ã?rneğin TextBox1' e 5.254.255. TL yazıldığında TextBox2 yada Label1 de 5.26 YTL yanınada yazıyla Beşlira 26 kuruş yazsın olabilirmi

Teşekkürler

 

[arslan]

bu konuda bende dertliyim

Hücrede Yazılı olan 1.700,50 yi textbox ta düzgün formatta okutamıyorum
Yani A5 hücresinde yazılı 1.700,50 yi textbox ta aynı formatta göremiyorum
Textbox ta 17.005,00 gibi çıkıyor
Bu konuda yardımcı olacak arkadaşlara rica ediyorum

 

[hakanbolat]

Bu Konuya Ben ancak böyle bir çare buldum.. Ã?nce listboxu excel hücresine okutuyorum,sonra o hücreyi textbox'da gösteriyorum..

Windows("Hakancari").ActiveSheet.[a1] = ListBox1.Column(1)
Textbox1.Text = Windows("Hakancari").ActiveSheet.Range("a1").Text

Bir denersiniz..

 

[isakarakus]

merhaba,
buna benzer bir soruna arkadaşımın bilgisayarında rastlamıştım.
ne hikmetse decimal ayraçta problem yapıyordu
çeşitli formatlar denedim ama bir türlü olmadı,
sonunda sorunun bölgesel ayarlarda olduğunu anladık.
sorun:
number sekmesinde decimal sembol olarak . var iken,
currency sekmesinde decimal sembol olarak , vardı.
dolayısıyla formatlamalar işe yaramıyordu,
belki böyle bir sorun olabilir...