Comando em VBA para consultar código em tabela do Excel

Criando um Botão para consultas no Excel usando VBA.

A várias maneiras de usar o VBA para realizar uma consulta em uma tabela, mostrarei a que acho mais simples, partindo da base que a tabela em questão é está.

Exemplo:

Vamos colocar um botão ao lado da tabela para chamar a rotina de consulta, para isto segui este procedimento.

1. Clique na guia Desenvolvedor.
2. Clique sobre Inserir.
3. Controles do ActiveX clique sobre Botão de Comando.
4. Clique ao lado da tabela para inserir o botão.

Agora de dois cliques sobre o botão para criar o procedimento do evento clique do botão e digite este código.

Exemplo:

Private Sub CommandButton1_Click()
    Dim Celula As Range
    Dim Codigo As Integer
    
    Codigo = Application.InputBox("Entre com o código do produto")
    
    If Codigo <> False Then
        For Each Celula In Range("A2:a20")
            If Celula.Value = Codigo Then
                MsgBox ("O produto do código " & Codigo & " é " & Range("b" & Celula.Row).Value)
                
                Exit Sub
            End If
        Next Celula
    End If
    
    MsgBox ("Código não encontrado")
End Sub

Feche a área de desenvolvimento do VBA e desmarque a opção Modo de Design e clique sobre o botão é insira um dos códigos para fazer o teste.

Este código vai pegar o valor digitado pelo usuário e inserir na variável Codigo, e executar uma varredura na faixa de células, ao encontrar ele ira disparar uma mensagem informando o nome do produto se não ele vai enviar uma mensagem dizendo que não encontrou.

Este exemplo e muito mais pode ser encontrado no eBook: Sistema em VBA, desenvolvido pelo criador do blog Firecoyote.

Obrigado e espero ter ajudado, em caso de dúvidas mande um comentário.