dcantere

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

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.