SumIf in ActiveCell.FormulaR1C1 ?

I want to change this
ActiveCell.FormulaR1C1 = "=SUM(R[-8]C:R[-1]C)"

so that if the value summed would equal 0 that the the cell is left blank.

Would appreciate if anyone could post the correct formula for this. Thanks.

Try this

hth
regards from Brazil


ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,"",SUM(R[-8]C:R[-1]C)"

"RitaP" escreveu:

> I want to change this
> ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,0,SUM(R[-8]C:R[-1]C)"
>
> so that if the value summed would equal 0 that the the cell is left blank.
>
> Would appreciate if anyone could post the correct formula for this. Thanks.

I pasted in your formula but I'm getting error 1004 application-defined or
object-defined error.

Rita

"Marcelo" wrote:

> Try this
>
> hth
> regards from Brazil
>
>
> ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,"",SUM(R[-8]C:R[-1]C)"
>
> "RitaP" escreveu:
>
> > I want to change this
> > ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,0,SUM(R[-8]C:R[-1]C)"
> >
> > so that if the value summed would equal 0 that the the cell is left blank.
> >
> > Would appreciate if anyone could post the correct formula for this. Thanks.

I got it working, just needed to add a couple more quotes to your formula
Marcelo. My thanks to you for pointing me in right direction.

Formula that worked:
ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,"""",SUM(R[-8]C:R[-1]C))"


"Marcelo" wrote:

> Try this
>
> hth
> regards from Brazil
>
>
> ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,"",SUM(R[-8]C:R[-1]C)"
>
> "RitaP" escreveu:
>
> > I want to change this
> > ActiveCell.FormulaR1C1 = "=IF(SUM(R[-8]C:R[-1]C)=0,0,SUM(R[-8]C:R[-1]C)"
> >
> > so that if the value summed would equal 0 that the the cell is left blank.
> >
> > Would appreciate if anyone could post the correct formula for this. Thanks.