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.

Backup de Drivers antes da formatação ou Pesquisa automática

Há vários anos formato computadores e acho a pior parte a reinstalação de Drivers aqueles pequenos programas que mostra ao sistema operacional como usar corretamente cada componente físico do computador, e por sofrer tanto com este problema procurei um recurso mais simples para esta tarefa chata! E encontrei vários softwares que podem ajudar e encontrei dois. O primeiro é o DriverMax, se instalar antes da formatação é capaz de realizar uma busca profunda em seu sistema e listar todos os Drivers instalado possibilitando criar um backup em um local seguro fora de seu sistema, como por exemplo em um pen-drive, para que após a formatação e reinstalação do sistema seja possível reinstalar estes Drivers. dica instale o Drivemax antes de fazer a formatação! Faça os backups e logo em seguida faça a formatação, após reinstalar o sistema, instale o DriverMax novamente e faça o Restore dos Drivers salvos.

 Download Baixaki:

Outra dica interessante é o DeviceDoctor, programa desenvolvido para realizar uma leitura do sistema onde está instalado e realizar pesquisas em servidores de Drivers na internet, lhe oferecendo o melhor local para download dos Drivers, que você necessita para que o sistema funcione perfeitamente.

 Download Baixaki:

 
 

Espero que estas duas dicas tenham sido úteis, pois elas me salvam sempre que pego um computador diferente para formatar. Qualquer duvida faça um comentários e terei o maior prazer e tentar ajudar!