Sıfırdan Fatura Sistemi: Excel Formülleri ve Makrolar

Excel'de basit ama işlevsel bir fatura sistemi kurmak, küçük işletmeler için hızlı bir çözüm. Formüller ve makrolarla otomatik hesaplamalar yapabilir, fatura numaralandırmasını kontrol edebilirsiniz.

Önce temel yapıyı kuralım. A1'den E1'e başlık satırı oluşturun: Ürün, Miktar, Birim Fiyat, KDV (%), Toplam. Veri satırları A2'den başlasın.

1=D2*C2*1.1

E2 hücresine bu formülü yazın. D2 (KDV yüzdesi) ile C2 (birim fiyat) ve B2 (miktar) çarpılır, 1.1 ile çarparak %10 KDV eklenir. Beklenen çıktı: 110 (eğer miktar=1, fiyat=100 ise).

Fatura toplamı için F1'e "Genel Toplam" yazın, F2'ye:

1=SUM(E2:E100)

Bu, E sütunundaki tüm fatura satırlarını toplar.

Fatura numaralandırması için G1'e "Fatura No", G2'ye:

1=CONCATENATE("FAT-",TEXT(ROW()-1,"0000"),"-",YEAR(TODAY()))

Bu, FAT-0001-2025 gibi otomatik numara üretir.

Makro yazarak "Fatura Yazdır" düğmesi ekleyelim. Alt+F11 ile VBA editörünü açın, yeni bir modül ekleyin:

1Sub FaturaYazdir()
2Dim ws As Worksheet
3Set ws = ThisWorkbook.Sheets("Fatura")
4ws.PageSetup.PaperSize = xlPaperA4
5ws.PageSetup.Orientation = xlPortrait
6ws.PrintOut
7End Sub

Bu makro, Fatura sayfasını A4'te dikey yönde yazdırır. Beklenen sonuç: Yazıcıya gönderilen hazır fatura.

Otomatik vergi hesaplaması için H1'e "Vergi Tutarı", H2'ye:

1=E2-D2*C2

Bu, KDV miktarını ayrı gösterir.

Sık yapılan hata: Formüllerde mutlak referans ($) kullanmamak. Formülü aşağı kopyaladığınızda hücreler kayabilir. Örneğin KDV oranı sabit ise C$1 gibi yazın. Ayrıca fatura numaralandırmasında ROW() fonksiyonu dinamiktir; satır eklenirse otomatik güncellenir ama kontrol edin.

bknz: Materialized View: Ağır Sorguları Önbelleğe Alarak Hızlandırma, büyük fatura verilerini raporlamak için benzer optimizasyon yaklaşımı kullanılır.