How to filter results of previous filters using advanced filters

Dear NikolinoDE, thanks for your comments and inspiration! I researched a little bit more about these types of filters and achieved a useful code that I can now. This code is running perfectly to my objectives.

Sub MostrarTodasLinhas()
    'Macro Name
    
    Dim tbl As ListObject
        'Declares a variable called "tbl" of type "ListObject" that represents a table in Excel.
    Set tbl = ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO")
        'Assigns the variable "tbl" the reference to the specific table in Excel that is located in the worksheet "SIIPP" and has the name "TableGO"..
    If tbl.AutoFilter.FilterMode Then
        tbl.AutoFilter.ShowAllData
    End If
        'The macro checks whether filter mode is activated for the table "TableGO" using the FilterMode property of the AutoFilter function.
        'If enabled, the ShowAllData function is called to show all rows of the table again.
End Sub

Sub Filtro() 'The comments used in this macro are also valid for subsequent ones..
    'Macro Name
    Dim numeroColuna As Variant
        'Declares a variable called "numeroColuna" of type "Variant" that is a special type in VBA that can store different types of data.
    numeroColuna = ThisWorkbook.Worksheets("SIIPP").Range("O5").Value
        'Assigns to the variable "numeroColuna" the value of the specific cell "O5" spreadsheet "SIIPP" that contains the number of the column that will be filtered.
    Dim critério As String
        'Declares a variable called "critério" of type "String" that is a sequence of characters.
    critério = ThisWorkbook.Worksheets("SIIPP").Range("O4").Value
        'Assigns to the variable "critério" the value of the specific cell "O4" worksheet "SIIPP" that contains the filter criterion.
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        'This defines the scope of the With block. It indicates that all subsequent operations will apply to the range of cells in the "TableGO" table
        'in the "SIIPP" sheet of the current workbook.
        .AutoFilter Field:=numeroColuna, Criteria1:=critério, Operator:=xlFilterValues
        'AutoFilter is used to apply a filter to the table.
        'Field:=numberColumn specifies the field (column) by which the filter will be applied.
        'Criteria1:=critério specifies the filter criteria to be applied.
        'Operator:=xlFilterValues specifies the filter operator to be used. In this case, xlFilterValues indicates that the filtered values should
        'exactly match the specified criterion.
    End With
End Sub

Sub FiltroDE()
    Dim numeroColunaDE As Variant
    numeroColunaDE = ThisWorkbook.Worksheets("SIIPP").Range("P5").Value    
    Dim critérioDE As String
    critérioDE = ThisWorkbook.Worksheets("SIIPP").Range("P4").Value    
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaDE, Criteria1:=critérioDE, Operator:=xlFilterValues
    End With
End Sub

Sub FiltroAP()
    Dim numeroColunaAP As Variant
    numeroColunaAP = ThisWorkbook.Worksheets("SIIPP").Range("Q5").Value    
    Dim critérioAP As String
    critérioAP = ThisWorkbook.Worksheets("SIIPP").Range("Q4").Value    
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaAP, Criteria1:=critérioAP, Operator:=xlFilterValues
    End With
End Sub

Sub FiltroODS()
    Dim numeroColunaODS As Variant
    numeroColunaODS = ThisWorkbook.Worksheets("SIIPP").Range("R5").Value    
    Dim critérioODS As String
    critérioODS = ThisWorkbook.Worksheets("SIIPP").Range("R4").Value    
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaODS, Criteria1:=critérioODS, Operator:=xlFilterValues
    End With
End Sub

Sub FiltroPEDS()
    Dim numeroColunaPEDS As Variant
    numeroColunaPEDS = ThisWorkbook.Worksheets("SIIPP").Range("S5").Value    
    Dim critérioPEDS As String
    critérioPEDS = ThisWorkbook.Worksheets("SIIPP").Range("S4").Value    
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaPEDS, Criteria1:=critérioPEDS, Operator:=xlFilterValues
    End With
End Sub

Sub FiltroFONTE()
    Dim numeroColunaFONTE As Variant
    numeroColunaFONTE = ThisWorkbook.Worksheets("SIIPP").Range("T5").Value    
    Dim critérioFONTE As String
    critérioFONTE = ThisWorkbook.Worksheets("SIIPP").Range("T4").Value    
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaFONTE, Criteria1:=critérioFONTE, Operator:=xlFilterValues
    End With
End Sub

Sub FiltroIP()
    Dim numeroColunaIP As Variant
    numeroColunaIP = ThisWorkbook.Worksheets("SIIPP").Range("U5").Value    
    Dim critérioIP As String
    critérioIP = ThisWorkbook.Worksheets("SIIPP").Range("U4").Value     
    With ThisWorkbook.Worksheets("SIIPP").ListObjects("TableGO").Range
        .AutoFilter Field:=numeroColunaIP, Criteria1:=critérioIP, Operator:=xlFilterValues
    End With
End Sub

share here: