VB find (true false)

[Wildman]

I'm trying to mix in some VB in a macro I made that
looks for a particular word in a cell. If the word
exist, continue the macro. If it does not end the Macro.
any Ideas?

Cells to search for word a2:a30000
word can be mixed in with other characters.

Thanks in advance
Wildman

 

[Guest]

Try...
On Error Resume Next
x = Cells.Find(What:= myval, LookAt:=xlPart)
If Err.Number = 91 Then Exit Sub

 

[Bob Phillips]

For Each cell In Range(A2:A30000")
iPos = Instr(1,cell.Value,"the_word")
If iPos > 0 Then
'continue code
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Harlan Grove]

Bob Phillips wrote...

For Each cell In Range(A2:A30000")
iPos = Instr(1,cell.Value,"the_word")
If iPos > 0 Then
'continue code
End If
Next cell

Alternatively, could use Like.

For Each c In SomeRange
If c.Value Like "*" & your_word_here & "*" Then
'continue
End If
Next c

Sometimes exact text matching (InStr) is more useful, other times
pattern matching (Like) is.

 

[Bob Phillips]

Yep, I agree, that is better

Bob Phillips wrote...

Alternatively, could use Like.

For Each c In SomeRange
If c.Value Like "*" & your_word_here & "*" Then
'continue
End If
Next c

Sometimes exact text matching (InStr) is more useful, other times
pattern matching (Like) is.

 

[Wildman]

so what your saying is....
give my column a range name="test"

and say I'm searching for the word "Wildman"
then in my macro add...

If test.Value like "*"&"wildman"&"*" then
else
exit sub
End If





Thanks again
Wildman

 

[Bob Phillips]

even simpler

test.Value like "*wildman*"

--

HTH

RP
(remove nothere from the email address if mailing direct)