KURUÞA ÇEVÝREN MACRO

[acd]

Merhaba

Bu siteye yeni üye oldum herkeze selamlar..
Uzun zamandýr ,sayýyý yazýya çeviren makro sayesinde faturalarýmýn "yazýyla"
bölümünde zorluk çekmiyorum.
Ancak yýlbaþýnda tl den 6sýfýr atýlýnca yeni bir makroya ihtiyaç duyulacak.
kuruþ hanesinin de olduðu böyle bir makro bilen varsa yardým rica ediyorum

selamlar...

[Hüseyin]

Merhaba acd,
Foruma hoþgeldiniz. :hey:

Yeni makro yerine yazý kullanýlacak bölüme aþaðýdaki kodu eklemeyi denerseniz, sanýrým sonuca ulaþacaðýz.

=yaz(LEFT(A1;FIND(",";A1;1)-1))&"YENÝLÝRA"&yaz(RIGHT(A1;2))&"YENÝKURUÞ"

Bu güzel bir soru. :bravo: Bu açýklamayý örnekler kýsmýnada ekliyorum.

Bu mantýða göre makro kodu revize eden varsa, tabiiki daha güzel olur. :mrgreen:

[ThieF]

Ben geçen gün sitelerde dolaþýrken bir kod bulmuþtum. Bu kod dolar ve centleri yazýya çeviriyordu. Bunu editleyerek Yenilira'ya çevirmeye çalýþtým. Kýsmen baþarýlý oldum fakat 1000 yazýnca "Bir Bin Yenilira" diyor. Bunu çözerseniz herhalde tamamlanýr.

Kaynak:
http://www.excel.gen.tr/?s=2.1&k=75
En altýnda comma.xls diye bir dosya var onu editledim.

[Haluk]

@ThieF:

Merhaba;

Bahsettiðiniz dosyayý indirdim.

YTL için bahsettiðiniz düzenlemenin yapýlmýþ þekli ektedir.

Yeni kullanýcý tanýmlý fonksiyon aþaðýdaki gibi kullanýlabilir:

=YazYTL(A1)


Eksik taraflarý varsa bildirirsiniz.

[fbcelik]

Emeði geçenlerin eline saðlýk, 2005 yýlýna hazýrlýk oldu... Teþekkürler...