The find function

[Albert]

Hi Guys,

I got the following code

Sub message()
Dim Response As Integer
Dim destWB1 As Workbook

Response = MsgBox("Has the customer called in before?", vbQuestion +
vbYesNo, "")

If Response = vbYes Then
Set destWB1 = Workbooks.Open("K:\Customer services screen\Test Database\Test
DB.xlsm")
'destWB1.Sheets("Sheet1").Activate

Dim myC As Range
Set myC = Worksheets("Sheet1").Range("A:A").Find(TxtIDnumber.Text)
If myC Is Nothing Then
MsgBox frmCustomerService.TxtIDnumber.Text & " was not found."
FrameContact.Visible = True
TextNotesview.Visible = False
LabelNotesview.Visible = False
ActiveCell.Offset(0, 5) = "Called in before"
DTPicker2.Value = CVar(Date)
' frmCustomerService.DTPicker2.Value = CVar(Date)
Else

FrameContact.Visible = True
frmCustomerService.TextBoxSpoketo.Text = myC(1, 3).Value 'Pick up
the cell to the right of the ID#
frmCustomerService.DTPicker2.Value = myC(1, 2).Value 'Pick up the
cell two to the right of the ID#
frmCustomerService.TextBoxOutcome.Text = myC(1, 10).Value
frmCustomerService.TextNotesview.Text = myC(1, 12).Value

End If

ElseIf Response = vbNo Then
' myC(1, 6).Value = "No"
ActiveCell.Offset(0, 5) = "No"
FrameContact.Visible = False
End If
destWB1.Close
End Sub

I can't get to find the textbox value eventhough I know it's in the workbook.

Please help?

Thanks
Albert

 

[Joel]

You may need lookin and lookat
Set myC = Worksheets("Sheet1").Range("A:A").Find( _
what:=TxtIDnumber.Text, _
lookin:=xlvalues, _
lookat:=xlwhole)