Somar numero na mesma celula com vba

[EDMILTONCBA]

Gente preciso de um código em vba que soma um numero antigo da celula com o numero novo digitado na mesma celula. Exemplo digito na a1 um valor e depois saiu e vou digito outro valor na a1 e ela soma o valor antigo como se o valor antigo fosse 50 e quando digito o valor novo por exemplo 100 ai soma e o valor que aparecera na a1 sera 150. AgradeÇo e preciso urgente.

[eduzsrj]

Ve se é este código que voce precisa:

Observe que ele deve ficar no código da pasta (por exemplo: Micrisoft Excel Objetos - Plan1) e não em módulo, senão não funciona.

Public Sub Worksheet_Change(ByVal Target As Excel.Range)

Static valorcel As Integer

Application.EnableEvents = False

If Target.Address = "$A$1" Then

valorcel = Target.Value + valorcel

If Target.Value = 0 Then valorcel = 0

Target.Value = valorcel

End If

Application.EnableEvents = True

End Sub

[EDMILTONCBA]

Ve se é este código que voce precisa:

Observe que ele deve ficar no código da pasta (por exemplo: Micrisoft Excel Objetos - Plan1) e não em módulo, senão não funciona.

Sim é isso mesmo funciono aqui, obrigado em e tudo de bom para você.

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.