Think about it for a minute. What do you want Excel to put into that cell
if not another "4"? Write down the logic tree that Excel might be able to
use to do what you want. HTH Otto
"omega" wrote in message
...
Otto,

It works well. I'm amazed! Although, there is another possibility that the
user will do that I was not able to mention in my first letter. Given the
possibilities mentioned there, the user entered the required data, "1" at
B3,
B12, B1 and B20. Now the user decided to delete data in B12, then enters
"1"
in B13, this will result to a duplicate of occurrence # 4. There will be 2
occurrences of "4" now. These are B20 and B13. Is there a way to eliminate
duplicates in this task?

Please include an optional line just in case I will decide to make the
occurrences appear in Sheet2.

Thank you very much for your help.

Omega

=======================

"Otto Moehrbach" wrote:

To do chronological counting like you want, you will need VBA.
Right-click
your sheet tab, select View Code, and paste this macro into that module.
"X" out of the module to return to your sheet. HTH Otto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If IsEmpty(Target.Value) Then Exit Sub
If Not Intersect(Target, Range("B1:B20")) Is Nothing Then
Target.Offset(, 1) = _
Application.CountIf(Range("B1:B20"), 1)
End If
End Sub