Bileşik faiz vba kodu

[honestman]

Bileşik faiz vba kodu hakkında yardım rica ederim. Ekteki dosyada açıklama mevcuttur.

 

[honestman]

Değişken oranlı faizi bir türlü makrolaştıramadım. En azından fikir verirseniz sevinirim.

 

[halit3]

Eklemiş olduğun nesnelerin biçimleri bozuk olduğundan onları sildim ve yeniden oluşturdum.

kod:

Private Sub CommandButton1_Click()

son = Cells(Rows.Count, "a").End(3).Row

bas = Cells(17, "c").Value
bit = Cells(17, "d").Value
deger = Cells(17, "e").Value

deg1 = ""
deg2 = ""

For i = 2 To son

If Cells(i, "a").Value = bas Then
deg1 = i
End If

If Cells(i, "a").Value = bit Then
deg2 = i
End If

Next i

If Val(deg1) <= 0 Or Val(deg2) <= 0 Then MsgBox "yılların seçiminde hata var": Exit Sub

Sheets("Sheet1").TextBox2.Text = ""
Sheets("Sheet1").ListBox1.Clear
Sheets("Sheet1").ListBox2.Clear

[COLOR="Red"]sat = 23[/COLOR]

say = 1
bulunan = 0

For i = 2 To son

aranan1 = Cells(i, "b").Value
If deg1 <= i And deg2 >= i Then
If say = 1 Then
bulunan = deger + ((deger * aranan1) / 100)
Else
deger = bulunan
bulunan = deger + ((deger * aranan1) / 100)
End If
[COLOR="red"]Cells(sat, "h").Value = bulunan[/COLOR]

Sheets("Sheet1").TextBox2.Text = Format(bulunan, "#.00")
Sheets("Sheet1").ListBox1.AddItem Cells(i, "a").Value
Sheets("Sheet1").ListBox2.AddItem Format(bulunan, "#.00")

say = say + 1
[COLOR="red"]sat = sat + 1[/COLOR]
End If
Next i

MsgBox "işlem tamam"
End Sub

 

[honestman]

Allah razı olsun. Acemiliğin cilveleri işte. Çok teşekkürler Halit abi.

 

[halit3]

Allah razı olsun. Acemiliğin cilveleri işte. Çok teşekkürler Halit abi.

Teşekkürler iyi çalışmalar.