JordanGoodchild
New Member
- Joined
- Jul 21, 2010
- Messages
- 28
i have a single cell that changes from 1 to 0 in a repeating pattern is there a way to sum up this changing cell in an adjacent cell.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Target.Offset(0, 1) = Target.Offset(0, 1) + Target.Value
End If
End Sub