Add Value To Cell

[colinh]

Hi All,
I have a cell O8 with a value of zero. I also have a cell with nothing in it R8. How to I for instance add any plus (i.e. more than zero) value to cell R8 and cell O8 automatically increments to 1. If I add a bit more to R8 than O8 increments to 2, add a bit more and O8 becomes 3 and so on. What I add to R8 each time will be a random number.

Thanks for your help

Colin.

 

[Noxqss38242]

More info needed. Are you wanting O8 to change ONLY in increments of 1 no matter what number is entered in R8? Are you adding whole numbers? Could you give an example of what you are wanting?

O8 = 0 R8 = blank
O8 = 1 R8 = 5
O8 = 2 R8 = 7

So you want it to be a counter of editing rather than a mathematical issue?

 

[colinh]

Hi
Yes please increments of 1 whatever number is entered into R8 and whole numbers. A counter will be just the job.

Colin

 

[Noxqss38242]

VBA code:

Dim xCount As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("R8") Then
xCount = xCount + 1
Range("O8").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("O8").Value = xCount
End If
Application.EnableEvents = True
End Sub