Bom dia JonasB,

Ter como fazer essa aplicação tem, mas essa fórmula não irá funcionar...

Você quer sempre inserir um valor na célula e ela retornar o resultado dessa fórmula?

Tem como fazer através de VBA, pode ser?

Abraço

Boa tarde!!

Use a pesquisa do fórum!!!

Range("SeuIntervalo").Formula = "=SuaFormula" 

É como o Bernardo citou, com formula ficara um pouco dificil, ainda mais se for digitar novamente nas celulas.

Agora se ja tem os valores e quer simplesmente efetuar a operação que citou e colocar nas celulas o resultado, tente a rotina abaixo, lembrando que estou supondo que tem a aba Plan1 e os valores estão na coluna "A" a partir da linha 2 :

Sub SomaCells()

Dim rng As Range
    Dim valorcel

    Set rng = Plan1.Range("A2", Plan1.Range("A65536").End(xlUp))

    For Each scell In rng
        valorcel = scell * 2 + scell
        
        scell.Value = valorcel
        
    Next scell

End Sub

Faça os testes e veja se é isto o que pretende.

[]s

Não, na verdade é o seguinte..

O valor que eu vou alterar no caso, sempre será a célula E2

=(VALORDACÉLULA*E2)+VALORDACÉLULA

Essa fórmula se refere a uma variação de preços.

Tenho as células com o valor fixo sem a fórmula e a variavel nessa célula E2..

Nesse caso poderia servir um código VB, onde após informar a % variável na célula E2, o usuário iria clicar em algum botão para atualizar as células..

Alguem pode ajudar ?

Jonas, pelo que entendi, como citou no primeiro post, você tem valores fixos em determinadas Celulas, e quer que estes valores sejam atualizados da seguinte forma :
=(VALORDACÉLULA*E2)+VALORDACÉLULA
Ou seja, pegar o Valor da celula, multiplicar por um valor em E2 e Somar ao Valor que existia na celula, portanto se tinhamos o valor 10 e em E2 valor 2, o resultado seria : 30 (10*2)+10.

Se for isto o que pretende, é só ajustarmos a rotina anterior criando a varivel para E2, ficando :
Associe a um botão para executar.

Sub Calcula_Cells_Var_E2()

    Dim rng As Range
    Dim valorcel
    
    Dim sVariavel

    'Variavel na Celula E2
    sVariavel = [E2]
    
    Set rng = Plan1.Range("A2", Plan1.Range("A65536").End(xlUp))

    For Each scell In rng
        
        valorcel = scell * sVariavel + scell
        
        scell.Value = valorcel
        
    Next scell

End Sub

Se não for isto, anexe um exemplo reduzido e compactado.

[]s

Bom Dia,

Nesse caso também não funcionaria pois pelo que vi, o VB faz o cálculo e joga direto o valor na célula, assim perdendo o registro do valor base (valor anterior).

Segue em anexo planilha com mais dados..

Creio que para o que deseja é preciso que o valor base esteja em outra coluna.
Veja no anexo valor base na coluna G (pode ser oculta ou em outra planilha)