arkadaşlar aşağıdaki faiz hesaplatmaya çalıştığım kod neden çalışmıyor? yardımlarınızı bekliyorum. teşekkürler...
Sub kredihesaplayici()
Dim nekadarYTL As Integer
Dim aylikfaiz As Integer
Dim aylikodeme As Integer
nekadarYTL = InputBox("Kaç YTL çekmek istiyorsunuz=")
aylikfaiz = InputBox("aylık faiz oranı %=")
aylikodeme = InputBox("Aylık ödemek istediğiniz miktar=")
sayac = 0
Do
sayac = sayac + 1
Cells(sayac, 1).Value = sayac
Cells(sayac, 2).Value = nekadarYTL
nekadarYTL = ((nekadarYTL - aylikodeme) * (1 + aylikfaiz))
Loop While nekadarYTL < aylikodeme
End Sub
Sub kredihesaplayici()
Dim nekadarYTL As Integer
Dim aylikfaiz As Integer
Dim aylikodeme As Integer
nekadarYTL = InputBox("Kaç YTL çekmek istiyorsunuz=")
aylikfaiz = InputBox("aylık faiz oranı %=")
aylikodeme = InputBox("Aylık ödemek istediğiniz miktar=")
sayac = 0
Do
sayac = sayac + 1
Cells(sayac, 1).Value = sayac
Cells(sayac, 2).Value = nekadarYTL
nekadarYTL = ((nekadarYTL - aylikodeme) * (1 + aylikfaiz))
Loop While nekadarYTL < aylikodeme
End Sub