Excel: Vlookup (PROCV) no VBA

[Vinícius Rennó]

Boa noite pessoal! Estou iniciando agora em VBA e tenho uma dúvida na utilização da fórmula PROCV.

Preciso utilizar o Vlookup para retornar de uma aba de DADOS determinados valores para uma flat table. Porém, estou cometendo algum erro que está inviabilizando a aplicação da fórmula quando executo a macro. Creio que eu esteja referenciando de forma errada a tabela matriz, mas já tentei de todas as formas e não obtive sucesso.

 

Segue a planilha anexo. Agradeço desde já.

 

Abraço

 

 

TrabalhoFinal.rar

[Edson Luiz Branco]

Boa noite, @Vinícius Rennó, seja bem vindo ao Clube do Hardware.

 

Três pontos a considerar em seu código que estão gerando esse mal-funcionamento:

1. Para inserir uma fórmula, tem que usar a propriedade .Formula do Range. Por exemplo, você inseriu:
   Cells(y, 2) = "=VLOOKUP(RC[-1],DADOS,3,0)
   mas deveria ser
   Cells(y, 2).Formula = "=VLOOKUP(RC[-1],DADOS,3,0)
2. Do segundo For/Next em diante, até quase o final, você esqueceu de colocar o sinal de igualdade na fórmula. Veja, por exemplo:
   Cells(y, 3) = "VLOOKUP(RC[-2],DADOS,4,0)"
   mas deveria ser
   Cells(y, 3).Formula = "=VLOOKUP(RC[-2],DADOS,4,0)"
3. Do terceiro For/Next em diante, além de esquecer o sinal de igualdade, inseriu um espaço a mais na fórmula, o que irá gerar erro também. Veja por exemplo:
   Cells(y, 4) = "VLOOKUP        (RC[-3],DADOS,5,0)"
   (exagerei propositalmente na qtd de espaços pra visualizar).
   mas deveria ser
   Cells(y, 4).Formula = "=VLOOKUP(RC[-3],DADOS,5,0)"

Veja se é isso.

[Vinícius Rennó]

Bom dia @Edson Luiz Branco, muito obrigado!
 

Obrigado pelos pontos apontados, realmente estavam impedindo o funcionamento correto do código.

Com esses ajustes no código e a simples atribuição do apelido DADOS para a planilha de dados funcionou perfeitamente!

 

Muito obrigado!

 

Abraço