Somar valor novo da celula com o valor antigo

[AlvesRJ]

Olá Pessoal!

Estou precisando da ajuda de vocês, meus conhecimentos de excel são bem básicos mais estou precisando criar uma macro/função para o meu trabalho.

O que eu preciso é de um código em vba que soma um numero antigo da celula com o numero novo digitado na mesma celula. Até tenho um código, mas ele só funciona para uma celula e estou precisando que ele funcione para uma coluna.

Muito obrigado!

[Patropi]

Boa tarde Alves

Para facilitar poste um exemplo da tua planilha, demonstrando manualmente o resultado esperado, num site gratuito como:

www.sendspace.com

Dê retorno.

Um abraço.

[AlvesRJ]

Me desculpe Patropi, acabei esquecendo de colar o código rs.

Um exemplo da planilha esta nesse link

http://www.sendspace.com/file/8ou75a

pode notar que cada vez que insiro um valor na celula F4 (entrada), o valor inserido é somado com o valor antigo da celula. Isso acontece por causa dessa macro

Public Sub Worksheet_Change(ByVal Target As Excel.Range)

Static valorcel As Integer

Application.EnableEvents = False

If Target.Address = "$F$4" Then

valorcel = Target.Value + valorcel

If Target.Value = 0 Then valorcel = 0

Target.Value = valorcel

End If

Application.EnableEvents = True

End Sub

Mas essa macro só faz isso para a celula F4 e eu preciso que ela faça para toda a coluna F (entrada). Mas como meus conhecimentos de VBA são bem limitados, eu não estou conseguindo fazer isso.

Obrigado!

[Patropi]

Alves

Fiz o que você pediu, mas a macro não comporta a coluna inteira.

Altere na macro o intervalo desejado.

http://www.sendspace.com/file/ncrq93

Dê retorno.

Abraço

[Visitante]

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
 If Target.Column <> 6 Then Exit Sub
 If Target.Count > 1 Then Exit Sub
 If Target.Value = "" Or Target.Value = 0 Then Exit Sub
 Dim newVl As Long, oldVl As Long

  Application.EnableEvents = False
   newVl = Target.Value
    Application.Undo
     oldVl = Target.Value
      Target.Value = newVl + oldVl
  Application.EnableEvents = True
End Sub

[AlvesRJ]

As duas soluções ficaram excelente! A macro esta funcionando perfeitamente, desculpa a demora para responder

Muito obrigado Patropi e Osvaldomp! vocês me ajudaram muito

Abração!

[Patropi]

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