Toplam Tutara Göre Konut Kredisi Hesaplama

Toplam Tutara Göre Konut Kredisi Hesaplama, ilgili işlemin VBA kodları ile nasıl yapılacağını öğreten bir Hazır Makro Kodu içermektedir.

Hazır Kodlar: Toplam Tutara Göre Konut Kredisi Hesaplama

Sub toplam_tutara_gore_konut_kredisi_hesaplama()
    Dim ws As Worksheet
    Set ws = Sayfa1
 
    ws.Cells.ClearContents
    ws.Range("A1:H1").Value = Array("TAKSIT NO", "TARİH", "TAKSİT", "ANAPARA", "FAİZ", "KKDF", "BSMV", "KALAN ANAPARA")
 
    Dim i As Integer
    Dim startDate As Date
    startDate = DateSerial(2024, 5, 6)
 
    For i = 1 To 60  ' 60 ay vade
        ws.Cells(i + 1, 1).Value = i
        ws.Cells(i + 1, 2).Value = DateAdd("m", i - 1, startDate)
        ws.Cells(i + 1, 3).Value = "=PMT(0.99%,  60, -125000 )"
        ws.Cells(i + 1, 4).Formula = "=PPMT(0.99%, " & i & ", 60, -125000)"
        ws.Cells(i + 1, 5).Formula = "=IPMT(0.99%, " & i & ", 60, -125000)"
        ws.Cells(i + 1, 6).Value = 0  ' KKDF
        ws.Cells(i + 1, 7).Value = 0  ' BSMV
        If i = 1 Then
            ws.Cells(i + 1, 8).Formula = "=125000 - " & ws.Cells(i + 1, 4).Address
        Else
            ws.Cells(i + 1, 8).Formula = "=" & ws.Cells(i, 8).Address & " - " & ws.Cells(i + 1, 4).Address
        End If
    Next i
End Sub

Açıklama

Bu makro, yukarıda verilen kodları kullanarak otomatik bir şekilde Konut Kredisi Hesaplama Tablosu oluşturmaktadır. Makro çalıştırıldığında, sayfada 60 aylık bir amortisman programı hazırlanmaktadır.

Değer olarak verilen rakamlar, kullanıcının isteğine bağlı olarak kolayca değiştirilmektedir.

Faydalanılması temennisiyle