Adding a search box

[MillyD]

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

Regards

 

[Gord Dibben]

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

 

[MillyD]

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

Never mind........ Cheers

 

[Gord Dibben]

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

 

[MillyD]

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