Sayı Biçimlerini Yazı Olarak Yazdırma

Bu dosya, hücredeki sayısal bir tutarı Türkçe yazıya çeviren makrolu bir şablondur. Fatura, tahsilat makbuzu ve benzeri belgelerde "Yalnız ... TL ... Kr." biçiminde yazıyla tutar göstermek isteyen muhasebe ve ön muhasebe kullanıcıları için hazırlanmıştır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makrolar etkinleştirilmezse yazıya çevirme formülü çalışmaz.

Dosyanın içeriği​

Dosyada "Sayfa1" adlı tek bir sayfa vardır (B2:E22 aralığı). Sayfa, fatura benzeri bir form olarak düzenlenmiştir:

• Üst bölüm: D3 hücresinde "TARIH:" etiketi bulunur.
• Toplam satırları: 16-20. satırlarda TOPLAM, KDV%18, "Tevkif oranı 1/2 Tevkif edilen KDV", TEVKİFAT DAHİL TOPLAM ve TEVKİFAT HARİÇ TOPLAM etiketleri yer alır.
• Yazıyla tutar: 21. satırda, E20 hücresindeki tutarın yazıya çevrilmiş hali görüntülenir. Örnekteki sonuç: "Yalnız Ellibeş TL Onbeş Kr."

Kullanılan formüller​

• B21: =YAZIYACEVIR(E20) formülü, E20 hücresindeki tutarı yazıya çevirir. YAZIYACEVIR, dosyadaki makro modülünde tanımlı özel bir fonksiyondur.

Makrolar​

Dosyada Module1 adlı bir modül vardır ve iki prosedür içerir:

• YAZIYACEVIR: Hücre boşsa ya da değer sayı değilse uyarı metni döndürür. Aksi halde tutarı lira ve kuruş olarak ayırır, "Yalnız ... TL ... Kr." biçiminde metin üretir. Negatif tutarlarda "Eksi (-)" ifadesini ekler, yalnızca kuruş varsa sadece kuruşu yazar.
• Cevir: Yardımcı (Private) fonksiyondur. Sayıyı 15 haneye tamamlayıp trilyon, milyar, milyon, bin ve yüzler basamaklarına ayırarak Türkçe okunuşunu oluşturur. İlk harfi büyük yazar, sayı sıfırsa "Sıfır" döndürür.

Makrolar ayrıca çalıştırılmaz, YAZIYACEVIR sayfadaki bir formül olarak kullanılır. Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Yazıya çevirmek istediğiniz tutarı E20 hücresine girin.
3. B21 hücresinde tutarın yazıyla karşılığı görüntülenir.
4. Başka bir hücredeki tutarı çevirmek için formülü =YAZIYACEVIR(hücre) biçiminde düzenleyin.
5. Kendi dosyanızda kullanmak için Module1'i dosyanıza aktarın ya da çalışmanızı bu şablon üzerinde yapın; dosyayı .xlsm olarak kaydedin.