formulu makroya çevirmek

[jambow]

=TOPLA.ÇARPIM((full!$E$6:$E$65536=B1)*(full!$I$6:$I$65536=B13);full!$G$6:$G$65536)

arkadaşlar bu formulu makroya çevirebilirmiyiz
dosya ekte

 

[ftekin]

Sub Düğme2_Tıklat()
Sheets("Sayfa1").Cells(13, 3).FormulaR1C1 = "=SUMPRODUCT((full!R6C[2]:R65536C5=R[-12]C[-1])*(full!R6C9:R65536C9=RC[-1]),full!R6C7:R65536C7)"
End Sub

 

[jambow]

çok teşekkürler