Acumular valores

skaz · 4 de janeiro de 2011

Preciso somar o próximo valor com o valor anterior.

ex;

valor atual: a1 = 10

proximo valor a ser somado 20

a1 = 30

Alguém se puder me explicar como fazer ficarei muito grato !!

Patropi · 4 de janeiro de 2011

Boa tarde skaz

Esta meio confuso para enterder. Poste um exemplo datua planilha com explicações num site gratuíto como:

http://www.4shared.com/?signout=1

Depois cole o link da planilha aqui no fórum.

Um abraçoe feliz 2011.

4 de janeiro de 2011

o código abaixo atuará somente na coluna A, altere se desejar

cole-o no módulo da planilha

Private Sub Worksheet_Change(ByVal Target As Range)
Dim novoValor As Long
Dim antigoValor As Long
Application.EnableEvents = False
On Error GoTo final
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Count = 1 Then
    If Not IsNumeric(Target) Then
    MsgBox "digite somente números"
    Application.Undo
    GoTo final
    End If

    If Target = "" Then GoTo final
        novoValor = Target.Value
        Application.Undo
        antigoValor = Target.Value
        Target.Value = antigoValor + novoValor 
    End If
End If

final:
Application.EnableEvents = True
End Sub

skaz · 6 de janeiro de 2011

Não manjo nada de VB, colei o código no módulo que o amigo ' osvaldomp ' mandou (grato por isso), alterei para H:H salvei, executei, exportei, importei baixei apostila e mesmo assim ainda não aprendi a utilizar o VB,

Caso alguém possa explicar(preferencialmente) passo a passo para fazer funcionar o código que osvaldomp mandou, agradeço.

segue o link da planilha, o ' problema ' fica na plan ' C.Venda ':

http://www.4shared.com/document/JJz43e7g/Controle_Vendas.html