Soma

[Guest Evair V.Silva]

Olá Pessoal

Estou com duvida de como conseguir o resultado acumulado de uma soma, fazendo o lançamento em apenas uma celula.

Exemplo

A B C

1 R$ TOTAL

2 2 2

3 4 4

4 10 10

Ao lançar o valor na celula A2, gostaria que ele fosse somado (acumulado) na celula B2, de tal forma que se lançar um valor 10 na celula A2 a soma seja automatica na cel. B2, e valor seja "12".

Grato, Evair

riavasco1@hotmail.com

[JoséA]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

On Error GoTo aviso

Application.EnableEvents = False

If Target.Column = 1 Then

Cells(Target.Row, 2) = Cells(Target.Row, 2) + Cells(Target.Row, 1)

End If

Application.EnableEvents = True

Exit Sub

aviso:

If Err = 13 Or Err = 1004 Then

Target = Null

Application.EnableEvents = True

Else

MsgBox "Erro: " & Err.Number

End If

End Sub

Com este procedimento você soma os valores digitados na coluna A com os correspodentes da coluna B

Tipo:

1º digita em A1 o valor 1, em B1 ficará o valor 1;

2º digite em A1 o valor 2, em B1 ficará o valor 3, ou seja o valor da coluna A será somado ao valor existente na coluna B da mesma linha e assim sucessivamente.

Editado Dezembro 23, 2008 por JoséA

[JoséA]

Confira no link abaixo arquivo exemplo para download:

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