formula convert to vba function

[zrx1200]

I was wondering this...

I want to possibly change this formula to a function in vba?
I have12 sheets (months) and say 600 rows of data which below formula must act on in each individual sheet.
My thought is, one place only for formula instead of 600*12 places.
When row gets populated e function would be called and place value into cell.

Is this a fair approach/idea ?

Stumbling block is, joining sum product and sum if worksheet functions vba???

=IF(SUMPRODUCT(SUMIF(Data!$A$3:$A$250,Aug!D4:M4,Data!$C$3:$C$250))=0,"",SUMPRODUCT(SUMIF(Data!$A$3:$A$250,Aug!D4:M4,Data!$C$3:$C$250)))

 

[Kamolga]

Too complicated for me to get the macro calculating the value without going through a cell, so my macro would rather paste the value of a dummy cell:

For example

Aug!D4:M4 can be called VarRange using define name in formula tab and call DumCell your dummyCell. So in your dummy cell you have the formula

[LEFT][COLOR=#333333][FONT=Verdana]=IF(SUMPRODUCT(SUMIF(Data!$A$3:$A$250,VarRange,Data!$C$3:$C$250))=0,"",SUMPRODUCT(SUMIF(Data!$A$3:$A$250,VarRange,Data!$C$3:$C$250)))[/FONT][/COLOR][/LEFT]

​

and then lets say you want the value in N5 to be calculated from formula Aug!D5:M5:

ActiveWorkbook.Names("VarRange").RefersToR1C1 = "=Aug!R5C4:R5C13"
[LEFT][COLOR=#222222][FONT=Tahoma]Range("E5")=DumCell.value[/FONT][/COLOR][/LEFT]