VBAFormula IFERROR SUMPRODUCT SUM IF error problem

[DeezNuts]

I am trying to add this line in to thiswroksheets vba and getting my butt kicked.

IFERROR(SUMPRODUCT(A201:E201,A231:E231)/SUM(IF(A231:E231<>""-"",A201:E201)),""-"")

I am trying like this

Range("E232").Value = Evaluate("{=IFERROR(SUMPRODUCT(A201:E201,A231:E231)/SUM(IF(A231:E231<>""-"",A201:E201)),""-"")}")

I have tried with and without {} and still get a VALUE error. The "-" are place holders on the sheet. Anyone able to shed any light on how to fix this?

 

[Danerida]

Try:

Range("E232")..FormulaArray = "=IFERROR(SUMPRODUCT(R[200]C:R[200]C[4],R[230]C:R[230]C[4])/SUM(IF(R[230]C:R[230]C[4]<>""""-"""",R[200]C:R[200]C[4])),""""-"""")"

 

[DeezNuts]

Thank you for trying Danerida that still returns a VALUE error. Also noticed that version is installing the formula in the cell which is what I am avoiding. Will look into this more tomorrow need some sleep.

 

[Danerida]

My bad... Try:

Range("E232").Value = Evaluate(Range("E232").FormulaArray = "=IFERROR(SUMPRODUCT(R[200]C:R[200]C[4],R[230]C:R[230]C[4])/SUM(IF(R[230]C:R[230]C[4]<>""""-"""",R[200]C:R[200]C[4])),""""-"""")")

 

[DeezNuts]

This is being a pain in the butt. It is returning False now even though there are values Here is what I have to make it fit with my setup

Range("E232").Value = Evaluate(Range("E232").FormulaArray = "=IFERROR(SUMPRODUCT(R[-31]C[-4]:R[-31]C[0],R[-1]C[-4]:R[-1]C[0])/SUM(IF(R[-1]C[-4]:R[-1]C[0]<>""-"",R[-31]C[-4]:R[-31]C[0])),""-"")")

I am lost on this one