On Error Resume Next
Not working.
If I leave the equation as below then the errow window appears and the app
quites. If I add "On Error Resume Next" after the VLookup command, the app
continues but the statement ans4 = "Value Not Defined" is skipped.
What am I missing?
"Tom Ogilvy" wrote:
The easy way is this approach:
dim ans4 as Variant
ans4 = Application.VLookup(Range("C2"),Range("B6:D2000"), 3, False)
If iserror(ans4) Then
ans4 = "Value Not Defined"
End If
..Offset(1, 15).Value = ans4
--
Regards,
Tom Ogilvy
"Dan" wrote in message
...
I am using an VLookup and want to execute a specific action if the value is
not returned.
ans4 =
Application.WorksheetFunction.VLookup(Range("C2"), Range("B6:D2000"),
3, False)
On Error Resume Next
If "AN ERROR HAS OCCURRED" Then
ans4 = "Value Not Defined"
End If
.Offset(1, 15).Value = ans4
How do I do this?
Thanks
|