Is IsError appropriate? Not proceeding to Then statement 1

[skitrumpet]

Hi,

I am trying to write a procedure that if a variable (portfolio), isn't found in a range (term_portfolio), then find an alternative variable (area) in an alternative range (term_area).

The problem is that using the following does not follow the Then logic when an error was expected, i.e. no match in term_portfolio.

I'd be very grateful if someone would help me with what I'm missing.


I've tried the following:

Application.Goto reference:="term_portfolio"

If IsError(Selection.Find(what:=portfolio)) = True Then
Application.Goto reference:="term_area"
Selection.Find(what:=area).Activate
reporting_category = ActiveCell.Offset(0, 2)
Sheets("Deals").Select
ActiveCell = reporting_category
Else
Selection.Find(what:=portfolio).Activate
reporting_category = ActiveCell.Offset(0, 1)
Sheets("Deals").Select
ActiveCell = reporting_category

End If



Many thanks in advance

Adam

 

[samuelgvega]

isError() is a function that will return either True or False, you can't assign a value to it. Why don't you try:

If IsError(Selection.Find(what:=portfolio)) Then
....

 

[TonyJollans]

Selection.Find returns a Range Object or, if not found, Nothing. Checking for 'Error' is the wrong thing to do. Try, instead, ...

[blue]If (Selection.Find(what:=portfolio) Is Nothing) Then[/blue]

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[skitrumpet]

That's perfect.

Thanks very much for your help.


Adam