Makrosuz Sayıyı Yazıya Çevirme

[yanginci34]

Gayet güzel olmuş tebrik ederim. Kolay gelsin.

 

[netkit]

Ellerinize sağlık ekrana sığmıyor formül valla.

 

[turkanet]

Merhaba,
krş lu formülü excel de deniyorum (2016 ingilizce), formüllerin tamamını aşağıdaki gibi çevirdim ama hata veriyor. aynı şekilde google dökümanlarda denedim, orada ondalıksız sayıda çalışıyor ama ondalıklı sayıda hata veriyor. yardımcı olmanızı rica ederim

=PROPER(IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10^6;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;7);1)+1;"";"birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon");"")&IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10^5;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(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");"")&IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10^4;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10^3;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&IF(VE(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10^3;SAYIYAÇEVİR(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;6);3))>0);IF(VE(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>1999;LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;4);1)="1";LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;6);2)<>"00");"birbin";"bin");"")&IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=100;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(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");"")&IF(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1>=10;CHOOSE(LEFT(RIGHT(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&CHOOSE(MOD(IF(LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2));ROUND(A1;2);TRIM(LEFT(ROUND(A1;2);FIND(",";ROUND(A1;2))-1)))*1;10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " TL "
&
IF(OR(LEN(SUBSTITUTE(A1; ","; ""))=LEN(A1);LEN(SUBSTITUTE(ROUND(A1;2); ","; ""))=LEN(ROUND(A1;2)));"";
PROPER(IF(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1)>=10^5;CHOOSE(LEFT(RIGHT(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(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");"")&IF(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1)>=10^4;CHOOSE(LEFT(RIGHT(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1);5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&IF(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1)>=10^3;CHOOSE(LEFT(RIGHT(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1);4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&IF(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1)>=10;CHOOSE(LEFT(RIGHT(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1);2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&CHOOSE(MOD(IF(LEN(TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2)))))<2;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*10;TRIM(RIGHT(ROUND(A1;2);LEN(ROUND(A1;2))-FIND(",";ROUND(A1;2))))*1);10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")) & " Kr")

 

[Ramocino]

1.025,43 tutarını kuruşlar olduğu için hata veriyor. Yardım edebilecek varmı?

 

[Ramocino]

Bu 'birbin' çok problem oldu ama...

Merhaba;
Formülün son hali alttadır. 'Birmilyonbirbinbir' hatasını vermemesi için bir tane daha kontrol ekledim. Bakalım başka bir hata çıkacak mı?

=EĞER(F7>=10^6;ELEMAN(SOLDAN(SAĞDAN(F7;7);1)+1;"";"birmilyon";"ikimilyon";"üçmilyon";"dörtmilyon";"beşmilyon";"altımilyon";"yedimilyon";"sekizmilyon";"dokuzmilyon");"")&EĞER(F7>=10^5;ELEMAN(SOLDAN(SAĞDAN(F7;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(F7>=10^4;ELEMAN(SOLDAN(SAĞDAN(F7;5);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&EĞER(F7>=10^3;ELEMAN(SOLDAN(SAĞDAN(F7;4);1)+1;"";"";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz");"")&EĞER(VE(F7>=10^3;SAYIYAÇEVİR(SOLDAN(SAĞDAN(F7;6);3))>0);EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1";SOLDAN(SAĞDAN(F7;6);2)<>"00");"birbin";"bin");"")&EĞER(F7>=100;ELEMAN(SOLDAN(SAĞDAN(F7;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(F7>=10;ELEMAN(SOLDAN(SAĞDAN(F7;2);1)+1;"";"on";"yirmi";"otuz";"kırk";"elli";"altmış";"yetmiş";"seksen";"doksan");"")&ELEMAN(MOD(F7;10)+1;"";"bir";"iki";"üç";"dört";"beş";"altı";"yedi";"sekiz";"dokuz")

Bu da onceupon arkadaşın hazırladığı 'krş' lu versiyonun düzeltilmiş halidir. (Tabi her ikisi de hücre içine yazılabilen max karakter uzunlukları kısıtlamasından dolayı excel2003de çalışmaz.)

=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";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);2)<>"00");"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")

Kuruşlarda hata veriyor.

 

[sui]

Çok güzel olmuş emeğinize sağlık, rica etsem on milyon üzerini de ekler misiniz.