Como criar Macro que selecione células de acordo com uma condição?

Olá amigos,

hoje eu irei mostrar como criar uma macro que selecione células de um intervalo de acordo com as condições inseridas.

Para iniciar, segue abaixo o exemplo a ser utilizado em nosso estudo. Trata-se de uma planilha simples, onde  na área informar data será fornecido a data que deseja ser filtrada, e o botão selecionar, que irá filtrar de acordo com a condição inserida em Informar Data.

Figura 1

Agora Selecione o intervalo de dados a ser filtrado e clique na guia inserir -> Tabelas -> Tabela. Em seguida  clique em OK.

Agora vá na guia Fórmulas-> Nomes Definidos-> Gerenciador de Nomes e altere o nome da Tabela para "Tabela_Data"

O próximo passo é entrar no editor de macro (tecle Alt+F11) e entre com o seguinte código:


Sub Selecionar()
    Dim Data As Date
    Dim Data_String As String
    Data = Cells(2, 3).Value            ' Seleciona a data preenchida no <Informar Data>

'O formato de data no VBA é MM/DD/AAAA, por isso será inserido o código abaixo.

    Data_String = Month(Data) & "/" & Day(Data) & "/" & Year(Data) 

    ActiveSheet.ListObjects("Tabela_Data").Range.AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(2, Data_String)
End Sub

Para finalizar, clique com o botão direito do mouse sobre o retângulo Selecionar e selecione Atribuir Macro:

Em seguida marque a macro selecionar e clique em OK.

Pronto, agora é só digitar a data desejada e clicar em selecionar.