Check to see if variable is duplicate.

I

ianripping

I am grabbing var1 from an inputbox.

I want to say if var1 = any of the values entered in cells b4:b32 the
goto Double

I tired

if var1 = range("b4:b32").value then goto double

but didnt work, any suggestions
 
B

Bob Phillips

On Error Resume Next
iPos = Application.Match(var1, Range("B4:B32"), 0)
If iPos > 0 Then _
MsgBox "hello"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
B

Bob Phillips

Ian,

You must declare iPos as a long to get this to work. If it defaults to
variant, it will always be > 0

Dim iPos As Long

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
R

Rob van Gelder

Could it be that iPos is declared as a global variable?
It might still retain it's previous result, even after Application.Match
errors.

Before Application.Match:
iPos = 0
 
Top