.formula Erro

[dcantere]

Pessoal boa tarde,

Gostaria que me ajudassem

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim A As Long
    A = ActiveCell.Row
    ActiveSheet.Range("D" & A).Formula = "=Procv(C" & A & ";DADOS!$C$2:$AE$3500;9;VERDADEIRO"")"""
End Sub
 

Alguém pode me ajudar com a .formula "=Procv(C" & A & ";DADOS!$C$2:$AE$3500;9;VERDADEIRO"")"""

 

Obrigado.

[Alyson Ronnan Martins]

Bom dia @dcantere

Teria como um arquivo para fazer o teste e te ajudar maia rápido?

Editado Abril 6, 2021 por Alyson Ronnan Martins
Erro na mensagem.

[dcantere]

  Em 06/04/2021 em 10:18, Alyson Ronnan Martins disse:

Bom dia @dcantere

Teria como um arquivo para fazer o teste e te ajudar maia rápido?

Expand  

Bom dia Alyson Ronnan Martins

obrigado por tentar me ajudar. Vou tentar explicar o que gostaria.

Gostaria que as celulas da coluna D recebessem a seguinte formula:

Celula D1 Recebe

Ex: =Procv(C1;DADOS!$C$2:$AE$3500;9;VERDADEIRO)

 

Celula D2 Recebe

Ex: =Procv(C2;DADOS!$C$2:$AE$3500;9;VERDADEIRO)

.

.

Celula D1200

=Procv(C1200;DADOS!$C$2:$AE$3500;9;VERDADEIRO)

 

Basicamente é isso. 

Obrigado

Editado Abril 6, 2021 por dcantere

[Alyson Ronnan Martins]

Olha se eu consegui entender seu projeto:

for i = 1 to 1200
  Range("D" & i).formula = "=Procv(C" & i & ";DADOS!$C$2:$AE$3500;9;VERDADEIRO)"
next i

O código acima vai passar por 1200 linha e preencher a fórmula. 

Mais a sua planilha vai ficar pesada.

O recomendado é preencher apenas o resultado de cada linha usando o vlookup, mais precisa saber se é a formula ou o resultado que você precisa)