Click on a cell - acts like a filter

[santa12345]

Hello. I am trying to click on a single cell...and all the similar values (to the cell I clicked) .. those results return on a separate tab.
Please see attachment. Only issue is..my real data has 1000 of entries vs. my sample

 

[Eric W]

Open a COPY of your workbook. Right click on the sheet tab on the bottom of the sheet with your table and select "View Code". Paste the following code into the window that opens:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, c As Long, v As Variant, n As Variant

    Set rng = Range("A2:C13")
    
    If Intersect(Target, rng) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    c = Target.Column - rng.Column + 1
    v = Target.Value
    v = IIf(IsNumeric(v), v, """" & v & """")
    n = Evaluate("FILTER(" & rng.Address & ",INDEX(" & rng.Address & ",0," & c & ")=" & v & ")")
    
    Worksheets("Sheet6").Cells.ClearContents
    Worksheets("Sheet6").Range("A1").Resize(UBound(n), rng.Columns.Count).Value = n
    Worksheets("Sheet6").Activate
    
End Sub

Change the range in the top line to your table. Change "Sheet6" in the last 3 lines to be the sheet where you want the filtered list. The last line switches to that sheet, you can remove that if you don't want it.

Hope this helps!