Excel Aumentar o filtro add item vba

[Edgar blz]

Preciso ampliar o filtro que minha listbox carrega de um critério para 5 critérios.

.A listbox3 está carregando o filtro com base na planilha1("Q2"), mas quero inserir mais critérios na (q3,q4,q5,q6 ou R2,s2,T2 etc.) em com base nestes critérios filtra os dados e carregar a listbox.
 

Sub filtrados()

      ListBox3.ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"

     ListBox3.Clear

Dim i As Integer
Dim j As Integer
Dim x(1 To 1, 1 To 19) 'numero máximo de colunas

ListBox3.List = x
ListBox3.Clear


For i = 2 To 10000

    If Plan1.Cells(i, 16).Value = Planilha1.Range("q2").Value Then    'mais opções, como fazer a repetição de pesquisa
                ListBox3.AddItem
             
        For j = 0 To 17 'numero máximo de colunas a partir de 0
        
        ListBox3.List(ListBox3.ListCount - 1, j) = Cells(i, j + 1).Value
                
            Next
                    End If
        Next

End Sub

 

[Midori]

@Edgar beleza Caso não tenha um padrão para procurar essas referências, você pode criar um arranjo com os endereços desses ranges, p.ex,

 

Dim Celulas As Variant
Dim Celula  As Variant
    
Celulas = Array("Q2", "Q3", "R2", "S2", "T2")
...
For Each Celula In Celulas
    If Plan1.Cells(i, 16).Value = Planilha1.Range(Celula).Value Then
    ...
    End If
Next Celula