Trying to find if cell in range is exact match for criteria

[Jeddo]

New to VBA and still trying to learn. I have a code to look in a column range and find if there is a numeric match for the value in a text box. It is working except for the problem I am having which is the formula is not finding an exact match. Example: I enter the number 61 in the text box. There is no 61 in the column range, but there is a 610, which the formula is recognizing as 61. Any help would be appreciated.

Dim rngCust As Range

Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B5:B180").Find(what:=Me.txtItem)

If rngCust Is Nothing Then

MsgBox "Item number does not exist"

 

[DanteAmor]

Try the following:

Dim rngCust As Range
    If IsNumeric(Me.txtItem) Then valor = Val(Me.txtItem) Else valor = Me.txtItem
    Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B5:B180").Find( _
        what:=valor, LookIn:=xlValues, lookat:=xlWhole)
    '
    If rngCust Is Nothing Then
        MsgBox "Item number does not exist"
    Else
        MsgBox "Value : " & Me.txtItem.Value
    End If

 

[Jeddo]

Try the following:

Dim rngCust As Range
    If IsNumeric(Me.txtItem) Then valor = Val(Me.txtItem) Else valor = Me.txtItem
    Set rngCust = ActiveWorkbook.Worksheets("Auction Items").Range("B5:B180").Find( _
        what:=valor, LookIn:=xlValues, lookat:=xlWhole)
    '
    If rngCust Is Nothing Then
        MsgBox "Item number does not exist"
    Else
        MsgBox "Value : " & Me.txtItem.Value
    End If

Thanks, that seems to do the trick. Way more than I ever could have figured out on my own. Thanks again

 

[DanteAmor]

Thanks, that seems to do the trick. Way more than I ever could have figured out on my own. Thanks again

Tip:
You can read the documentation in office, just search in google excel find.method, and you can do it with any excel instructions.