BJORN



In my macro I did have the space between the ) and the .Select but must have had something else out of order because I also was able to make it work after I posted. I again did not think the formula all the way thru because when I saw my result I realized I needed the two new columns to have the same SUMIF >0 critera that you help me with to be included in the result in t9. I entered the formula using the +Sumif and it only would work on the N column. I could not get it to work for the O column.Sorry for the confusion. Here the formula I tried to enter.

Range("t9").Select
ActiveCell.FormulaR1C1"=SUMIF(R[1]C[-13]:R[36]C[-13],"">0"",R[1]C[-14]:R[36]C[-14])+SUMIF(R[1]C[-13]:R[36]C[-13],"">0"",R[1]C[-6]:R[36]C[-6])"+SUMIF(R[1]C[-5]:R[36]C[-5])"

Can you run the macro to see if you can get it to work?

Thanks again
Todd

Hi Todd,
The last SUMIF is missing a lot of info. Here is a correction that works for me:

Range("t9").Select
ActiveCell.FormulaR1C1 = "=SUMIF(R[1]C[-13]:R[36]C[-13],"">0"",R[1]C[-14]:R[36]C[-14])+SUMIF(R[1]C[-13]:R[36]C[-13],"">0"",R[1]C[-6]:R[36]C[-6])+SUMIF(R[1]C[-13]:R[36]C[-13],"">0"",R[1]C[-5]:R[36]C[-5])"

Another (shorter) solution is:

Range("t9").Select
ActiveCell.FormulaR1C1 = "=SUMPRODUCT((R[1]C[-13]:R[36]C[-13]>0)*(R[1]C[-14]:R[36]C[-14]+R[1]C[-6]:R[36]C[-6]+R[1]C[-5]:R[36]C[-5]))"

... which corresponds to the more readable:
=SUMPRODUCT((G10:G45>0)*(F10:F45+N10:N45+O10:O45))

Is there a special reason to why you use the R1C1-style?
This code I find it easier to read:
Range("t9").Select
ActiveCell.Formula = "=SUMPRODUCT((G10:G45>0)*(F10:F45+N10:N45+O10:O45) )"

I hope it works now for you!

Kind regards
Bjorn