Excel Tips

"Try this tip in your worksheet and see the magic!"

🔍 Excel Live Filter with One Cell!

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$F$1" Then

        Dim ws As Worksheet

        Set ws = Me

        Dim searchValue As String

        searchValue = LCase(ws.Range("F1").Value)

        Application.ScreenUpdating = False

        ws.Rows.Hidden = False

        Dim i As Long

        For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

            If InStr(1, LCase(Join(Application.Transpose(Application.Transpose(ws.Range("A" & i & ":D" & i).Value)))), searchValue) = 0 Then

                ws.Rows(i).Hidden = True

            End If

        Next i

        Application.ScreenUpdating = True

    End If

End Sub