How to get Dim as Range to ignore #DIV/0!

[Matt__S]

Hi,

I have the code below that works so long as there are no #DIV/0! errors in the column. What do I need to add to this code to have it ignore those errors?

Thanks!


Dim ramcel As Range
For Each ramcel In Range("E:E")
If ramcel.Value < 0.95 Then
ramcel.Font.Color = vbRed
ramcel.Interior.Color = 13617407
End If
Next

 

[JoeMo]

Dim ramcel As Range
For Each ramcel In Range("E:E")
If Not IsError(ramcel) then
If ramcel.Value < 0.95 Then
ramcel.Font.Color = vbRed
ramcel.Interior.Color = 13617407
End If
end if
Next

 

[Fluff]

How about

   Dim ramcel As Range
   For Each ramcel In Range("E:E")
      If Not IsError(ramcel) Then
         If ramcel.Value < 0.95 Then
            ramcel.Font.Color = vbRed
            ramcel.Interior.Color = 13617407
         End If
      End If
   Next

 

[Matt__S]

Unfortunately neither of these are working for me. It's looking at column 'E' in a pivot table and it doesn't seem to recognize the #DIV/0! as actual errors.

Can I explicitly tell excel to simply skip over cells that contain "#DIV0!"?

There are also cells in the column that are empty. Can I tell excel to skip both the DIVs and empty cells, only looking for an actual percentage x%?

 

[JoeMo]

Unfortunately neither of these are working for me. It's looking at column 'E' in a pivot table and it doesn't seem to recognize the #DIV/0! as actual errors.

Can I explicitly tell excel to simply skip over cells that contain "#DIV0!"?

There are also cells in the column that are empty. Can I tell excel to skip both the DIVs and empty cells, only looking for an actual percentage x%?

I assume you have formulas in the col E cells, correct? If yes, then tell us what happens when you run the code. If there's an error, what line is highlighted, what's the error message, and what's the address of ramcel at that point?