Iferror Invalid Procedure

[Ruca13]

Hello folks,

I'm trying to add what's on the left of "/", but sometimes the cell does not contain that character, and I am having trouble handling the error:

    Dim fbormk as Variant
    fbormk = Left(Cells(ActiveCell.Row, rmks), InStr(1, Cells(ActiveCell.Row, rmks), "/") - 1)
    If IsError(fbormk) = True Then
    fbormk = Cells(ActiveCell.Row, rmks)
    Else
    'fbormk = Left(Cells(ActiveCell.Row, rmks), InStr(1, Cells(ActiveCell.Row, rmks), "/") - 1)
    End If
        mail_body_message = Replace(sup_msg, "^", Cells(ActiveCell.Row, icao) & "/" & fbormk)

Whenever the cell does not contain "/", I get an Invalid Procedure error on the fbormk line.

On the other cases the code runs fine.

Thanks for the help

 

[Jonmo1]

You could make it so that InStr will always find the / by simply adding / to the end of the string it searches.

fbormk = Left(Cells(ActiveCell.Row, rmks), InStr(1, Cells(ActiveCell.Row, rmks) & "/", "/") - 1)

This will elimnate the need to test fbormk for error
because putting the / at the end of the string, when the string doesn't contain a /, it makes the left function return the whole original string

 

[Ruca13]

That makes a lot of sense, thank you very much for your help.

 

[Jonmo1]

You're welcome.