Sumproduct - Makro ve Döngü içinde ???

[diyalog]

Forumda yaptığım aramalarda, Leventm ve Zafer arkadaşların verdiği bilgiler sayesinde SUMPRODUCT fonksiyonunu makro içinde kullanabiliyorum.

Sorunum ise fonksiyonu döngü içerisinde kullanmayı beceremedim. Sayfa seçildiğinde çalışmasını istediğim Kodları ve örnek dosyayı ekliyorum.

Kodlarda kırmızı ile yazılı kısmı C6 olarak yazdığımda sorun olmuyor ama döngü içerisinde kullanmak istediğim için bu kısma "ne yazmalıyım ?" veya " hata nerede ?" konularında yardımcı olursanız sevinirim.

Private Sub Worksheet_Activate()
Dim a As Integer
For a = 6 To 25
Set s1 = Sheets("Sayfa1")
s1.Cells(a, 5) = Evaluate("SumProduct((Sayfa2!C7:C21=cells(a,3))*(Sayfa2!D721))")
Next
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Activate()
Dim a As Integer
For a = 6 To 25
Set s1 = Sheets("Sayfa1")
s1.Cells(a, 5) = Evaluate("=SumProduct((Sayfa2!C7:C21=" & [COLOR=red]cells(a,3).address & "[/COLOR])*(Sayfa2!D7: D21))")
Next
End Sub

 

[diyalog]

Levent Bey verdiğiniz kod mükemmel işliyor. Çok teşekkür ederim. Ellerinize sağlık.