Nunca crie um tópico sem anexar arquivo de exemplo.

Este vídeo explica o uso das funções INDEX, MATCH:

https://youtu.be/TsHHG4zz8b

 

Este vídeo explica como tratar erro com a função MATCH:

 

https://youtu.be/qSEjhOKIq4c

 

 

Sub IndiceCorresp()
Planilha2.Select
Dim Linha As Double
Dim QtdLinha As Double
Dim Estoque As Double
Linha = 1
With ActiveSheet
Do
Linha = Linha + 1
QtdLinha = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))

If Not IsError(Application.Match(.Cells(Linha, 1), Plan3.Columns(1), 0)) Then

Estoque = WorksheetFunction.Index(Plan3.Range("a:z"), WorksheetFunction.Match(.Cells(Linha, 1), Plan3.Columns(1), 0), 2)
Else

Estoque = 0

End If
.Cells(Linha, 2).Value = Estoque

Loop Until QtdLinha = Linha
End With
End Sub

 

 

Quando se usa ActiveSheet, é necessário ter certeza de que a planilha desejada está ativa no momento da execução do código. Por isso, usei Planilha2.Select logo no início do código.

 

O exemplo abaixo já está funcionando, basta você alterar as colunas de acordo com seu arquivo:

 

Sub IndiceCorresp()
Planilha2.Select
Dim Linha As Double
Dim QtdLinha As Double
Dim Estoque As Double
Linha = 1
With ActiveSheet
Do
Linha = Linha + 1
QtdLinha = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
Estoque = WorksheetFunction.Index(Plan3.Range("a:z"), WorksheetFunction.Match(.Cells(Linha, 1), Plan3.Columns(1), 0), 2)

.Cells(Linha, 2).Value = Estoque

Loop Until QtdLinha = Linha
End With
End Sub

 

 

Bem vindo ao fórum Planilhando, @payzzanno!

Como essa é sua primeira atividade conosco, sugerimos que, ao postar uma dúvida, anexe também seu aquivo com a dúvida já no layout definitivo e descaracterizando informações confidenciais, caso existam, mas mantendo a estrutura. Mostre no arquivo, mesmo que manualmente, como ficaria o resultado esperado. Isso certamente agiliza a resposta.

Obrigado @anderson.

Não observei o detalhe anteriormente.

Agradeço mais uma vez.

Acertou na mosca.

---

 

Prezado @edsonbr peço desculpas por minha falta de atenção em relação as regras.

Serei mais atento pára não cometer tal imprudência.

Obrigado.