I want to have a cell continually add the numerical values entered into another cell, so 55+40 entered into A2 would equal 95 in b2. I want to do this for the whole of column A but have the corresponding B column add eg. A5 is added in B5, A500 is added in B500. The following code adds the numbers entered in column A into cell B2, what do i change, obviously the B2 remark but to what?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If Target.Row > 1 And Target.Column = 1 Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B2").Value = Range("B2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub
Many Thanks
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If Target.Row > 1 And Target.Column = 1 Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B2").Value = Range("B2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub
Many Thanks