Olá!
Estou quebrando a cabeça aqui, mas não sei se é possível. Não encontrei nada no google ou no fórum que me sugerisse uma solução.
Por isso venho mais uma vez pedir gentilmente a ajuda dos amigos do fórum.
Eu estou desenvolvendo uma busca.
Nesta busca, ele puxa dados de um banco de dados.
O que eu preciso é listar as ATITUDES do princípio que eu definir na busca.
No bando de dados, nas colunas eu tenho os PRINCÍPIOS. (são 20 princípios)
Nas linhas, eu tenho as ATITUDES. (são 74 atitudes)
Eu consegui rodar uma for que encontra as atitudes e me retorna certinho.
Porém, terei que fazer essa for para cada coluna.
Veja a macro:

Sub atitudes()

Plan4.Select

If Plan4.Range("d9") = Plan1.Range("d7") Then 'coluna D = agilidade

Z = 14
    
    For i = 1 To 200
    
        If Plan1.Range("d" & i) = "o" Then
        
        Plan4.Range("d" & Z) = Plan1.Range("c" & i)
        
        Z = Z + 1
        
        End If

    Next
 
End If

End Sub

Coloquei o arquivo anexo para vocês verificarem, se possível.
A aba que eu faço a pesquisa é CONSULTA.
A aba que é o banco de dados é ATITUDES.

O que eu gostaria é que ele me listasse as atitudes do princípio que eu escolher na lista suspensa.
Teria como me dar um help nisso?

Muito obrigado mais uma vez!!!