StrComp

[Guest]

How can I do a StrComp of multiple text strings?
Example: StrComp(Target.Offset(0, -5).Text, "AMX", vbTextCompare) = 0
or StrComp(Target.Offset(0, -5).Text, "AMX, BAVR, BAVS", vbTextCompare) = 0
or is it
StrComp( Target.Offset(0, -5).Text, "AMX",Target.Offset(0, -5).Text,
"BAVR",Target.Offset(0, -5).Text, "BAVS", vbTextCompare) = 0
or is it something else
AMX or BAVR or BAVS can be in a given cell and I do postings based upon the
cell value.

 

[Jim Cone]

Sub WhoGoesThere()
Dim N As Long
Dim vArr As Variant
vArr = Array("AMX", "BAVR", "BAVS")
For N = 0 To 2
If InStr(1, Target.Offset(0, -5).Text, vArr(N), vbBinaryCompare) > 0 Then
'do something
Exit For
End If
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




"Rick"wrote in message
How can I do a StrComp of multiple text strings?
Example: StrComp(Target.Offset(0, -5).Text, "AMX", vbTextCompare) = 0
or StrComp(Target.Offset(0, -5).Text, "AMX, BAVR, BAVS", vbTextCompare) = 0
or is it
StrComp( Target.Offset(0, -5).Text, "AMX",Target.Offset(0, -5).Text,
"BAVR",Target.Offset(0, -5).Text, "BAVS", vbTextCompare) = 0
or is it something else
AMX or BAVR or BAVS can be in a given cell and I do postings based upon the
cell value.

 

[Jim Cone]

Missed a note in my air code.
Need a "Next" right after End If...

End If
Next
End Sub

 

[Guest]

Jim:
It gave me an error #424 Object Required... What Object does it need?

 

[Jim Cone]

Rick,
I would imagine that "Target" is the culprit.
My code was not intended to be a complete solution or even a complete sub.
You have to incorporate what I posted into your existing code.
"Target" is normally part of "event" code in the module behind a sheet or in
the ThisWorkbook module. It usually refers to the cell that was changed (a range object).
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)


"Rick" <[email protected]>
wrote in message
Jim:
It gave me an error #424 Object Required... What Object does it need?