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
|