Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
AlvesRJ

[Resolvido] Somar valor novo da celula com o valor antigo

Recommended Posts

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×