Excel VBA get Selected Filter Fields

Question

I wanted to know how I can get the selected fields in a auto filter.
The idea here is that I want the fields that a user selects from a table, and I program in vba to apply that same filter to other sheet automatically.

Any help would be appreciated!

Answer 1

Here you go, same answer but just formatted so future use.

Function FilterCriteria(Rng As Range) As String  
    Application.Volatile  
    Dim Filter As String  
    Filter = ""  
      
    On Error GoTo Finish  
      
    With Rng.Parent.AutoFilter  
        If Intersect(Rng, .Range) Is Nothing Then GoTo Finish  
          
        With .Filters(Rng.Column - .Range.Column + 1)  
          
            If Not .On Then GoTo Finish  
              
            Filter = .Criteria1  
              
            Select Case .Operator  
                Case xlAnd  
                    Filter = Filter & " AND " & .Criteria2  
                  
                Case xlOr  
                    Filter = Filter & " OR " & .Criteria2  
                      
            End Select  
          
        End With  
          
    End With  
      
Finish:  
FilterCriteria = Filter  
End Function  

Answer 2

Nvm I found it. Here it is for someone looking for similar thing:

Function FilterCriteria(Rng As Range) As String
Application.Volatile
Dim Filter As String
Filter = ""
On Error GoTo Finish
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " AND " & .Criteria2
Case xlOr
Filter = Filter & " OR " & .Criteria2
End Select
End With
End With
Finish:
FilterCriteria = Filter
End Function