rakamı yazıya çevirme

[1murataksoy1]

A1 hücresine 16,52 yazsam A2 hücresinde #onaltı#ytl #elliiki#ykr
yazdırabilir miyiz?

 

[veyselemre]

forumda bulunan kodlardan birisini size göre uyarladım

 

[sniper2365]

Veysel kardeşim kodlar iyi de bir sorun var.
Mesela ;
"1.256,85" yazıyorum. O bana
"BirBinİkiyüzElliAltıYTL SeksenBeşYKR" diyor. Baştaki bir bini nasıl düzeltiriz?
Birde "BinİkiyüzElliAltı YTL SeksenBeş YKR" şeklinde yazabilirmi? Yani YTL ve YKR den önce bir boşlukla?
İlgilenirsen sevinirim. Kolay gelsin. Þimdiden Teşekkürler

 

[veyselemre]

sanırım siz fonksiyondaki yazıyla olan rakamların baş harfini değiştirmişsiniz
If (i = 3) And (e = "birbin") Then e = "bin"
kısmı
If (i = 3) And (e = "BirBin") Then e = "Bin" şekline çevir

aşağıdaki fonksiyon kısmınıda
ytlCevir = Cevir(Int(Sayi)) + " YTL " + Cevir((Sayi - Int(Sayi)) * 100) + " YKR"
şeklinde düzelt

 

[sniper2365]

Çok sağol Veyselemre kardeş. Çok yardımcı oldun.
Bilgilerin için teşekkürler.

 

[sniper2365]

ben dün rakamı ytl ye çevirmeyi excelde yaptığım basit fatura dizaynına eklemeye çalıştım fakat "#AD?" diye bir şey çıkıyor. Nerde hata yapıyorum acaba.
Yardım ederseniz sevinirim.

 

[kendimce]

Merhaba muhasebe forumu için kullanayım dedim makroyu ancak 100.00 YTL yazınca 100,00 yüzytlykr diyor Ykr hanesine nasıl ayarlamam gerekir ki sıfır ykr demesi için

 

[veyselemre]

ben dün rakamı ytl ye çevirmeyi excelde yaptığım basit fatura dizaynına eklemeye çalıştım fakat "#AD?" diye bir şey çıkıyor. Nerde hata yapıyorum acaba.
Yardım ederseniz sevinirim.

fatura dizaynınızın bulunduğu excel dosyasına ytl çevir fonksiyonunun olduğu modülü kopyalamamışsın, fonksiyon olmadan çalışmaz

 

[veyselemre]

Merhaba muhasebe forumu için kullanayım dedim makroyu ancak 100.00 YTL yazınca 100,00 yüzytlykr diyor Ykr hanesine nasıl ayarlamam gerekir ki sıfır ykr demesi için

alttaki fonksiyon kısmını şu şekilde değiştir

Function ytlCevir(Sayi As Currency)
ytlCevir = Cevir(Int(Sayi)) + " ytl "
If Cevir((Sayi - Int(Sayi)) * 100) <> "" Then
ytlCevir = ytlCevir + Cevir((Sayi - Int(Sayi)) * 100) + " ykr"
Else
ytlCevir = ytlCevir + "sıfır ykr"
End If
End Function

 

[sniper2365]

Teşekkürler Bu Sefer Oldu.

 

[omer_gg]

arkadaslar be formulu yazamad&#305;m,yada anlamad&#305;m yard&#305;mc&#305; olurmusunuz.

 

[uzmanamele]

bir siteden indirmiştim, çok işime yarıyor.
ekdeki dosyayı açıp içindeki yönergeleri izleyerek excel eklentisi olarak kaydederseniz tüm excel kitaplarınızda sorunsuz kullanabilirsiniz.

 

[Necdet]

Sitede &#351;ifresiz rakam&#305; yaz&#305;ya &#231;eviren bir s&#252;r&#252; program var.

http://www.excel.web.tr/forumdisplay.php?f=116