Boa tarde,
Se a fórmula for a seguinte, ela não é matricial:
=SE(ÉERROS(CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0));"";ÍNDICE(Plan1!$B$2:$B$1000;CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0)))
Para inserí-la via VBA, sugiro o seguinte código:
Sub InserirFormula()
[F1].FormulaLocal = "=SE(ÉERROS(CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0));"""";ÍNDICE(Plan1!$B$2:$B$1000;CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0)))"
End Sub
Se fosse matricial, minha sugestão seria:
Sub InserirFormulaMatricial()
[F1].FormulaLocal = "=SE(ÉERROS(CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0));"""";ÍNDICE(Plan1!$B$2:$B$1000;CORRESP(LIN(A1);Plan1!$C$2:$C$1000;0)))"
[F1].FormulaArray = [F1].Formula
End Sub
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 24/07/2012 1:23 pm