Experimente:

[I80].FormulaLocal = "=SE(F80="""";"""";SEERRO(ÍNDICE(Resultado!F2:F600;CORRESP(F80;Resultado!A2:A600;0));""""))"

Osvaldo,
Grato pela atenção.

Esqueci de dizer que a célula F80 é variável.
Por isso tentei:
Celula = Planilha9.Cells(linha, "F").Address --->>> Retorna $F$80, e eu preciso de F80, sem o $, destravada.

Caramba!
Não entendi.
Testei a fórmula do Osvaldo e funcionou.
Very Good!
Obrigado.

Olá, Pedro.

Ficou confuso: você resolveu ou ainda precisa de ajuda?

Se não resolveu informe com exatidão o qua ainda falta.

Osvaldo,
Duas perguntas:
-Quando referencia [I80] você está se referindo a qual intervalo?
-Por que dispensou a variável Celula?

Veja a função abaixo:

Sub AtualizaPrecoVenda()
    Planilha9.Activate
    Dim j       As Double
    Dim celula As String
    For j = 14 To 1012
        If Cells(j, 2).Value = "Em Aberto" Or Cells(j, 2).Value = "" Then
            celula = Planilha9.Cells(j, "F").Address      '--->>> Retorna $F$80, e eu preciso de F80, sem o $, destravada.
            Planilha9.Cells(j, colPrecoVenda).FormulaLocal = "=SEERRO(SE([color=#FF0000]celula[/color]="";"";ÍNDICE(Resultado!$F$2:$F$600;CORRESP([color=#FF0000]celula[/color];Resultado!$A$2:$A$600;0)));"")"
        End If
    Next j
End Sub

Sendo mais claro, preciso inserir a fórmula =SEERRO(SE(celula="";"";ÍNDICE(Resultado!$F$2:$F$600;CORRESP(celula;Resultado!$A$2:$A$600;0)));"") na Coluna I (nome colPrecoVenda),
no intervalo I14:I1012, desde que a linha equivalente da Coluna B seja igual a "Em Aberto" ou Vazio.
Obs: celula é igual a Planilha9.Cells(j, "F").Address '--->>> No caso, Retorna $F$80, MAS eu preciso de F80, sem o $, destravada. pois o intervalo é até a linha 1012.

Grato.

Pessoal,
Vou trancar o tópico.
Depois posto outro de forma mais clara e objetiva.
Grato.

Pedro

Conforme as regras do fórum, não é permitido criar mais de um tópico sobre o mesmo assunto, continue por aqui mesmo.

[]s

Patropi - Moderador