.Find Help

[Alteran]

I am trying to use .find to find a row and pull the information from it to a user form, however because there is formulas in the row I am looking in its not finding the value i need can anyone help?

This is the code I have done so far:

Private Sub cbLoad_Request_Click()
Dim TravelFound As Range
With Range("TravelItems")
    Set TravelFound = .Find(tbTRID.Value)
    If TravelFound Is Nothing Then
        MsgBox ("Travel request does not exist!")
        tbTRID.Value = ""
        Exit Sub
    Else
        With Range(TravelFound.Address)
            ddDir = .Offset(0, 2)
            ddTType = .Offset(0, 3)
            ddCC = .Offset(0, 4)
            ddOPSC = .Offset(0, 5)
            tbEName = .Offset(0, 6)
            tbStartD = .Offset(0, 7)
            tbEndD = .Offset(0, 8)
            tbLocation = .Offset(0, 10)
            tbName = .Offset(0, 11)
            tbClass = .Offset(0, 12)
            tbEorC = .Offset(0, 13)
            tbECost = .Offset(0, 14)
            tbJustification = .Offset(0, 15)
            tbSTComments = .Offset(0, 16)
            ddST = .Offset(0, 18)
            ddIA = .Offset(0, 20)
            ddTStatus = .Offset(0, 22)
            tbSTDate = .Offset(0, 19)
            tbIABDate = .Offset(0, 21)
            tbTDate = .Offset(0, 23)
            tbAddition = .Offset(0, 17)
        End With
    End If
End With
End Sub

 

[VoG]

Try

Set TravelFound = .Find(what:=tbTRID.Value, LookIn:=xlValues, lookat:=xlWhole)

 

[Alteran]

I am still getting the travel does not exist error, so its not finding it, and I picked one from the list. I know if I go into the sheet and use the find command in excel and set it to values it will find it when I use the form, however Its not just me who would be using the user form.

 

[VoG]

Is tbTRID a date by any chance? If so you'll need to convert it using CDate or cLng.

 

[Alteran]

tbTRID is a number for example: 6.012

The named Range TravelItems =Rollup!$A:$A

Which is a secondary sheet from the one the form opens from.

I have tried using:

.Find(what:=tbTRID.Value, LookIn:=xlValues, LookAt:=xlPart)

which will return some values but they seem to be from the wrong sheet.