Sayfadaki kodun VBA'ya uyarlanması

[İsmail Küçükşengün]

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.....

 

[İsmail Küçükşengün]

Sayın Forum üyeleri;

Bir çözüm olmazsa, sayfadaki düğmeyi, userformdaki com.button ile çalıştırabilir miyiz? :düsün:

 

[İsmail Küçükşengün]

Sorunumu Çözdüm...

 

[dEdE]

Sorunumu Çözdüm...

Nasıl çözdünüz? Bizimle paylaşmayı düşünür müsünüz?
Saygılar.

 

[İsmail Küçükşengün]

Sayın dEdE;

Ben aslında olmaz diye, hiç denemeden bu sorunu foruma taşımıştım.Fakat Kodu olduğu gibi Userformdaki butona atadım. Başına da sayfayı tanımladım.

 

[dEdE]

...... hiç denemeden .......

:kafa:
Teşekkürler. İyi Çalışmalar.