Procv usando VBA

Neste artigo, iremos falar sobre Procv usando VBA. Artigo enviado pelo leitor Thiago Tanus de Mogi das Cruzes/SP.

Objetivo:
Realizar a mesma funcionalidade do procv de forma automática com VBA.

 

Aqui o código VBA da busca:

Sub Busca()

Sheets("Teste").Select

'Define as Sheets
Set p1 = Sheets("Teste")
Set p2 = Sheets("Dados")

'Limite da busca
Frow1 = p1.Range("A65536").End(xlUp).Row
Frow2 = p2.Range("A65536").End(xlUp).Row

            
i = 2

    Do While (i  Frow1 + 1)

            For J = 2 To Frow2

                If p1.Cells(i, 1).Value = p2.Cells(J, 1) Then
                   p1.Cells(i, 2).Value = p2.Cells(J, 2)
                   p1.Cells(i, 3) = p2.Cells(J, 3)
                                      
                   J = Frow2 + 1
        
                 End If
            Next J
    
        i = i + 1

    Loop

End Sub

Baixe a planilha

 

Você pode se interessar também por: Como usar o PROCV no Excel

Abraço

Marcos Rieper