KDV Hesaplama

KDV Hesaplama, Excel UserForm ile hazırlanmış bir şablondur. Tutarı ve KDV oranını girdiğinizde KDV dahil ve KDV hariç sonuçları form üzerinde gösterir. Aynı zamanda UserForm, Auto_Open ve OnKey gibi VBA konularını incelemek isteyenler için örnek niteliğindedir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodlarda dosya silme ya da dışarıya bağlantı kurma gibi zararlı bir işlem görünmemektedir.

Dosyanın içeriği​

• Sayfa1: B3:E10 aralığında yer alan çalışma sayfasıdır. Dosyada formül bulunmaz; hesaplamalar tamamen UserForm içinde yapılır.
• UserForm1: Tutar ve KDV oranı kutuları, HESAPLA düğmesi, 8 ve 18 oran düğmeleri ile "KDV DAHİL" ve "KDV HARİÇ" bölümlerinde KDV Tutarı, İşlem Tutarı ve Toplam Tutar etiketlerini içerir.
• Module1: Formu açan kısayol kodlarını barındırır.

Makrolar​

• Auto_Open: Dosya açıldığında F6 tuşunu ExcD makrosuna atar.
• Auto_Close: Dosya kapanırken F6 atamasını kaldırır.
• ExcD: UserForm1 formunu açar.
• CommandButton1_Click (HESAPLA): Tutar veya oran boşsa uyarı verir, doluysa sonuçları etiketlere yazar.
• CommandButton2_Click ve CommandButton3_Click: KDV oranı kutusuna sırasıyla 8 ve 18 değerini yazar.
• TextBox1_KeyPress ve TextBox2_KeyPress: Yalnızca rakam girişine izin verir, başka karakterde uyarı gösterir.
• TextBox1_Change ve TextBox2_Change: Değer değiştikçe sonuçları otomatik yeniler.
• TextBox1_Exit: Tutarı "#,##0.00" biçiminde gösterir.
• UserForm_Activate: Form açıldığında imleci tutar kutusuna getirir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. F6 tuşuna basarak formu açın.
3. "Tutarı Girin" kutusuna tutarı yazın.
4. KDV oranını yazın ya da 8 veya 18 düğmesine tıklayın.
5. Sonuçlar otomatik güncellenir; isterseniz HESAPLA düğmesine de basabilirsiniz.

Not: Kutulara yalnızca rakam girilebildiği için ondalıklı tutar ve oran yazımı kodda engellenmiştir.