rakamı sayıya çevirme (makro kullanmadan)

[nes432]

mrb arkadaşlar,

para tutarı var rakam olarak onu otomatik sayıya çevirmek istiyorum ama makro kullanmadan. ve yazı bitişik büyük harfle yazacak.

1800=BİNSEKİZYÜZ gibi

 

[YUSUF44]

http://www.excel.web.tr/f14/makrosuz-sayyyy-yazyya-evirme-t107969.html

Yuakrdaki başlıkta 6. mesajda sayın fff7 tarafından, F7 hücresindeki sayıyı yazıyla yazmak için aşağıdaki formül önerilmiş:

=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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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")

Eğer büyükharf olmasını istiyorsanız aşağıdaki gibi kullanabilirsiniz:

=BÜYÜKHARF(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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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"))

 

[nes432]

http://www.excel.web.tr/f14/makrosuz-sayyyy-yazyya-evirme-t107969.html

Yuakrdaki başlıkta 6. mesajda sayın fff7 tarafından, F7 hücresindeki sayıyı yazıyla yazmak için aşağıdaki formül önerilmiş:

=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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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")

Eğer büyükharf olmasını istiyorsanız aşağıdaki gibi kullanabilirsiniz:

=BÜYÜKHARF(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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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"))

tşk ederim süper olmuş. yazının önünü arkasını *** ile nasıl kapatabilirim. &*** seklinde ekleme yaptım ama olmadı

 

[YUSUF44]

Şöyle olabilir:

="***"&BÜYÜKHARF(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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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"))&"***"

 

[nes432]

sanal sevap işliyorsunuz farkında mısınız) cok tşk ederimm

 

[Mdemir63]

Selamlar,
Yusuf hocam elinize sağlık güzel olmuş. Fakat rakam ondalıklı ise nasıl olacak Örneğin: 125,5 gibi

Saygılar

 

[YUSUF44]

Cevabımda da belirttiğim gibi formülü ben oluşturmadım. VErdiğim konuda başka bir arkadaş oluşturup paylaşmış. Ben muhtemelen bu kadar uzun bir formülü oluşturamazdım. Ondalıklılar nasıl olur bilmiyorum maalesef. Ben formül yerine makro kullanmayı tercih ediyorum. Forumda bu konuda bir çok başlık var. Ben de ihtiyaç duyduğumda o başlıklardan yararlanıyorum.

 

[Mdemir63]

Teşekkürler hocam.
Bende rakamı yazıya çevirme konusunda makro kullanıyorum. Kolay gelsin

Saygılar

 

[ademsadik]

http://www.excel.web.tr/f14/makrosuz-sayyyy-yazyya-evirme-t107969.html

Yuakrdaki başlıkta 6. mesajda sayın fff7 tarafından, F7 hücresindeki sayıyı yazıyla yazmak için aşağıdaki formül önerilmiş:

=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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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")

Eğer büyükharf olmasını istiyorsanız aşağıdaki gibi kullanabilirsiniz:

=BÜYÜKHARF(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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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"))

mükemmelsınız hocam. çok sağolun. formülü yazanda gerçekten bilgili biriymiş. bizde güya excel kullanıyoruz

 

[incsoft]

http://www.excel.web.tr/f14/makrosuz-sayyyy-yazyya-evirme-t107969.html

Yuakrdaki başlıkta 6. mesajda sayın fff7 tarafından, F7 hücresindeki sayıyı yazıyla yazmak için aşağıdaki formül önerilmiş:

=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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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")

Eğer büyükharf olmasını istiyorsanız aşağıdaki gibi kullanabilirsiniz:

=BÜYÜKHARF(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(F7>10^3;EĞER(VE(F7>1999;SOLDAN(SAĞDAN(F7;4);1)="1");"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"))

Milyar, trilyon oldumu hata veriyor

 

[YUSUF44]

Bunu o formülün geçtiği asıl konuda formül sahibine sormanız daha iyi olur. Ben bu başlıkta da belirttiğim gibi "böyle uzun bir formül oluşturamazdım". Ayrıca formülden de göreceğiniz üzere milyar ve trilyon için bir düzenleme yapılmamış. Size de formül yerine makro kullanmanızı tavsiye ederim.

 

[avsaroglu_3806]

Biraz üzerinde oynama yaparak "." ile ayrılmış KURUŞ ibaresi ekledim
Umarım işinize yarar....







=EĞER(EĞERYOKSA(BÜYÜKHARF(EĞER(TAMSAYI(A2)>=10000000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),7),1)+1,"","birmilyon","ikimilyon","üçmilyon","dörtmilyon","beşmilyon","altımilyon","yedimilyon","sekizmilyon","dokuzmilyon"),"")&
EĞER(TAMSAYI(A2)>=100000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),5),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
EĞER(TAMSAYI(A2)>=1000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)+1,"","","iki","üç","dört","beş","altı","yedi","sekiz","dokuz"),"")&
EĞER(TAMSAYI(A2)>1000,EĞER(VE(TAMSAYI(A2)>1999,SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)="1"),"birbin","bin"),"")&
EĞER(TAMSAYI(A2)>=100,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(A2),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")="","",EĞERYOKSA(BÜYÜKHARF(EĞER(TAMSAYI(A2)>=10000000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),7),1)+1,"","birmilyon","ikimilyon","üçmilyon","dörtmilyon","beşmilyon","altımilyon","yedimilyon","sekizmilyon","dokuzmilyon"),"")&
EĞER(TAMSAYI(A2)>=100000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),5),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
EĞER(TAMSAYI(A2)>=1000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)+1,"","","iki","üç","dört","beş","altı","yedi","sekiz","dokuz"),"")&
EĞER(TAMSAYI(A2)>1000,EĞER(VE(TAMSAYI(A2)>1999,SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)="1"),"birbin","bin"),"")&
EĞER(TAMSAYI(A2)>=100,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(A2),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")&" LİRA ")&EĞER(EĞERHATA(BÜYÜKHARF(EĞER(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2))>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")="","",EĞERHATA(BÜYÜKHARF(EĞER(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2))>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")&" KURUŞ")

 

[GhostCu]

Biraz üzerinde oynama yaparak "." ile ayrılmış KURUŞ ibaresi ekledim
Umarım işinize yarar....







=EĞER(EĞERYOKSA(BÜYÜKHARF(EĞER(TAMSAYI(A2)>=10000000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),7),1)+1,"","birmilyon","ikimilyon","üçmilyon","dörtmilyon","beşmilyon","altımilyon","yedimilyon","sekizmilyon","dokuzmilyon"),"")&
EĞER(TAMSAYI(A2)>=100000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),5),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
EĞER(TAMSAYI(A2)>=1000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)+1,"","","iki","üç","dört","beş","altı","yedi","sekiz","dokuz"),"")&
EĞER(TAMSAYI(A2)>1000,EĞER(VE(TAMSAYI(A2)>1999,SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)="1"),"birbin","bin"),"")&
EĞER(TAMSAYI(A2)>=100,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(A2),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")="","",EĞERYOKSA(BÜYÜKHARF(EĞER(TAMSAYI(A2)>=10000000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),7),1)+1,"","birmilyon","ikimilyon","üçmilyon","dörtmilyon","beşmilyon","altımilyon","yedimilyon","sekizmilyon","dokuzmilyon"),"")&
EĞER(TAMSAYI(A2)>=100000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),5),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
EĞER(TAMSAYI(A2)>=1000,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)+1,"","","iki","üç","dört","beş","altı","yedi","sekiz","dokuz"),"")&
EĞER(TAMSAYI(A2)>1000,EĞER(VE(TAMSAYI(A2)>1999,SOLDAN(SAĞDAN(TAMSAYI(A2),4),1)="1"),"birbin","bin"),"")&
EĞER(TAMSAYI(A2)>=100,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),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(TAMSAYI(A2)>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(A2),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(A2),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")&" LİRA ")&EĞER(EĞERHATA(BÜYÜKHARF(EĞER(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2))>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")="","",EĞERHATA(BÜYÜKHARF(EĞER(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2))>=10,ELEMAN(SOLDAN(SAĞDAN(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),2),1)+1,"","on","yirmi","otuz","kırk","elli","altmış","yetmiş","seksen","doksan"),"")&
ELEMAN(MOD(TAMSAYI(PARÇAAL(A2,EĞER(EHATALIYSA(BUL(".",A2,1)),SAĞDAN(A2,1),BUL(".",A2,1))+1,2)),10)+1,"","bir","iki","üç","dört","beş","altı","yedi","sekiz","dokuz")),"")&" KURUŞ")

Konu eski ama bu formülü denedim ama çalışmıyor formül ile bunu yapabilmek mümkün mü acaba

 

[shanex]

2. MESAJDA YAZILAN FORMÜL DEĞER 1000 olduğunda yanıtsız bırakıyor. Makro olmadan çözüm yollarını nasıl yapabiliriz

 

[volki_112]

Site icerisinde bu konuda cok kaynak var.
Linkleri inceleyiniz. Makrosuz çözümler
2 Linki de inceleyiniz

https://www.excel.web.tr/threads/formuellerle-yaziyi-harflere-cevirme.62463/

Çözüldü - Rakamı yazıya çevirme

ekteki tabloda yazılan rakamları yazıya çevirme (fonksiyonlu) şimdiden ellerinize ve emeklerinize sağlık

www.excel.web.tr

 

[volki_112]

2. MESAJDA YAZILAN FORMÜL DEĞER 1000 olduğunda yanıtsız bırakıyor. Makro olmadan çözüm yollarını nasıl yapabiliriz

Üstteki 2 linkte aradığınızı bulamazsaniz bu linke bakiniz

Sayıyı Yazıya Çevirme Uygulamaları

Bu başlıkta, Türkçe ve ingilizce olarak sayıyı yazıya çevirme ve YTL-YKR uygulamalarını bulabilirsiniz.

www.excel.web.tr