Prev: Workbook protection question
Next: advanced filter date criteria
From: Msgbox "Data not found" Msgbox "Data not on 15 Feb 2010 05:45
Hi,
Everyone,

I've a worksheet in a workbook that has a Search text Box created from the
control box.
I'd like to know the code that generates Msgbox "Data not found!!", when the
search button is clicked.

From: Dave Ramage Dave on 15 Feb 2010 09:31
Add this to the relevant sheet code module:

Private Sub CommandButton_Search_Click()
'''Search this worksheet for text in TextBox_Search
'''If found, then activate cell, if not found, then display message
Dim r As Excel.Range

Set r = Me.Cells.Find(What:=Me.TextBox_Search, LookIn:=xlValues)
If r Is Nothing Then
MsgBox prompt:="Data not found!"
Else
r.Activate
End If
End Sub

Change the control names as required.

Cheers,
Dave

"Msgbox "Data not found"" wrote:

> Hi,
> Everyone,
>
> I've a worksheet in a workbook that has a Search text Box created from the
> control box.
> I'd like to know the code that generates Msgbox "Data not found!!", when the
> search button is clicked.
>
 | 
Pages: 1
Prev: Workbook protection question
Next: advanced filter date criteria