tkblietz,

Bom dia!

Você poderá, por exemplo, pedir ao usuário que entra com a Letra da coluna que você quer filtra. De posse disso, você até a coluna (na linha onde estão os cabeçalhos) e seleciona a mesma. Mais ou menos assim:

Sub Botão1_Clique()
    Dim Coluna As String
    Coluna = InputBox("Qual coluna deseja Filtrar?", "COLUNA A FILTRAR")
    If Coluna <> "" And Not IsNumeric(Coluna) Then
        Range(Coluna & 3).Select 'Aqui estou supondo que a linha de cabeçalhos é a linha número 3. Altere de acordo com a sua planilha
    End If

     Selection.AutoFilter Field:=20, Criteria1:="true"
End Sub

Wagner

Boa tarde,

Estou quase lá! Há alguma forma de adequar o código pra selecionar todos os itens contidos na coluna? Do modo como está eu tenho que especificar.

Desde já, sou imensamente grato pela ajuda oferecida.

Sub FiltraColuna_Clique()
ActiveCell.Columns("J:J").EntireColumn.Select
End Sub

Isso aqui resolveu meu problema!

tkblietz,

Por gentileza, votar positivamente clicando na mãozinha existente ao lado da ferramenta CITAR.