WLuís,

veja se com este exemplo, consegue resolver a questão das aspas:

A fórmula armazenada como String é =SE(A1="";"";A1).

Sub Macro1()

Dim xyz As String

xyz = "=IF(" & "A1" & "="""",""""," & "A1" & ")"

Cells(2, 2).Formula = xyz

End Sub

Obrigado pela ajuda Edson,

Realmente a concatenação resolveria (como resolveu o problema). Tinha tentando antes, mas deu tanta dor de cabeça que tinha desistido. Com a sua dica, resolvi fazer novamente. Com isso, a fórmula =SUBSTITUIR(RTD("sbbsystems.yfquote.rtd.yahoo.server";"";"INDU";"LAST");".";",") ficou assim (essa deu trabalho):

v_last_DJI = "=SUBSTITUIR(RTD(" & """" & "sbbsystems.yfquote.rtd.yahoo.server" & """" & "" & ";" & """" & """" & "" & ";" & """" & "INDU" & ";" _
& """" & "LAST" & """" & ");" & """" & "." & """" & ";" & """" & "," & """" & ")"

Só que surgiu um outro problema. Ao fazer a célula = a varíavel ( Worksheets("Recepção & Base de Dados").Cells(16, 16).Formula = v_last_DJI ), me é apresentado o "Erro em tempo de execução '1004': Erro de definição de aplicativo ou de definição de objetivo. Vale frisar que as varíaveis foram devidamente setadas (Dim v_last_DJI, v_close_DJI.

Procurando a respeito, não encontrei nada que justificasse. Tem alguma idéia, por favor, do que pode ser?

Thanks,

Você alterou as funções para o termo equivalente em inglês?

SUBSTITUIR: REPLACE

RTD: Acho que é RTD mesmo

Edson,

Alterei agora, de Substituir para Replace, e o problema continua. Vou avaliar com calma nesse final de semana. Deve ser alguma coisa simples que está passando despercebido. Assim que resolver trago a solução para cá, já que pode ser útil à outras pessoas.

Obrigado pela ajuda.

Edson e demais (quem puder ajudar é muito bem vindo),

Voltando após alguns dias de "férias", consegui concatenar a fórmula acima, mas surgiu um outro problema que não achei solução (após muito procurar na Internet): Não consigo fazer com que a fórmula funcione, já que ela é colada como texto na célula (e obrigatoriamente a célula deve estar no formato texto também).

Já usei Cells(19, 44).Formula ou Cells(19, 44).Value e o problema continua. Caso modifique a célula para o formato de texto, eu consigo colar a "fórmula" mas o que vejo é a fórmula em si e não o que ela deveria calcular ou executar.

Alguma sugestão?

Obrigado pela ajuda,

Boa noite,

Você já tentou "Cells(19, 44).FormulaLocal"?

Abraço

JValq,

Problema resolvido. A solução que você apresentou caiu como uma luva.

Obrigado pela ajuda.