Excel Digitar e atualizar valores positivos e negativos na mesma célula

[GENECIOFICIAL]

Bom dia!

 

Necessito digitar os valores positivos e negativos apenas na célula A6.

O VBA deve fazer a contabilidade dos valores digitados.

Exemplo: Na célula A6 tenho o valor 100, digito o valor 80, atualiza o valor para 180,

digito -58 atualiza para 122, digito 380 atualiza o valor para 302 e segue atualizando com os novos valores digitados.

 

Grato.

[OreiaG]

Cole o código abaixo no módulo da planilha de interesse.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim oldN As Double, newN As Double
  If Target.Address <> "$A$6" Or Target.Value = "" Then Exit Sub
  On Error GoTo fim
  Application.EnableEvents = False
  newN = Target.Value
  Application.Undo
  oldN = Target.Value
  Target.Value = oldN + newN
fim:
 Application.EnableEvents = True
End Sub

 

... atualiza para 122, digito 380 atualiza o valor para 302 ...

A sua calculadora está precisando de aferição. O resultado deveria ser 502.

 

[GENECIOFICIAL]

Boa tarde!

Muito obrigado pelo código elaborado o problema foi resolvido, a observação do erro é pertinente.

 

Grato.