problem

[trexanderson]

I'm new at this and need some help, Can anyone tell me why this if statement won't work and give me an example of how it can?

Thanks


Sheets("Seattle").Select
range("h10").Select
findvalue = range("h10").Value
cut = InputBox("enter the cut")
If cut = findvalue Then
MsgBox cut
End If
end sub

[Tommy Bak]

Well, your code seems to work fine.
What is the problem ??

Tommy

[trexanderson]

It will never exe the if statement even when its true.

[dimrod]

Dim findvalue
Sheets("Sheet1").Select
findvalue = Range("h10").Value
Cut = InputBox("enter the cut")
If Cut = findvalue Then
MsgBox Cut
End If

[Tommy Bak]

What kind of data is in H10 ?
text or values ?
I'm asking, becaurse input returns a string and if you are comparing that against a value the if will not exe.
Tommy

[Tommy Bak]

you could try this. The CStr converts the value thats is returned from H10 to text and now it can be compared.

Range("h10").Select
findvalue = CStr(Range("h10").Value)
Cut = InputBox("enter the cut")
If Cut = findvalue Then
MsgBox Cut
End If

regards Tommy

[Joe Was]

I guessed that this is what you wanted?

Sub myCut()
Dim cut As Long
'Input the cut wanted.
cut = InputBox("Enter the cut wanted:")

'If the cut wanted is in the stock list?
'Note: "StockCut" is a named-range-list!
With Worksheets("Sheet1").Range("StockCuts")
Set c = .Find(cut, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address

'If found in stock list display MsgBox.
MsgBox "The cut wanted is a stock cut: " & cut

'Check full "StockCuts" list for match.
Do
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If

'Not found end search.
End With

End Sub

This code will search a list of stock cuts for a match with a cut inputed, if found on the list, display a message. Hope this is what you wanted? JSW

[ This Message was edited by: Joe Was on 2002-05-17 20:08 ]

[trexanderson]

Thanks

All of these examples helped