how do I make a counter cell in excel

[Guest]

Can some one help me in telling me how can I do a counter in the excel which
will increase the number by 1 every time I press F9.

 

[Guest]

Hi,

There may be a neater way to do this, but worth trying;

In the sheets code module add;

Private lMyCounter As Long

Public Property Get MyCounter() As Long

MyCounter = lMyCounter

End Property

Public Property Let MyCounter(lNewValue As Long)

lMyCounter = lNewValue

End Property

In a 'normal' module add;

Public Function ShowMyCounter(dTrigger As Date) As Long

Sheet1.MyCounter = Sheet1.MyCounter + 1

xMyCounter = Sheet1.MyCounter

End Function

In the sheet you can now reference the formula;

=ShowMyCounter(NOW())

The 'trigger' is required to make the thing recalc when you hit f9.

Regards,

Chris.

 

[Niek Otten]

http://www.mcgimpsey.com/excel/accumulator.html