Adding a search box
 

Is there anyway to add a search box to an excel sheet,, similar to "find and
replace" pop up search box

Regards

Adding a search box
 

You don't like the default search dialog?

Sub look()
Dim whatwant As String
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *Milly* can be used")
'do things with whatwant
End Sub


Gord Dibben MS Excel MVP

On Mon, 11 Aug 2008 11:33:52 +0100, "MillyD"
wrote:

Is there anyway to add a search box to an excel sheet,, similar to "find and
replace" pop up search box

Regards

Adding a search box
 

Can't get it to work....... or I'm doing it wrong

Never mind........ Cheers

"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
You don't like the default search dialog?

Sub look()
Dim whatwant As String
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *Milly* can be used")
'do things with whatwant
End Sub


Gord Dibben MS Excel MVP

On Mon, 11 Aug 2008 11:33:52 +0100, "MillyD"
wrote:

Is there anyway to add a search box to an excel sheet,, similar to "find
and
replace" pop up search box

Regards

Adding a search box
 

You need additional code to do something with the results of the entry.

What do you want to do with the result of your search?

Here is some sample code to select a column, do a search and color rows.

Option Compare Text
Sub Delete_By_Criteria()
Dim I As Integer
Dim iLastRow As Integer
Dim Collet As String
Set wks = ActiveSheet
Application.ScreenUpdating = False
Collet = InputBox("Choose Column Letter")
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *PY* can be used")
iLastRow = wks.Cells(Rows.Count, Collet).End(xlUp).Row
For I = iLastRow To 1 Step -1
If wks.Cells(I, Collet).Value Like whatwant Then
wks.Rows(I).Interior.ColorIndex = 3
End If
Next I
Application.ScreenUpdating = True
End Sub


Gord

On Tue, 12 Aug 2008 08:53:14 +0100, "MillyD"
wrote:

Can't get it to work....... or I'm doing it wrong

Never mind........ Cheers

"Gord Dibben" <gorddibbATshawDOTca wrote in message
.. .
You don't like the default search dialog?

Sub look()
Dim whatwant As String
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *Milly* can be used")
'do things with whatwant
End Sub


Gord Dibben MS Excel MVP

On Mon, 11 Aug 2008 11:33:52 +0100, "MillyD"
wrote:

Is there anyway to add a search box to an excel sheet,, similar to "find
and
replace" pop up search box

Regards

Adding a search box
 

Cheers....... but I think it is a bit to advanced for me..

I'll just use Ctrl F

Thanks again sorry for wasting your time


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
You need additional code to do something with the results of the entry.

What do you want to do with the result of your search?

Here is some sample code to select a column, do a search and color rows.

Option Compare Text
Sub Delete_By_Criteria()
Dim I As Integer
Dim iLastRow As Integer
Dim Collet As String
Set wks = ActiveSheet
Application.ScreenUpdating = False
Collet = InputBox("Choose Column Letter")
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *PY* can be used")
iLastRow = wks.Cells(Rows.Count, Collet).End(xlUp).Row
For I = iLastRow To 1 Step -1
If wks.Cells(I, Collet).Value Like whatwant Then
wks.Rows(I).Interior.ColorIndex = 3
End If
Next I
Application.ScreenUpdating = True
End Sub


Gord

On Tue, 12 Aug 2008 08:53:14 +0100, "MillyD"
wrote:

Can't get it to work....... or I'm doing it wrong

Never mind........ Cheers

"Gord Dibben" <gorddibbATshawDOTca wrote in message
. ..
You don't like the default search dialog?

Sub look()
Dim whatwant As String
whatwant = InputBox("Choose Criteria" & Chr(13) _
& "Wildcards such as *Milly* can be used")
'do things with whatwant
End Sub


Gord Dibben MS Excel MVP

On Mon, 11 Aug 2008 11:33:52 +0100, "MillyD"
wrote:

Is there anyway to add a search box to an excel sheet,, similar to "find
and
replace" pop up search box

Regards