Neste artigo, aprenderemos como criar um formulário de usuário para pesquisa e impressão por meio do VBA no Microsoft Excel.
Vamos entender com um exercício simples: -
Temos dados na Planilha 1 em que a coluna A contém a Id do agente, a coluna B contém o nome, o endereço da coluna C, a coluna D da cidade, a coluna E da região, a coluna F do país e a coluna G contém o CEP.
Na próxima folha (folha 2), queremos recuperar os detalhes de acordo com a imagem abaixo citada: -
Se pesquisarmos a Id do agente, todos os detalhes devem aparecer no intervalo A11: D11. E, em seguida, imprima-o.
Siga as etapas abaixo para pesquisar e imprimir os detalhes: -
- Pressione a tecla F11 para abrir o Editor do Visual Basic
- Insira o módulo para escrever o código para o botão de pesquisa
- Escreva o código abaixo mencionado: -
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Cells (Rows.count, 1) .End (xlUp) .Row For X = 2 To Lastrow If Sheets ("Data"). Células (X, 1) = Folha3.Range ("B3") Então Folha3.Range ("A11") = Folhas ("Dados"). Células (X, 1) Folha3.Range ("B11") = Folhas (" Dados "). Células (X, 2) Folha3.Range (" C11 ") = Folhas (" Dados "). Células (X, 3) &" "e Folhas (" dados "). Células (X, 4) _ & "" & Folhas ("dados"). Células (X, 5) & "" & Folhas ("Dados"). Células (X, 6) Folha3.Range ("D11") = Folhas ("Dados"). Células (X, 7) End If Next X End Sub
Explicação do código: - Primeiro, definiremos as variáveis e, em seguida, definiremos qual linha será a última linha e, em seguida, definiremos o que e onde o Id do Agente será pesquisado e, em seguida, como o intervalo será atualizado para o ID do Agente pesquisado.
Agora, vamos atribuir essa macro ao botão Pesquisar.
- Clique com o botão direito no botão
- Clique em Atribuir Macro
- Aqui, nosso assunto macro é Searchdata, clique em searchdata e então clique em OK
Execute a macro: -
- Para executar a macro, clique no botão Pesquisar
- Se o Id do agente estiver lá, os detalhes serão atualizados, caso contrário, os detalhes não aparecerão
Para imprimir, atribua a macro mencionada abaixo: -
- Insira o botão da guia Desenvolvedor> Inserir> Botão (controle de formulário)
- Escreva a macro no mesmo modelo em que escrevemos a macro para Searchdata, com o nome do assunto de Printout
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Atribua a macro ao botão como atribuímos a searchdata
Desta forma, podemos pesquisar os dados e depois imprimir os detalhes pesquisados através do VBA no Microsoft Excel.
Se você gostou de nossos blogs, compartilhe com seus amigos no Facebook. E você também pode nos seguir no Twitter e no Facebook.
Gostaríamos muito de ouvir de você, diga-nos como podemos melhorar, complementar ou inovar nosso trabalho e torná-lo melhor para você. Escreva-nos no site de e-mail