PROCV em VBA

O objetivo desta postagem é mostrar como é feito o Procv em VBA, utilizando as mesmas funcionalidades da formula, porém a busca é feita automaticamente, ao clicar no botão Procv.

Segue os Passo a Serem seguidos:

1º Crie duas Planilhas, com os seguintes Nomes: Procv e a outra Banco_Dados. Preencha as duas planilhas conforme a imagem abaixo.

2º Crie um Botão Para a Pesquisa
3º Pressione Alt+F11
4º Clique no Menu > Inserir>Módulo
5º Cole o Código Abaixo




Sub ProcV()

Dim Plan1 As Object
Dim Plan2 As Object
Dim QtdDadosPlan1 As Integer
Dim QtdDadosPlan2 As Integer
Dim LinhaPlan2 As Integer
Dim Linha As Integer

'Seleciona a Planilha Procv
Sheets("Procv").Select

'Define as Sheets
Set Plan1 = Sheets("Procv")             'Variável "Plan1" recebe o objeto planilha("Procv")
Set Plan2 = Sheets("Banco_Dados")       'Variável "Plan2" recebe o objeto planilha("Banco_Dados")

'Limite da busca
QtdDadosPlan1 = Plan1.Range("A" & Rows.Count).End(xlUp).Row
QtdDadosPlan2 = Plan2.Range("A" & Rows.Count).End(xlUp).Row

'Começa a Partir da Linha 2.
Linha = 2

    Do While (Linha <> QtdDadosPlan1 + 1)

            For LinhaPlan2 = 2 To QtdDadosPlan2

                If Plan1.Cells(Linha, 1).Value = Plan2.Cells(LinhaPlan2, 1) Then
                   Plan1.Cells(Linha, 2).Value = Plan2.Cells(LinhaPlan2, 2)
                   
                   LinhaPlan2 = QtdDadosPlan2 + 1
       
                 End If
            Next LinhaPlan2
   
        Linha = Linha + 1

    Loop

End Sub




6º Clique com Botão direito no retângulo criado para utilizar com botão de comado.
7º Clique na opção: Atribuir Macro, e selecione a macro Procv e Clique OK.

Pronto, agora é só testar.




Comentários

Postar um comentário

Postagens mais visitadas deste blog

Função VBA - Validador de CNPJ

Nesta postagem, estou disponibilizando a função VBA, ou seja, fórmula personalizada para Excel. Segue o procedimento: 1º Pressione Alt+F11 2º Clique no Menu>Inserir>Modulo e cole o código abaixo. 3º Após isso clique na célula e digite =VALIDADOR_CNPJ(a celula que contem o cnpj) Public Function VALIDADOR_CNPJ(CNPJ As String) As String         Dim VarDigito1 As Integer     Dim VarDigito2 As Integer     Dim VarDigito3 As Integer     Dim VarDigito4 As Integer     Dim VarDigito5 As Integer     Dim VarDigito6 As Integer     Dim VarDigito7 As Integer     Dim VarDigito8 As Integer     Dim VarDigito9 As Integer     Dim VarDigito10 As Integer     Dim VarDigito11 As Integer     Dim VarDigito12 As Integer     Dim VarDigito13 As Integer     Dim VarDigito14 As Integer     Dim VarCalcDigito1 As Int...
Leia mais

Autocorreção no Excel - Eu Escrevo e o Excel Corrige.

Imagem
Os aplicativos Microsoft Office Excel possui um mecanismo  de correção automática que permite o Excel mudar automaticamente uma palavra digitada erroneamente, de acordo com a lista de palavras pré cadastradas no Excel. Muitos usuários acreditam ser erro do Microsoft Office Excel, mas, ao contrário do que parece, o recurso é bastante útil, pois, podemos cadastrar uma lista de palavras erradas, para que o Excel altere automaticamente, ou seja, efetue a correção instantânea. Portanto, em alguns dos casos o usuário pode querer deixar a palavra errada. Exemplo.:. UN Se digitarmos dessa forma, o Excel automaticamente altera para UM, neste caso específico, devemos excluir a palavra "UN" da lista de autocorreção, conforme procedimento abaixo. Menu>Arquivo>Opções
Leia mais

Função VBA - Busca Distância Entre Cidades

Imagem
A função abaixo tem como objetivo buscar a distância entre duas cidades. No entrando, os comandos necessitam que a referência "Microsoft XML, v6.0" esteja ativada. Habilite a referencia acima e cole o código abaixo em um módulo VBA. Function Busca_Km(Origem As String, Destino As String) As Double     'Requer referência ao: 'Microsoft XML, v6.0'     Dim Solicitacao As XMLHTTP60     Dim Doc As DOMDocument60     Dim Distancia_Pontos As IXMLDOMNode     Let Busca_Km = 0     'Checa e limpa as entradas     On Error GoTo Sair     Let Origin = Replace(Origem, " ", "%20")     Let Destination = Replace(Destino, " ", "%20")     ' Le os dados XML da API do Google Maps.     Set Solicitacao = New XMLHTTP60     Solicitacao.Open "GET", "http://maps.googleapis.com/maps/api/directions/xml?origin=" _         & Origin & "&destinatio...
Leia mais