Sipariş Formu Hazırlama

Dosyanın içeriği​

• siparis: B1:J59 aralığında tek sayfalık form. Üst bölümde "SİPARİŞ/TEKLİF FORMU" başlığı, tarih/saat alanı, firma ve adres alanları, M.V.D. ve VERGİ NO alanları bulunur. Kalem tablosunda S.No, ADET, İSK% ve TUTAR sütunları yer alır; kalem satırları 14 ile 53 arasındadır.
• Form altında ara toplam, KDV ve genel toplam satırları bulunur.
• VBA tarafında ThisWorkbook, Sayfa1 ve Module1 bölümleri vardır.

Kullanılan formüller​

• NOW: H1 hücresinde güncel tarih ve saati verir.
• Her kalem satırında tutar, adet ile birim fiyatın çarpımıdır; 14. satırda:
• Aynı satırda J sütunu, tutardan I sütunundaki değeri çıkarır.
• SUM: H54 hücresi, H14:H53 aralığındaki tutarları toplar.
• KDV, H56 hücresindeki tutarın %18'i olarak H57'de hesaplanır; H58 ise H56 ile H57'nin toplamını verir.

=D14*G14

=H56*18%

Makrolar​

• Workbook_Open: Dosya açılınca uyarı sesi verir ve yazdırma için CTRL+Y tuşlarının kullanılacağını, G53 hücresine bilgi girişi tamamlandığında çıktının otomatik alınacağını bildiren bir mesaj gösterir.
• Workbook_BeforeClose: Kapatırken "kaydedilsin mi" sorusu çıkmaz; değişiklikler kaydedilmeden kapanır.
• Workbook_SheetActivate: Excel pencere başlığına etkin sayfanın adını yazar.
• Worksheet_Change ve Deneme: G53 hücresi değişince etkin sayfanın bir kopyasını yazıcıdan çıktı olarak gönderir. Deneme makrosu CTRL+Y kısayoluna atanmıştır.
• yaziyacevir: Sayıyı Türk Lirası ve Kuruş olarak yazıya çevirir; en fazla 15 haneli sayılarda çalışır.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Firma, adres, M.V.D. ve vergi no alanlarını doldurun.
3. Kalem satırlarına adet, birim fiyat ve iskonto bilgilerini girin; tutarlar ve toplamlar otomatik hesaplanır.
4. Toplamı yazıyla göstermek için ilgili hücrede yaziyacevir fonksiyonunu toplam hücresine başvurarak kullanın.
5. Çıktı için CTRL+Y tuşlarına basın; G53 hücresine giriş yapıldığında da çıktı otomatik alınır, bu nedenle yazıcınızı önceden hazırlayın.