Bom dia, Luan.

Em 2001 um colega de outro fórum (extinto Fórum Access) questionou exatamente isso que vc também procura. Analise o código que postei na época e veja se consegue adaptar, senão dá um alô que te auxiliamos.

http://comunidade.itlab.com.br/eve/forums/a/tpc/f/364609431/m/910600531?r=820600531#820600531

Boa tarde Luan

Experimente o código abaixxo que deve ser colocado no Módulo da Planilha.

Public Sub Worksheet_Change(ByVal Target As Excel.Range)

Static valorcel As Integer

Application.EnableEvents = False

If Target.Address = "$AC$4" Then
valorcel = Target.Value + valorcel
If Target.Value = 0 Then valorcel = 0
Target.Value = valorcel
End If

Application.EnableEvents = True


End Sub

Se foi útil, clique na mãozinha.

[]s

Boa Tarde Edson,

Obrigado pela ajuda e atenção,
Dei uma olhada no forum, porém sou principiante em VBA, portanto se possível gostaria de sua ajuda, irei anexar a planilha e especificar o que precisa ser feito.

Na aba Caixa, exite uma célula que indica o valor de saída (C4), nela gostaria de que ao digitar outro valor e teclar enter, esse valor é somado ao lá ja existente.

Ex: Inicial = 100,00
Digitou-se = 50,00
Atual = 150,00

E isso sempre que digitar um novo valor, ele sempre ira sendo somado.

Aguardo, muito obrigado pela atenção.

Luan

Estive observando e constatei que você esta com 2 tópicos sobre o mesmo assunto, e conforme as regras do fórum isso é proibido.
Se tem um tópico continue nele, nunca crie outro sobre o mesmo assunto.
São os tópicos abaixo, me confirme se são realmente sobre o mesmo assunto, para eu excluir um deles.
viewtopic.php?f=10&t=23189&p=117133#p117133
viewtopic.php?f=10&t=23243&p=117378#p117378

Outra coisa, pelo jeito você não reparou que eu respondi com uma macro que faz o que você deseja neste tópico.

[]s

olá, pode excluir VBA PARA VERIFICAR DOIS PRODUTOS IGUAIS.

Acabei de observar a macro, mas não funcionou, sabe me responder pq?
Obrigado

Você já deve ter outra macro no módulo desta planilha com com Worksheet_Change

[]s

Luan, veja se é isso:

Public v As Variant
Public n As Variant
    
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C4") Then
Application.EnableEvents = False
Range("C4") = v + n
Application.EnableEvents = True
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set v = ActiveCell
n = ActiveCell.Value
End Sub

Para não dá erro na hora de apagar, vc pode chamar outra macro e associar a um botão, por exemplo:

Sub Apagar()
Application.EnableEvents = False
Range("C4").Clear
Application.EnableEvents = True
End Sub

Em tempo, o código do Patropi funciona perfeitamente. Verifica se vc não esqueceu de alterar a célula de entrada: "$AC$4" para "$C$4"...

Vlw.

Bom Dia

Patropi e João Pedro, consegui adaptar o código do Patropi graças a dica do JPedro,

Obrigado Pela Atenção e Ajuda.