Ir ao conteúdo
  • Cadastre-se
Negrell

Excel VBA Procurar e Substituir um intervalo de Células

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×