rakamı sayıya çevirme (makro kullanmadan)

nes432 · 25 Aralık 2017

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 · 25 Aralık 2017

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ş:

Kod:

=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:

Kod:

=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 · 25 Aralık 2017

YUSUF44' Alıntı:

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ş:

Kod:

=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:

Kod:

=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 · 25 Aralık 2017

Şöyle olabilir:

Kod:

="***"&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 · 25 Aralık 2017

sanal sevap işliyorsunuz farkında mısınız

) cok tşk ederimm

Mdemir63 · 26 Aralık 2017

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 · 26 Aralık 2017

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 · 26 Aralık 2017

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

Saygılar

ademsadik · 13 Ekim 2021

YUSUF44' Alıntı:

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ş:

Kod:

=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:

Kod:

=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 · 10 Ekim 2022

YUSUF44' Alıntı:

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ş:

Kod:

=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:

Kod:

=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 · 11 Ekim 2022

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 · 1 Mart 2023

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 · 30 Kasım 2024

avsaroglu_3806' Alıntı:
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 · 17 Mart 2025

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 · 18 Mart 2025

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 · 18 Mart 2025

shanex' Alıntı:
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

rakamı sayıya çevirme (makro kullanmadan)

nes432

YUSUF44

Destek Ekibi

nes432

YUSUF44

Destek Ekibi

nes432

Mdemir63

YUSUF44

Destek Ekibi

Mdemir63

ademsadik

incsoft

YUSUF44

Destek Ekibi

avsaroglu_3806

GhostCu

shanex

volki_112

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

volki_112

Sayıyı Yazıya Çevirme Uygulamaları