RAMZERO,

Boa tarde!

Veja se pode ser assim.

Olá Wagner

Sim a ideia é essa, porém seria um conjunto de 4 células sendo os formatos (Hora, Número, $ e Texto)

No caso do seu exemplo funciona se eu digitar manualmente, porém ao substituir K1 pela fórmula, a célula A1 muda junto, mas não atualiza mais, só a primeira vez

Obrigado

Mas quem tem a fórmula é A1. K1 foi apenas uma forma que eu arranjei de que a fórmula em A1 recebesse a informação... Já que você não anexou ser arquivo. Imaginei que, de algum modo essa fórmula vai receber informação e que, no caso, a informação vem de outra célula.

E é exatamente isso, mas não funcionou

Se eu insiro os dados manualmente e dou enter, esse dado vai pra última linha da coluna A, perfeito

Mas se eu insiro a fórmula na célula K1, A1 é alterado e inserido o dado na última linha, mas só na primeira vez

Depois mesmo o dado alterando na célula K1 e automaticamente na A1, não insere na última linha mais

Bom... o código foi preparado para ler como Target.Value a célula K1. Se você está querendo fazer o inverso (Fórmula em A1 e não em K1) então deverá alterar o código de maneira a refletir que Target.Value passe a ser A1.

Mudei a linha If Target.Address = "$K$1" Then

Para If Target.Address = "$A$1" Then

É isso?

Se for tb não funcionou

Me diga aonde você quer que tenha fórmula. Qual é a célula que terá célula que receberá o dado vindo de outro lugar?

Pode ser assim

A1 receberá um dado (fórmula) que o resultado o formato é hh:mm:ss
B1 receberá um dado (fórmula) que o resultado o formato é Número
C1 receberá um dado (fórmula) que o resultado o formato é Moeda
D1 receberá um dado (fórmula) que o resultado o formato é Texto

Obrigado

OK.

Então A1, B1, C1 e D1 receberão os resultados de outras células que terão fórmulas? Se sim, de onde vêm esses dados? Ou seja, quais são as células que conterão as fórmulas cujos resultados aparecerão em A1, B1, C1 e D1?

Ou as fórmulas estarão em A1, B1, C1 e D1? Se sim, para onde os resultados dessas fórmulas aparecerão? Que células receberão os resultados?

Porque não anexa aqui seu arquivo?

A1, B1, C1 e D1 receberão as fórmulas e que serão exibidos os resultados em A1, B1, C1 e D1 mesmo

Não existe ainda a planilha para dar exemplo

É só isso mesmo

Essas fórmulas que estão em A1, B1, C1 e D1 recebem atualizações de fora via RTD e mudam seu resultado sem um critério certo

Entendo... nesse caso, desculpe mas não sei como fazer.

Agradeço mesmo assim pelo interesse em ajudar

Veja se ajuda. Cole no módulo da planilha.

Private Sub Worksheet_Calculate()
 Cells(Rows.Count, 1).End(3)(2).Resize(, 4).Value = [A1:D1].Value
End Sub

Boa tarde Osvaldo

Continua mesma coisa

Se eu digito manualmente alguma coisa em K1, A1 é atualizado com o mesmo dado e esse mesmo dado é copiado na última linha

Porém quando eu insiro a fórmula em K1 (=RTD blá,blá,bla), somente A1 atualiza junto

Obrigado