Formülü koda çevirme

[cemshan]

Arkadaşlar aşağıdaki formülü kullanıyorum .
bu formül ile aldığım veri üzerinde değişiklik yapıyorum. Dolayısı ile her seferinde formülü tekrar yazmam gerekiyor.
Formülümü D12 hücresine yazıp aşağıda doğru kopyalıyorum.

Kod ile bunu çözebilirmiyim ?

=TOPLA.ÇARPIM((KAYNAK!$C$2:$C$5272=$N$5)*(KAYNAK!$F$2:$F$5272=B12)*(KAYNAK!$I$2:$I$5272))

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırırsanız D12: D1000 aralığında bir hücreye çift tıkladığınızda o hücreye verdiğiniz formülü yazar:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [D12:D1000]) Is Nothing Then Exit Sub
ActiveCell.FormulaR1C1 = _
        "=SUMPRODUCT((KAYNAK!R2C3:R5272C3=R5C14)*(KAYNAK!R2C6:R5272C6=RC[-2])*(KAYNAK!R2C9:R5272C9))"
End Sub