auto filter Vba

I have modified the code, it should work for a filter.

I also removed Val (filtrosArray(0)) , did nothing in your code.

    c = 1
          Do While c <= coluna
            If MyRange = Cells(1, c) Then
                filtrocomp = InputBox("Qual o operador de comparação?" & vbCrLf & "Ex: <,<=,=,>,>=,<>", "Comparação_MAF")
                filtro = InputBox("Qual o filtro de " & MyRange & " Deseja aplicar?", "Comparação_MAF")
                If filtrocomp <> "" Or filtro <> "" Then
                    filtrosArray() = Split(filtro, ",")

                    Cells(1, c).Select
                    if ubound(filtrosArray)=1 then
                      Selection.AutoFilter Field:=c, Criteria1:=filtrocomp & filtrosArray(0), Operator:=xlAnd, _
                    Criteria2:=filtrocomp & filtrosArray(1)
                    else
                      Selection.AutoFilter Field:=c, Criteria1:=filtrocomp & filtrosArray(0)
                    End if                    


                  Exit Do
                Else
                    MsgBox "Nenhum filtro foi realizado!!", vbInformation, "Comparação_MAF"
                End If
            End If
            c = c + 1
          Loop

If you have filter groups you can create a matching table and an extra column to filter. now depends on complexity. example state column, column_aux Home, Filter type 1 section 1, Filter type 2 section 2, Filter type 2 section 3, Filter type 2 section 4, Filter type 2 Conclusion, Type 1 filter End, Type 1 filter

On the other hand, we could also make filters with wildcards of type "START_ ", which returns all those starting with "START_", or " _SLB_ *" all that have the word " in> SLB "either at the beginning, middle or end.

It's a different approach but can even help the user