Tarihi Metne Çevirmek

[ahmet_]

Arkadaşlar merhaba.

Benim sorum şu.

A1 hücresinde 29.12.2005 yazıyor bunu B1 hücresine Yirmidokuz Aralık İkibinbeş olarak nasıl yazdırabilirim.

Saygılar...

 

[Haluk]

Ekli örneği inceleyin ...

 

[ahmet_]

sayın raider göndermiş olduğunuz dosyayı inceledim. İlginize teşekkür ederim. ancak #AD? uyarısı veriyor.

Teşekkürler Saygılar...

 

[Haluk]

İlginize teşekkür ederim. ancak #AD? uyarısı veriyor.

Tuhaf doğrusu ... bende bir hata vermiyor.

Kullandığınız XL versiyonu nedir ?

 

[ahmet_]

sayın raider bende yaz.xla olmadığı için sanırım. deneyip cevaplayacağım.

 

[Haluk]

Merhaba;

xla' ya gerek yok.

O fonksiyonu zaten gönderdiğim dosyadaki modulün içine eklemiştim.

 

[ahmet_]

sayın Raider çok teşekkürler. hata yok formül çok güzel. dediğim gibi eklentilerden yaz.xla aktif değildi bu yüzden hata vermiş. Ben kurcalarken düşey ara ile de çözmüştüm. ancak sizin yazdığınız formül tek kalemde işi çözdü. çok çok teşekkürler. Saygılar...

 

[zaruri]

=EĞER(GÜN(A1)>9;ELEMAN(SOLDAN(GÜN(A1);1);"On";"Yirmi";"Otuz");"")&ELEMAN(SAĞDAN(GÜN(A1);1)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";

Ben bu formülü kullanıyorum, fakat daha basit bir yolunun olması gerekir diye düşünüyorum;

=METNEÇEVİR(A1;"gg/aa/yyyy")
Günün tarihini metin olarak değil hangi gün olduğunu veriyor ki senet dökümünde işe yaramıyor.

 

[muhasebeciyiz]

=EĞER(GÜN(A1)>9;ELEMAN(SOLDAN(GÜN(A1);1);"On";"Yirmi";"Otuz");"")& ELEMAN(SAĞDAN(GÜN(A1);1)+1;"";"Bir";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&" "&METNEÇEVİR(A1;"aaaa")&" "&ELEMAN(SOLDAN(YIL(A1);1);"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&"Bin"&EĞER(PARÇAAL(YIL(A1);2;1)+0=0;"";ELEMAN(PARÇAAL(YIL(A1);2;1);"";"İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")&"Yüz")&EĞER( METNEÇEVİR(A1;"yy")+0>9;ELEMAN(SOLDAN(METNEÇEVİR(A1;"yy");1);"On";"Yirmi";"Otuz";"Kırk";"Elli";"Altmış";"Yetmiş";"Seksen";"Doksan");"")&ELEMAN(SAĞDAN(METNEÇEVİR(A1;"yy");1)+1;"";"Bir"; "İki";"Üç";"Dört";"Beş";"Altı";"Yedi";"Sekiz";"Dokuz")