Excel VBA Procurar e Substituir um intervalo de Células

[Negrell]

Prezados,

 

Sou novo no mundo VBA e estou precisando de uma macro que procure os valores da coluna "H" na coluna "A" e assim que localizar, copie os valores das colunas "I:M" e substitua nas colunas "B:F".

Tentei modificar vários exemplos que encontrei pela internet, porém admito que não consegui fazer funcionar de forma satisfatória. 

Atc, Negrell

 

Lista de modelos.xlsx

[Negrell]

Pessoal, 

 

Consegui resolver com o código abaixo:

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

Fonte: https://www.guiadoexcel.com.br/procv-usando-vba/

Atc, Negrell