Çoklu Goal Seek (Hedef Ara) Makrolu Hesaplama

[sgdepo]

Basit faiz hesaplamasında fark kolonunda hesaplanan değerlerin sıfır olması için vade başlangıç tarihileri ne olmalıdır. Sorusuna macro ile çözüm aramaktayım. Hedef ara ile bu işlemi yapabiliyorum ama 10000 işlem için uygun olmuyor. yardımlarınızı rica ederim.

 

[sgdepo]

Range("G3").GoalSeek Goal:=0, ChangingCell:=Range("C3") arkadaşlar şu formülde tek bir satır için hesaplama yapabiliyorum. G3 ve C3 yerine ne yazmam gerekliki tek seferde 10000 hesaplama yapılsın

 

[Skorpiyon]

Sayın sgdepo,

Aşağıdaki kodu bir butona atayarak deneyiniz.

Sub Düğme1_Tıklat()
Dim a As Long
For a = 2 To 65536
If Cells(a, 7).Value <> "" Then
Cells(a, 7).GoalSeek Goal = 0, ChangingCell:=Cells(a, 3)
Else
GoTo dur
End If
Next a
dur:
End Sub

Saygılarımla...