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.

Tutorial Tabela Dinâmica no Excel 2007

Pense naquela tabela toda desorganizada, onde todos os dados foram lançados de qualquer maneira, Será que existe alguma ferramenta que pode resumir todos aqueles dados de maneira organizada? Sim tem! A tabela Dinâmica do Excel, imagine a seguinte situação:

- Um empresa tem 3 vendedores, que realizam as suas vendas nos 4 quantos do Pais, Sul, Norte, Leste e Oeste em datas diferentes eles realizam quantias diferentes de vendas e todas as informações das vendas são lançadas da maneira que chegam em uma tabela do Excel como por exemplo:

Tendo esta situação, vamos utilizar a Tabela Dinâmica para organizar os Dados.

1 – Selecione a tabela.

2 – Clique sobre a Guia Inserir depois Tabela Dinâmica e novamente Tabela Dinâmica.

3 – Nesta etapa irá aparecer uma janela perguntando as dimensões da tabela, mais como a tabela já foi pré-selecionada, basta clicar em OK.

4 – Nesta etapa teremos o ambiente de organização de dados, contento uma lista de todas as fontes de informação e possíveis locais na tabela para exibir o valor. 

5 – Vamos clicar sobre os valores e arrastalos para os determinados locais como Filtro de Relátorio, Rótulos de Colunas, Rótulos de linhas e Valores, mais esta etapa vai ficar de acordo com a sua necessidade de relatório, vou demonstrar uma situação:

- Quero uma lista de todos os vendedores com o total de cada venda, e aleatoriamente alterar o filtro desta pesquisa por região.

Então nossa distribuição de campos ficaria assim:

E assim obtemos a Tabela criada de forma Dinâmica.

Espero ter ajudado, para maiores dúvidas comentem o Post, Obrigado!

Mais Dicas sobre Excel avançado clique e confira o novo eBook do Blog Firecoyote!

Passo a Passo INPUTBOX e RANGE no Excel com VBA

O Excel é uma excelente ferramenta! Fica melhor ainda se combinar com VBA, vou demonstrar um comando simples mais que pode ter infinitas aplicações que é o INPUTBOX e RANGE, para o exemplo vou usar o Excel 2007 mas caso tenha dúvidas com outras versões mande que eu tento ajudar! Bem vamos Lá!

1 – Vamos habilitar a barra de desenvolvimento, que por padrão não vem habilitada no Office 2007.

1. Clique no botão Office

2. Clique em Opções do Excel

3. Clique sobre a opção mais usados

4. Marque a opção Mostrar guia Desenvolvedor na faixa de Opções

5. Clique em OK

2 – Clique sobre a nova guia Desenvolvedor

3 – No grupo Controles clique em Inserir

4 – No grupo Controles do ActiveX clique em Botão

5 – Clique sobre uma área desejada da planilha

6 – De dois cliques sobre o botão que apareceu na planilha

7 – Agora você está diante da área de desenvolvimento do VBA, dentro de uma sub-rotina nesta etapa começaremos a desenvolver o código

8 – Uma atribuição simples:

Digite o seguinte comando:

Range("a1") = InputBox("Entre com um valor", "Teste VBA+EXCEL")

9 – Feche a área de desenvolvimento

10 – Na guia de Desenvolvedor no grupo clique sobre Modo Designer, para desabilitar o modo de desenvolvimento

11 – Clique sobre seu novo botão! Vai aparecer uma janela pedindo um valor digite qualquer valor! Repare que ao confirmar, o valor digitado vai para a primeira célula da planilha.

Comentários!

O Comando Range, é uma função utilizada para apontar uma célula ou faixa de células da planilha, para que você possa tanto pegar o valor ou passar um valor para o mesmo.

O Comando Inputbox, é uma função para receber valores pela janela de informação.

Espero ter ajudado!

Este e mais dicas no Primeiro eBook do Firecoyote, clique e confira!