Página 1 de 1

Adicionar fórmula a uma célula

Enviado: 06 Jan 2020 às 14:44
por mauriciosiqueira
Como criar código que adicione fórmula a uma célula?

Por exemplo, eu utilizei a seguinte fórmula:

ActiveCell.Value = ActiveCell.Offset(0, -1).Value / ActiveSheet.Range("valor_total").Value

que no caso utiliza os valores da célula da coluna anterior a que o valor será exibido sobre a célula fixa de nome "valor_total".

Ex: se a célula da coluna anterior for 8138,18 e o valor da célula "valor_total" for 23131,00 o resultado fica sempre 0,35183 e depois disso não muda mais, mesmo que a célula da coluna anterior mude, ou que o "valor_total" mude também, e se fosse adicionada a fórmula ex: "=a1/valor_total" ele ficaria mudando conforme a tabela.

O problema disso é que o valor fica fixo, gostaria colocar a fórmula na célula para ficar variável quando os valores variarem também.

Re: Adicionar fórmula a uma célula

Enviado: 06 Jan 2020 às 16:33
por osvaldomp
Experimente:
Código: Selecionar todos
ActiveCell.FormulaR1C1 = "=RC[-1]/valor_total"