IFERROR or Error On in VBA

[BrittKnee]

I am fairly new to coding in VBA and was wondering how to add an error formula to the following string of code:

For I = a To lastRow
If Range("I" & I).Value / Range("H" & I).Value > 1 Then
Range("P" & I).Value = "Review"
Range("Q" & I).Value = "Review"
Range("R" & I).Value = "Charity Adjustment > Total Charges"
End If

I need something that will set errors = 0 in the IF statement


Thanks

 

[Joe4]

Are the errors due to trying to divide by zero (if the value in column H is zero or blank), or are you talking about errors in column H or I?
And what is it that you are setting equal to zero?

If column H is zero, you can simply do something like:

If Range("H" & I).Value = 0 Then ...

 

[BrittKnee]

There are errors due to 0 being in the denominator. I would need to set the value of the formula (I/H) to 0

Thanks!

 

[Joe4]

Then use what I posted above.
Nest your other IF statement under this one, i.e.

[FONT=Verdana]For I = a To lastRow[/FONT]
    If Range("H" & I).Value = 0 Then
'       enter what you want to happen here when denominator is zero
    Else
        If Range("I" & I).Value / Range("H" & I).Value > 1 Then
            ...