Add values to total values in cells

[ruru]

Hi, guys
I able to get the total value at B8, but when come to create the next column, D8 doesn't appear the total value.
Below are my code. Anyone able to help me? Thank in advance.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Static A, C As Double

If Target.Address = "$A$8" Then
A = Range("B8").Value
Range("B8").Value = A + Target.Value

If Target.Address = "$C$8" Then
C = Range("D8").Value
Range("D8").Value = C + Target.Value

End If
End If
End Sub

 

[VoG]

This works for me

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$8" Then
    Range("B8").Value = Range("B8").Value + Target.Value
ElseIf Target.Address = "$C$8" Then
    Range("D8").Value = Range("D8").Value + Target.Value
End If
End Sub

 

[al_b_cnu]

Hi,

I think you've got your Ends If in the wrong place :¬/

Try this slightly more robust code:

Dim A As Double, C As Double

If Target.Address = "$A$8" Then
    A = Val(Range("B8").Value)
    Range("B8").Value = A + Val(Target.Value)
End If
If Target.Address = "$C$8" Then
    C = Val(Range("D8").Value)
    Range("D8").Value = C + Val(Target.Value)
End If

Note that in your posted code, variable A will be defined as a Variant type

 

[ruru]

Hi guys,
Its works now.
I'm new to VBA, still have alot to learn from u guys
Thanks.