İsmail Küçükşengün
Özel Üye
- Katılım
- 31 Ağustos 2005
- Mesajlar
- 1,534
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
Merhabalar;
(NOT: Bu soruyu "faiz hesabı" bölümünde sormuştum. Benim isteğim faizin hesabı ile ilgili olmayıp aşağıda belirttiğim şekilde olduğundan burada sormaktayım.)
Sayın meslektaşımın sorusu üzerine, sayın danersin'in ve en son sayın dost tarafından düzeltilerek oluşturulan, benim ve sanırım birçok kişinin kullandığı ve aşağıda kodu yazılı faiz hesabında;
Sub hesapla()
k = 4
Do While Cells(k, 7) <> ""
tutar = Cells(k, 7)
bastar = Cells(k, 8)
sontar = Cells(k, 9)
tmpbastar = bastar
j = 4
faiz = 0
devam = True
Do Until devam = False
faiztar = Cells(j, 3)
If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False
If bastar > faiztar Then GoTo 20
faizor = Cells(j - 1, 4)
faiz = faiz + ((faiztar - tmpbastar) * tutar * faizor) / 36500
tmpbastar = faiztar
20
j = j + 1
Loop
Cells(k, 10) = faiz
k = k + 1: faiz = 0
Loop
End Sub
Bu kod faiz hesaplamasının yapıldığı sayfaya konulan bir düğme vasıtasıyla çok güzel çalışıyor.
Benim sorum:
Bu hesaplamayı userform üzerindeki bir butonla yapmak istediğimizde, VBA kodu nasıl olmalıdır. Açıklamalı dosya ektedir.
Şimdiden Teşekkürlerimizle.....
(NOT: Bu soruyu "faiz hesabı" bölümünde sormuştum. Benim isteğim faizin hesabı ile ilgili olmayıp aşağıda belirttiğim şekilde olduğundan burada sormaktayım.)
Sayın meslektaşımın sorusu üzerine, sayın danersin'in ve en son sayın dost tarafından düzeltilerek oluşturulan, benim ve sanırım birçok kişinin kullandığı ve aşağıda kodu yazılı faiz hesabında;
Sub hesapla()
k = 4
Do While Cells(k, 7) <> ""
tutar = Cells(k, 7)
bastar = Cells(k, 8)
sontar = Cells(k, 9)
tmpbastar = bastar
j = 4
faiz = 0
devam = True
Do Until devam = False
faiztar = Cells(j, 3)
If Cells(j, 3) = "" Or faiztar > sontar Then faiztar = sontar: devam = False
If bastar > faiztar Then GoTo 20
faizor = Cells(j - 1, 4)
faiz = faiz + ((faiztar - tmpbastar) * tutar * faizor) / 36500
tmpbastar = faiztar
20
j = j + 1
Loop
Cells(k, 10) = faiz
k = k + 1: faiz = 0
Loop
End Sub
Bu kod faiz hesaplamasının yapıldığı sayfaya konulan bir düğme vasıtasıyla çok güzel çalışıyor.
Benim sorum:
Bu hesaplamayı userform üzerindeki bir butonla yapmak istediğimizde, VBA kodu nasıl olmalıdır. Açıklamalı dosya ektedir.
Şimdiden Teşekkürlerimizle.....