Macro para inserir fórmula procv em detemindad célula

Question

Pessoal podem me passar uma macro que insere a função procv na célula E4, sendo que o valor procurado é a celula A1, e que a matriz tabela é A1:D10 de outro arquivo no Excel ( e o num_indice_coluna é 2).

Obrigado.

Att,

Answer 1

Entra na parte de vba e coloca este código lá, depois só chamar a macro

Sub Macro1()

Dim counter As Integer

For counter = 1 To 10

        If Workbooks(2).Sheets("Sheet1").Range("A" & counter).Value = Workbooks(1).Sheets("Sheet1").Range("A1").Value Then
            Workbooks(1).Sheets("Sheet1").Range("E4").Value = Workbooks(2).Sheets("Sheet1").Range("B" & counter).Value
            Exit For
        End If

    Next counter

End sub

Answer 2

Minha sugestão é você iniciar a gravação de uma macro, escrever as fórmulas que deseja, interromper a macro e depois ver o código que foi gerado.

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br