Excel ISERROR function

M

MarkD

I have 8,000 line of data to apply function to, it works but the data element
I am comparing has to be rekeyed into cell to make function work properly.
 
G

Gord Dibben

Mark

Not sure what your problem is.

Do you have the ISERROR function already in your formulas but doesn't work
until you F2>ENTER

This would indicate that the cells are formatted as text.

Format to General then select all and Edit>Replace

What: =

With: =

Replace all. This forces Excel to treat as a formula.

OR you need the ISERROR added to each formula?

Sub ErrorTrapAdd()
Dim myStr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=IF(ISERROR*" Then
myStr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=IF(ISERROR(" & myStr & "),""""," & myStr & ")"
End If
End If
Next
End Sub


Gord Dibben Excel MVP
 
Top