Rakamları Yazıya Çevirme

Bununla ilgili depoda dosyamız bulunmakta.
Link : Excel Formülleri ile Rakamı Yazıya Çevirme

Not: Makro ile de yapılabilir. Zannımca oda depo sitemizde bulunmaktadır.

100.25 TL Yüz Türk Lirası, Yirmibeş Kuruş gibi değil de, 10 (ON), 20 (YİRMİ), 100 (YÜZ) .... gibi.

Parasal değerleri yazıya çeviren bir makro-function (KTF) kodu veya EKLENTİsi elenizde mevcutsa;

-- Diyelim bu KTF'nin adı YazıyaCevir
VBA ekranında bu KTF'ye ait kodlarda, "Türk Lirası" ifadelerini silerseniz mesele kalmaz.

-- Ya da ilgili kod, eklenti olarak AKTİF veya ilgili belgedeki bir MODULde olmak koşuluyla;
hücreye =YazıyaCevir(A1) değil de aşağıdaki gibi bir formül yazarsanız mesele kalmaz.


Böyle bir KTF kodu elinizde yoksa, aşağıdaki konu sayfasında yer alan 5 numaralı cevapta mevcut olan
CEVIR isimli bir FUNCTION kodlarını da kullanabilirsiniz.

.

Sayın zompcu_80,
Arşivimde bulunan dosyadaki KFT'yi dosyanıza uyarladım.

Son olarak örneğin 45 (KIRK BEŞ) değil de (KIRKBEŞ) olarak düzeltilmesi hususunda yardımlarınızı rica ediyorum.

Sayın @yasarpiskin .

-- Son mesajınız Sayın @Erol U. 'nun eklediği örnek belgeyle ilgiliyse; D16 birleştirilmiş hücresindeki formüü aşağıdakiyle değiştirin.


-- Yazıya çevrilecek sayı sanırım her zaman 1000'den küçük.
Eğer öyleyse KTF (Kullanıcı Tanımlı Fonksiyon - makro kodlarıyla) yerine, aşağıda gösterdiğim, Excel'in yerleşik işlevleriyle oluşturduğum formül de yazıya çevirme işini halleder. Bu formülü; ya mevcut formülde yerine koyarak ya da formülü başka bir hücreye uygulayıp, asıl formülünüzde, bu formülü uyguladığınız hücreyi adres göstererek mevcut metinle birleştirebilirsiniz.


.

Çok teşekkür ederim.