Show Filtered Criteria within Excel Tables (VBA)

[JayB0730]

Hello,

I found several examples of displaying filtered criteria on the internet; however, they don't appear to work for worksheets that contain data within an Excel table. I've tried everything and nothing seems to help. Here is my problem:

Imagine I have an Excel table with the following columns:

CustomerID (FILTERED BASED ON COLOR YELLOW)

Date

Category 1 (FILTERED)

SubCategory (FILTERED

Other

<tbody>
</tbody>

The table can be filtered up to "x" number of columns, but for the purposes of this example let's assume 3 columns can be filtered (see above). These filters are not necessarily active at the same time.

The Function/Formula displaying the results of each filter would be entered into a different cell(s) somewhere on the sheet.

Any help is greatly appreciated!

TIA
Jay

 

[JayB0730]

Hello,

Maybe my previous post was unclear so allow me to post the code that I did find; however, I need to convert the column codes to understand table headers instead. I think that the existing code does not work because it is not seeing the column filters inside the tables. Thoughts? Thanks!

Function AutoFilter_Criteria(rng As Range) As String'This will allow you to see Auto Filter Criteria
Dim str1 As String, str2 As String
Application.Volatile
With rng.Parent.AutoFilter
    With .Filters(rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(rng) & ": " & str1 & str2
End Function