Hi. I need to use the find tool in Excel but only for one column. How I
can do this? I have this:

Private Sub cmdTSearch_Click()
Dim DATA As String
DATA = txtTicket.Text

If txtTicket.Text = "" Then
MsgBox ("Text Box Empty")
Else
With Worksheets("Info").Range("X4:X700")
Set B = Cells.Find(What:=DATA, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=True)

If B Is Nothing Then
MsgBox ("Nothing Found")
Else
Range("X4:X500").Select
Cells.Find(What:=DATA, After:=ActiveCell, LookIn:=xlValues,
LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=True).Activate

End If

'MsgBox ActiveWindow.RangeSelection.Address

End With
End If
End Sub


Thanks.
Angel


--
xrckiss
------------------------------------------------------------------------
xrckiss's Profile: http://www.excelforum.com/member.php...o&userid=33065
View this thread: http://www.excelforum.com/showthread...hreadid=528787