Comparing a vba variable to a range of cells

E

ed

Howdy!

I'm having some difficulty figuring out how to do the following, or
even if it can be done.

I've got a variable value that's a text string that is determined by
user entry on a form. I need to compare that variable to a range of
cells and if it appears in ANY cell in that range return a message
box. The range of cells is assigned a name through the define name
function.

The primary problem I've got is this needs to be nested in an IF
statement.

This may look a little silly becuase its not a valid statement, but in
essence what I need is this:

IF NewCupSN1.value = Names("AllCups").ANY.value Then
blah blah blah........

Any guidance would be much appreciated.
 
B

Bob Phillips

Try

IF Application.Countif(Activesheet.Range("AllCups"), NewCupSN1.Value) Then
blah blah blah........
 
P

Patrick Molloy

dim cell as range
for each cell in range("rangename")
if cell.value = usertext then
'' do whatever eg
cell.select
msgbox "found one ! ",,"yee ha!"
end if
next
 
M

Mike H

Hi,

Try this.

Sub Sonic()
Dim C As Range
For Each C In Range("AllCups")
If C.Value = NewCupSN1.value Then

'Do things here
End If
Next
End Sub

Mike
 
E

ed

Try

IF Application.Countif(Activesheet.Range("AllCups"), NewCupSN1.Value) Then
blah blah blah........

--
__________________________________
HTH

Bob












- Show quoted text -



Thanks much! This worked like a charm. And thanks to the others for
replying as well. Cheers!
 
R

Rick Rothstein

This should work...

If Not IsError(Range("AnyCups").Find(NewCupSN1.Value, _
LookAt:=xlPart, MatchCase:=False)) Then

where the xlPart tells the Find function to find the text within any single
cell within the AnyCups range even if the text is embedded within a larger
text string in that cell... use xlWhole if you want the match to be for a
cell's entire content.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top