rakamla yazılan finansal değeri yazı ile yazdırmak...

[y.sahinoglu]

merhabalar;

makbuz kesme işlemini kolaylaştırmak için 1.çalışma sayfasındaki tutarların toplamını alıp 2. çalışma sayfasında hazırladığım makbuzda uygun yerde gösteren bir tablo hazırladım, tahsilat makbuzunda tutarın hem yazı hemde rakamla belirtilmesi gerekiyor, tutarı yazı ile yazdırmak için yardıma ihtiyacım var.

örn: tahsil edilen tutar: 1,234,50€
yalnız"binikiyüzotuzdörteuroellicent"tahsil edilmiştir


buradaki tutarı formülle yerine yazdırabiliyorum, ancak tutarı yazı ile yazdırmayı başaramadım, sağdan(), parçaal(), eğer(), fonksiyonları ile basamakları tek tek alıp
=eğer(yüzlerbasamağı=1;"yüz";eğer(yüzlerbasamağı=2;"ikiyüz";eğer...
gibi bir fonksiyonla tek tek olasılıklara değer verip kırp() birleştir() ile yapmaya çalıştım ama eğer fonksiyonu her zaman false değer veriyor. benim de excel bilgim orada bitiyor. Yardım edebilecek biri çıkar mı acaba? gold üye de değilim dosya da yükleyemiyorum, başkalarının örneklerine de bakamıyorum. çaresizim perişanım. yardım edin. imdat. lütfen. teşekkürleri saygılar, hörmetler.

 

[manyakbiri]

Tutarın size yazı ile yazılmasını sağlacayacak bir formül mü yazmak istiyorsunuz kısaca?

1200 yazıyorsa yazdığım formül ile bana binikiyüz mü getirsin istiyorsunuz?

 

[y.sahinoglu]

aynen öyle hocam, ben bi dünya yazdım 2 cümle ile özetlemişsiniz teşekkürler.

 

[Ömer BARAN]

Sayın Y.Şahinoğlu, sanırım forumda arama yapmamışsınız, forum ana sayfasının üst tarafında ortalarda "ARAMA" linki mevcut oraya "rakamı yazıya" veya "sayıyı yazıya" şeklinde yazarak arama yaparsanız, hem formül kullanılarak ve hem de makro kod kullanılarak hazırlanmış onlarca çözüm mevcut.

 

[mustafa1205]

Aşağıdaki formülü A1 Hücresi için dener misinz?
=YAZIM.DÜZENİ(EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^6;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;7);1)+1;"";"birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;6);1)+1;"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10^3;SAYIYAÇEVİR(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;6);3))>0);EĞER(VE(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>1999;SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;4);1)="1");"birbin";"bin");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=100;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;3);1)+1;"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz");"")&EĞER(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2));YUVARLA(A1;2);KIRP(SOLDAN(YUVARLA(A1;2);BUL(",";YUVARLA(A1;2))-1)))*1;10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " TL "&EĞER(YADA(UZUNLUK(YERİNEKOY(A1; ","; ""))=UZUNLUK(A1);UZUNLUK(YERİNEKOY(YUVARLA(A1;2); ","; ""))=UZUNLUK(YUVARLA(A1;2)));"";YAZIM.DÜZENİ(EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^5;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);6);1)+1;"";"yüz";"ikiyüz";"üçyüz";"dörtyüz";"beşyüz";"altıyüz";"yediyüz";"sekizyüz";"dokuzyüz");"")&EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^4;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10^3;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1)>=10;ELEMAN(SOLDAN(SAĞDAN(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(EĞER(UZUNLUK(KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2)))))<2;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*10;KIRP(SAĞDAN(YUVARLA(A1;2);UZUNLUK(YUVARLA(A1;2))-BUL(",";YUVARLA(A1;2))))*1);10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " Kr")

 

[champion82]

merhabalar,

rakamı yazıyla makrosunu modul olarak excelde oluşturdum. tüm excel dosyalarımda oluşması için ne yapmam gerekli.

konu hakkındaki bilgi ve yardımlarınızı rica ederim.

 

[Korhan Ayhan]

Dosyanızı eklenti olarak kaydetmelisiniz. Bu şekilde kaydettikten sonra excel seçeneklerinden eklentiler bölümüne gidip oradan ilgili eklentiyi aktif hale getirdiğinizde tüm excel dosyalarınızda kullanabilirsiniz.

Forumda eklenti ifadesi ile arama yapınız.