• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

TEXTBOX`A GİRİLEN YTL`NI YAZIYA ÇEVİRME

  • Konbuyu başlatan Konbuyu başlatan Ongun
  • Başlangıç tarihi Başlangıç tarihi
O

Ongun

Katılım
24 Mayıs 2005
Mesajlar
462
Excel Vers. ve Dili
Excel 2003 Türkçe
Günaydın arkadaşlar,

Userform üzerindeki textbox1`e yazdığım metin içerisinde 1.530,50-YTL (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş) yazmak yerine sadece 1.530,50-YTL yazınca hemen yanına yazıyla yazılması mümkün mü?

Örnek: 1.530,50-YTL (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş)
Yani yukarıdaki örnekte 1.530,50-YTL diye yazınca hemen yanına otomatik olarak (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş) şeklinde yazdırabilmek mümkün mü.

Eğer mümkün değil ise başka türlü nasıl yapabilirim.

Bu konuda bilgisi olan arkadaşlar lütfen yardımcı olurmusunuz. Saygılarımla. :dua:
 
Sn Ongun pratik olarak ekteki örnek aklıma geldi.Umarım işinizi görür
 
Sayın fructose, öncelikle ilginiz için çok teşekkür ederim. Gönderdiğiniz dosya işime yarıyacak üzerinde biraz değişiklik yapmam lazım. :ok::

Ancak, benim asıl yapmak istediğim, textbox içerisinde hem metin hemde ytl var, bu bilgiler sayfadaki hücreye aktarılıyor. Yapmak istediğim metin ve ytl girişini textbox`a yapınca 1.530,50-YTL yazdığımda hemen yanına yazıyla yani (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş) otomatik yazılsın istiyorum. Belki mümkün olmayabilir ama yinede merak ettim olabilirmi diye. Saygılarımla. :dua:
 
sanırım bu konu hala çözülmemiş

siteye yeni giriş yaptım

A1 HÜCRSİNDEKİ ÖRNEK 1500 RAKAMINI A2 HÜCRESİNE YAZI İLE BİNBEŞYÜZ YAZDIRAMIYORMUYUZ ..
TEŞEKKÜRLER
 
ÇOK TEŞEKKÜR EDERİM KARDEŞ.. MÜTHİŞ DERECEDE İŞİMİ GÖRDÜ....


Saygılar..
 
Ongun' Alıntı:
Sayın fructose, öncelikle ilginiz için çok teşekkür ederim. Gönderdiğiniz dosya işime yarıyacak üzerinde biraz değişiklik yapmam lazım. :ok::

Ancak, benim asıl yapmak istediğim, textbox içerisinde hem metin hemde ytl var, bu bilgiler sayfadaki hücreye aktarılıyor. Yapmak istediğim metin ve ytl girişini textbox`a yapınca 1.530,50-YTL yazdığımda hemen yanına yazıyla yani (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş) otomatik yazılsın istiyorum. Belki mümkün olmayabilir ama yinede merak ettim olabilirmi diye. Saygılarımla. :dua:
Genişletmek için tıkla ...

Sayın Ongun
sayın ustad fructose un yaptığı çalışmada ben şunu önereceğim
belki işinize yarar.
aynı forma bir tane daha textbox ekleyip textbox1 in change olayına aşağıdaki kodu ilave edersen sanırım bir netice alabilirsin
bu olay ikinci textboxtada sağlanabilir. seçim sizin
Kod: 
Private Sub TextBox1_Change()
Range("IU65536") = TextBox1.Value

If TextBox1.Value = Empty Then
TextBox3.Text = ""
TextBox2.Value = ""

Else
TextBox2.Value = Range("IV65536")
TextBox3.Text = TextBox1.Value & " YTL" & "Yazıyla " & TextBox2.Value
End If

End Sub
 
Selamlar,

Ekteki dosyada konuyla ilgili kullanıcı tanımlı fonksiyonlar ile çözümü sunuyorum umarım işinize yarar.
 
Sn COST_CONTROL, Textboxta karakter sınırlandırırken , ve . kısmınıda düzeltinki 125.25 ve 125,25 gibi sayılar farklı farklı algılanmasın.
İyi çalışmalar :hey:
 
Selamlar,

Sn. fructose aslında dediğinizde haklısınız fakat;

Ancak, benim asıl yapmak istediğim, textbox içerisinde hem metin hemde ytl var, bu bilgiler sayfadaki hücreye aktarılıyor. Yapmak istediğim metin ve ytl girişini textbox`a yapınca 1.530,50-YTL yazdığımda hemen yanına yazıyla yani (Binbeşyüzotuz-YeniTürkLirası Elli Yeni Kuruş) otomatik yazılsın istiyorum. Belki mümkün olmayabilir ama yinede merak ettim olabilirmi diye. Saygılarımla.
Genişletmek için tıkla ...

Ongun arkadaşımızın yukarıda belirttiği şekilde yazmak istenirse bu seferde sizin dediğiniz şekilde yaparsak sıkıntı oluşacaktır. :arkadas:
 
Sn COST CONTROL Aslında benim demek istediğim 125.5 yazınca YüzYirmiBeş YTL Elli YKR
yazması gerekirken BinİkiYüzElliBeş YTL yazmaktadır.


Abdi Bey'in verdiği başka bir yöntem kendisine teşekkürler
yada bir zaman sayacı koyup o süre zarfında Textbox1 in sıfırlanıp Textbox1'e tekrar hücredeki yazı ile yazılmış YTL değerin çekilmesi gibi yöntemlerde düşünülebilir ama sade olması açısından benim verdiğim örnekte Textbox2 değeri hücrede bir & operatörü ile bağlanıp alındığında sorun olmayacaktır.
 
Selamlar,

Sn. fructose,

Ben soruyu şu şekilde anladım Ongun arkadaşımız 1. Textboxın içine hem metin hemde rakam girecek 2. Textboxta ise sadece rakam kısmı yazıya çevrilecek.

Örnek olarak benim çalışmamda 1. Textboxa aşağıdaki ifadeyi yazıp denerseniz ne demek istediğimi daha iyi anlayabilirsiniz.

"Yalnız ; 1.530,45 YTL dir."

Sonuç olarak eğer ihtiyaç olursa çalışmaya sizin dediğiniz kısıtlamayıda ekleyebiliriz.
 
Sizin anladığınız doğru olabilir Sn COST_CONTROL, :D

Ben sadece çalışmanız daha şık ve mükemmel olsun diye söyledim sorunun sizle alakasıda yok zaten. Hep Ongun Beyin yüzünden :mrgreen: yaz Textbox1 sayı gör Textbox2 de değilmi.

Sn COST_CONTROL, sizin sık kullandığınız smiley ile selam vereyim :arkadas:
 
Sayın fructose, ve COST_CONTROL, Üstadlar
bir diğer kodlama ile textboxtan çıkınca değeri aynı textboxta hem rakamsal hemde yazıyla göstermeyi başardım.
buradan paylaşmak istedim

Saygılar sevgiler
Kod: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = TextBox1.Value
TextBox1.Text = a & " Yazıyla " & LiraCevir(a)
End Sub
 
Elinize sağlık Abdi Bey Exit olayı haricinde update olayının içinede yazabilirsiniz

Private Sub TextBox1_AfterUpdate()
a = TextBox1.Value
TextBox1.Text = a & " Yazıyla " & LiraCevir(a)
End Sub
 
abdi' Alıntı:
Sayın fructose, ve COST_CONTROL, Üstadlar
bir diğer kodlama ile textboxtan çıkınca değeri aynı textboxta hem rakamsal hemde yazıyla göstermeyi başardım.
buradan paylaşmak istedim

Saygılar sevgiler
Kod: 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = TextBox1.Value
TextBox1.Text = a & " Yazıyla " & LiraCevir(a)
End Sub
Genişletmek için tıkla ...

Arkadaşlar, hepinize ayrı ayrı teşekkürlerimi sunarım. Bu ilgi ve özveri olduktan sonra bu site asla yok olmayacak.

Sayın abdi, verdiğiniz kodu denedim. Tam olarak aradığım buydu. Çok teşekkür ederim . Saygılarımla
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst