How to use 2 functions in VBA

Question

Hope somebody can help me.

I wrote the following function which doesn't allow me to search text within text and return a result:

Function ErrorLabel (ErrorMessage as string) as string
    If ErrorMessage = "modified" Or "weight" then
        ErrorLabel = "Valid error"
    End If
End Function

Can somebody please explain how I can introduce another function find or search that allows me to search within a text?

Sorry I’m just starting to learn programming in VBA. Reading the suggested post didn’t answer my question for me. I just want to search within a cell and see whether the word exist in the cell and return a result. My question is how can I add the find function within a IF function. — Ryan
– Ryan, Commented Jul 13, 2018 at 11:38
ErrorMessage = "modified" Or "weight" doesn't mean what you seem to think it means. You would need ErrorMessage = "modified" Or ErrorMessage = "weight" — John Coleman
– John Coleman, Commented Jul 13, 2018 at 18:26

user4039065 · Accepted Answer · 2018-07-13 18:20:09Z

1

It looks like you want to see if either keyword is within the string you are passing in.

Function ErrorLabel (ErrorMessage as string) as string
    If cbool(instr(1, ErrorMessage, "modified", vbtextcompare)) Or _
       cbool(instr(1, ErrorMessage, "weight", vbtextcompare)) then
        ErrorLabel = "Valid error"
    else
        ErrorLabel = "Invalid error"
    End If
End Function

answered Jul 13, 2018 at 18:20

user4039065

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to use 2 functions in VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related