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 SubBaixe a planilha
Você pode se interessar também por: Como usar o PROCV no Excel
Abraço
Marcos Rieper