Adicione novos valores diferentes a um total existente

Question

Eu tenho duas células no Excel (A1 e B1). A1 é suposto ser alterado a cada mês com valores diferentes, dependendo das vendas. e B1 tem um valor existente de $ 100.

Para o mês de agosto, a venda é de US $ 150 (que deve ser inserida na célula A1). Eu quero adicionar este $ 150 aos $ 100 existentes na célula B1 para se tornar $ 250 (o que é muito simples).

Para o próximo mês; no entanto, quero inserir um valor diferente na célula A1; digamos $ 200, e eu quero que esses $ 200 sejam adicionados aos $ 250 na célula B1 para se tornarem $ 450.

Eu não quero copiar e passar. Na mesma célula especificada, quero inserir valores diferentes, enquanto o valor inserido toda vez deve ser adicionado ao valor na célula B1.

Gostaria de saber se posso fazer isso no Excel.

    

Answer 1

Eu não acho que você pode fazer exatamente o que você quer, assim que você muda a célula A1 de 150 para 200, o antigo valor de 150 não existe mais.

Uma possibilidade é manter all os valores de vendas mensais em uma coluna e usar uma fórmula em uma coluna diferente para calcular a soma de todos os valores. Por exemplo, se você armazenar 100, 150 e 200 em A1, A2 e A3, respectivamente, poderá usar a fórmula =Sum(A:A) para calcular a soma de todos os valores na coluna A. Observe que isso exige que você não armazene nada else na coluna A, caso contrário, a fórmula deve incluir apenas as células que podem conter valores de vendas mensais, por exemplo =Sum(A1:A12) .

    

Answer 2

Você pode conseguir o que deseja fazer usando a programação VBA. Em seu padrão de planilha chamado digamos Sheet1, você diz que a célula A1 deve ser substituída todo mês e a célula B1 é onde você deseja ver o total comu- tativo.

Clique com o botão direito do mouse em Sheet1 e clique em View Code. Alternativamente, pressione ALT + F11 e clique duas vezes na Folha1 no painel esquerdo em Projeto VBA.

Uma janela de código VBA em branco será aberta. Digite o seguinte código nele.

   Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("A1")

    If Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

    Else
       If IsNumeric(Range("A1").Value) Then
            Range("B1").Value = Range("B1").Value + Range("A1").Value
       Else

       End If
    End If
End Sub

Salve e saia. Salve a pasta de trabalho como filename.xlsm. Ou seja, pasta de trabalho habilitada para macro. Agora, à medida que você sobrescreve o valor na célula A1, ele deve ser adicionado a B1. Assegure-se de que você atualize A1 somente quando pretendido, deve continuar adicionando-o a B1. Não existe tal validação implementada neste código, de modo que A1 só deve ser atualizado uma vez por mês! Apenas uma verificação básica de que A1 deve ser numérico para evitar erros de tempo de execução.

Referênciaadicional link