#DIV/0! error using VB

[Bruce Brosek]

I populated an entire column using

ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-1])*52"

and some of the results equate to #DIV/0! based on RC[-1].

I want to read each cell for a variable amount of rows in
a single column, and if the value of RC[-1] is zero, force
the current cell to zero. This would eliminate the divide
by zero from displaying. The above activecell statement
calculates the entire column with 1 statement instead of
looping.

Thanks,

 

[Niek Otten]

ActiveCell.FormulaR1C1 = "=if(RC[-1]=0,0,(RC[-5]/RC[-1])*52)"

 

[bruce]

Worked perfect, thank you very much!

Bruce

-----Original Message-----
ActiveCell.FormulaR1C1 = "=if(RC[-1]=0,0,(RC[-5]/RC[-1]) *52)"

--
Kind regards,

Niek Otten
Microsoft MVP - Excel

I populated an entire column using

ActiveCell.FormulaR1C1 = "=(RC[-5]/RC[-1])*52"

and some of the results equate to #DIV/0! based on RC[- 1].

I want to read each cell for a variable amount of rows in
a single column, and if the value of RC[-1] is zero, force
the current cell to zero. This would eliminate the divide
by zero from displaying. The above activecell statement
calculates the entire column with 1 statement instead of
looping.

Thanks,

.