Taksit Tutarına Göre Konut Kredisi Hesaplama

Taksit Tutarına Göre Konut Kredisi Hesaplama, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.

Hazır Kodlar: Taksit Tutarına Göre Konut Kredisi Hesaplama​

Sub taksit_tutarina_gore_konut_kredisi_hesaplama()
    Dim ws As Worksheet
    Set ws = Sayfa1
 
    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 = 124999.99
  ws.Cells(i + 1, 4).Formula = "=PPMT(0.99%, " & i & ", 60, -5634728)"
  ws.Cells(i + 1, 5).Formula = "=IPMT(0.99%, " & i & ", 60, -5634728)"
  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 = "=5634728 - " & 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, 60 aylık bir amortisman programı sayfanızda hazırlanmaktadır.

Değer olarak verilen rakamlar, kullacının kolayca kullanmasına göre hazırlanmıştır.

Faydalanılması temennisiyle