Amortisman Hesaplama

Bu dosya, sabit kıymetlerin amortismanını hesaplamak ve seçilen yıla göre rapor almak için hazırlanmış makrolu bir Excel çalışmasıdır. Hesaplar formüllerle değil, VBA makrolarıyla yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Parametreler: Hesap kodları (250-262) ile amortisman yöntemleri listesi (N, K, HN, HK) yer alır. Yöntem listesi "Yontemler", çıkış seçimi ise "Sor" adlı aralıkla tanımlıdır.
• VeriTabani: Sabit kıymet kayıtlarının girildiği ve yıllara göre hesapların yazıldığı sayfadır (A1:IU179). Her yıl için amortisman gideri, toplam amortisman ve net değer sütunları oluşur.
• Rapor: Seçilen yıla ait özet rapordur. Firma ünvanı, hesap kodu, sıra no, ay, amortisman oranı, hesaplamada esas alınan oran, yıl ve net değer sütunlarını içerir.
• Oranlar_Tablosu: Oranların bulunduğu başvuru sayfasıdır.

Makrolar​

• Amortisman_Hesapla: VeriTabani sayfasındaki her kayıt için hesap adını Parametreler sayfasından bulur, sıra numarasını, alış ayını ve yılını yazar. Yöntem boşsa "N" kabul eder. "K" ve "HK" yöntemleri yalnızca 254 kodlu kayıtlarda geçerlidir, diğerlerinde "N" yapılır. Hızlandırılmış yöntemlerde oran iki katına çıkar ve en çok 0,5 olur. Ardından yıl yıl amortisman gideri, toplam amortisman ve net değeri hesaplar; ömrü biten kıymeti kapatır. Sonunda alt toplamları ve biçimi uygular.
• Raporla: Hangi yıl istendiğini sorar, VeriTabani'ndan ilgili yılın değerlerini Rapor sayfasına alır, hesap koduna göre sıralar, alt toplam ekler ve toplam satırlarını sarıya boyar.
• Cikis: Yıllık sütunlara, kıymetin o yıl çıkışının "V" ile işaretlenebilmesi için liste doğrulaması ekler.
• Omur ve Amortisman: Kullanıcı tanımlı iki fonksiyondur. Omur, orandan faydalı ömrü; Amortisman ise alış tarihi, maliyet, oran ve yönteme göre belirli bir yılın amortismanını hesaplar.
• Diğer yordamlar: Bicim, Yedek, SatirEkle, SatirSil, AltTopla, AltToplaIptal ve BH yordamları da modülde bulunur. Dosya açılırken ve kapanırken Yedek yordamı otomatik çalışır.
• UserForm1: Yıl girilen bir form vardır. Düğmeye basıldığında Raporla çalışır ve Rapor sayfasına net değer ile amortisman değerleri yazılır.

Kodda dosya silme ya da dışarıya bağlantı kuran bir işlem görülmemiştir. Raporla yalnızca Rapor sayfasının içeriğini siler ve yeniden oluşturur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. VeriTabani sayfasına kıymetlerin hesap kodu, alış tarihi ve maliyetini girin; yöntemi N, K, HN veya HK olarak seçin.
3. Amortisman_Hesapla makrosunu çalıştırın.
4. Rapor için Raporla makrosunu ya da formu çalıştırın ve yılı girin.
5. Rapor sayfasındaki sonuçları kontrol edin.

Önemli: Kullanmadan önce dosyanın bir kopyasını alın. Dosya sayfaları sıra numarasıyla kullandığı için sayfa sırasını değiştirmeyin.