Excel Somar no Excel sem sobrescrever

[sucramsuiciniv]

Existe alguma forma de: Digitar um número em uma célula do Excel já preenchida e, em vez de sobrescrever o número presente na célula, somá-lo com o que eu digitar?  

[Basole]

@sucramsuiciniv sim com uma rotina em VBA, é possível

[Basole]

@sucramsuiciniv segue exemplo, considerando que a celula desejada seja a "A2"

 

* Cole o codigo no modulo da planilha (aba), desejada:

  

Dim oldVal As String

Private Sub Worksheet_Change(ByVal Target As Range)
       
    If Target.Count > 1 Then Exit Sub
   
   If Target.Address = "$A$2" Then
    If VBA.IsNumeric(oldVal) And _
       VBA.IsNumeric(Target.Value) Then
       Application.EnableEvents = False
           Target.Value = oldVal + Target.Value
       Application.EnableEvents = True
     End If
   End If
   
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$A$2" Then
         oldVal = Target.Value
  End If
End Sub