Excel Somar valores em cada célula de uma coluna

[AlanBC]

Olá pessoal...

encontrei esse codigo aqui no forum "

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Static valorcel As Integer
Application.EnableEvents = False
If Target.Address = "$A$1" Then
valorcel = Target.Value + valorcel
If Target.Value = 0 Then valorcel = 0
Target.Value = valorcel
End If
Application.EnableEvents = True
End Sub

 

e é praticamente o que preciso. porém, tem que funcionar pra cada celula da coluna "A" , por exemple de "A1 a A30".

sendo que cada celula tera sua somatoria indepedente. 

podem me ajudar...

obrigado.

 

 

[Visitante]

Experimente:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim strNew As Double, strOld As Double
 If Intersect([A1:A30], Target) Is Nothing Or Target.Value = "" Then Exit Sub
 On Error GoTo fim
 Application.EnableEvents = False
 strNew = Target.Value
 Application.Undo
 strOld = Target.Value
 Target.Value = strNew + strOld
fim:
 Application.EnableEvents = True
End Sub

 

[AlanBC]

muito bom amigo.!!!!

per fei to !    era exatamente isso que precisava.

muito obrigado...

forte abraço.