Look for EXACT value in a range

[noobsauce]

Hey guys,

I need some help with this code here.

For l = 1 To myrange.Rows.Count
        
    'looking for MRQ
        Set rngFndb = .Columns(mrq).Find(myrange(l, 1))
        If rngFndb Is Nothing Then
            k = 0
        Else
            k = rngFndb.Row

It was working find until I accidentally stumbbled across a major issue. First of all myrange is selected via input box and it contains a list of activity codes. Now my macro uses the values in myrange to get coressponding values from another excel workbook. The issue I'm running across is the fact that in myrange there are codes which are very similiar (ie. PR4500 vs. PR45001). My macro is have trouble distinguishing between the two due to the fact that the first 6 characters are identical. I was wondering if there was a way to find EXACT value in myrange. I was thinking something like

 Set rngFndb = .columns(mrq).find(what:=myrange(l,1), after:=.cells(1,1), lookin:=xlValues, looat:=[B]xlWhole[/B], searchorder:=xlbyrows, searchdirection:=xlNext, matchcase:=false)

, but that didn't work for me =P. I hope someoen has a solution they would like to share. Thanks in advance and hope everyone is having a great weekend.

Cheers,

Noobsauce

 

[shg]

The argument is LookAt

 

[noobsauce]

shg thanks for the pick up on that, but unfortunately that's just my typo. I think the problem lies in the what:= part, I don't think it supports the myrange(l,1) object type.

 

[shg]

Maybe you could post your actual code. For example, there's a missing With statement used by the After argument.

 

[noobsauce]

I believe this is the part of the code that is relevant...

Private Sub StartDC_Click()
Dim myrange As Range
Set myrange = Application.InputBox("Please select a range of cells", "Range", Selection.Address, , , , , 8)
Dim WB As Workbook
filetoopen = Application.GetOpenFilename(Title:="Please choose a file to import")
If filetoopen = False Then
MsgBox "No file specified.", vbExclamation, "Epic Fail"
Exit Sub
Else
Workbooks.Open Filename:=filetoopen
Set WB = ActiveWorkbook
End If
Dim mrq As Integer
Dim l As Integer

With WB.Sheets(1)
mrq = .Cells.Find("MRQ to PO").Column

Dim k As Integer

'MsgBox mrq
For l = 1 To myrange.Rows.Count

'looking for MRQ
Set rngFndb = .Columns(mrq).Find(myrange(l, 1))
If rngFndb Is Nothing Then
k = 0
Else
k = rngFndb.Row

End If