VBA for a type as you search text box on a multi column table

[Liverlee]

Hello All.

Hoping you can help me out with a VBA code. I've got a table called 'data' from a3:i1000. A3 to I3 is the header row. I've added a text box linked to cell A1. When a user enters any text value in the text box, I'm hoping the table will auto-filter to rows with that specific keyword match. So for example, if someone typed yes into the text box - then rows 4/5/7/8 would show and the other rows would be filtered out. And then when the text is cleared from the text box, all the other results reappear.
Can anyone provide a code or point me where I can find out how to do this?

 

[RudRud]

that's the closest i'm come to solving this so far only issue is when i delete the text i still have to manually unfilter but many many thanks for helping

Using change method (FYR)

Option Compare Text
Private Sub TextBox1_change()
Dim filtervalue As String
On Error Resume Next

filtervalue = TextBox1.Value

If filtervalue = "" Then
Range("a3").AutoFilter
Exit Sub
End If

With Range("A3:I" & Cells(Rows.Count, "A").End(xlUp).Row)

    k = .Find(filtervalue, lookat:=xlWhole).Column
    If CInt(k) = 0 Then
        Range("a3").AutoFilter
    Else
        .AutoFilter k, "=" & filtervalue
    End If

End With
End Sub

 

[Liverlee]

Using change method (FYR)

Option Compare Text
Private Sub TextBox1_change()
Dim filtervalue As String
On Error Resume Next

filtervalue = TextBox1.Value

If filtervalue = "" Then
Range("a3").AutoFilter
Exit Sub
End If

With Range("A3:I" & Cells(Rows.Count, "A").End(xlUp).Row)

    k = .Find(filtervalue, lookat:=xlWhole).Column
    If CInt(k) = 0 Then
        Range("a3").AutoFilter
    Else
        .AutoFilter k, "=" & filtervalue
    End If

End With
End Sub

You legend - thankyou works perfectly

 

[RudRud]

You legend - thankyou works perfectly

Glad to assist, If you have any further questions, please don't hesitate to ask/share with us