Interactive search bar

[esben]

Hi guys.

I have a large datasheet in which i have tabel 1. This tabel contains 5 coloums and 200 rows. I Would like to insert/create a search bar in which i Can type words and then the search bar should ‘hide’ Rows that does not have any of the five coloum resultat in common with the searched word.
It is sort of like the ‘filter’ option but based on All coloums directly. It Would be Nice if it changed everytime a letter Was put in

Hope the question is understadeble and that someone Can quide me in the right direction.

Best regards,

Esben

 

[sadboy309]

Form have a Textbox1 to search word, a Commandbutton Unhidden, a Commandbutton Exit form.

Private Sub CommandButton1_Click()  'Exit
Unload Me
End Sub


Private Sub CommandButton2_Click()  'Unhidden
Range("A1:E200").EntireRow.Hidden = False
End Sub


Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Dim cel As Range, rngV As Range


If TextBox1 <> "" Then
Set rngV = Range("A1:E200")
Rows("1:200").EntireRow.Hidden = False


For Each cel In rngV
    If cel.Column = rngV.Column Then t = 0
    If InStr(1, cel, TextBox1) > 0 Then
        t = t + 1
    End If
    Rows(cel.Row).EntireRow.Hidden = (t = 0)
Next


End If


Application.ScreenUpdating = True
End Sub

 

[esben]

Sadboy309 Thank You so much! It works

 

[esben]

Sadboy309 i just found out that when You search it differentiate between caps and Non-caps letters. Is this possible to get around from?

 

[sadboy309]

Where I find keyword I used this code:

[COLOR=#333333]If InStr(1, cel, TextBox1) > 0 Then[/COLOR]

If you don't want differentiate between caps and Non-caps, So you will need change those line this code, As:

[/COLOR][COLOR=#333333]If InStr(1, UCase(cel), UCase(TextBox1)) > 0 Then[/COLOR][COLOR=#333333]

Dear.

 

[Fluff]

Simply change this line

If InStr(1, cel, TextBox1) > 0 Then

to

If InStr(1, Cel, TextBox1, vbTextCompare) > 0 Then