Clickable Counter

**samwright** · 01-30-2013, 08:27 AM

Hello

I want to create a clickable counter that will increase by multiples of 1 everytime it is clicked. Can someone please advise?

Thanks

Sam

**arlu1201** · 01-30-2013, 08:31 AM

I am not sure about single click but you can do this using double click.

Right click on the sheet where you want the increment to happen, select View code and copy this code -

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value + 1
End Sub

**samwright** · 01-30-2013, 08:39 AM

I am a little confused. I want to have a button that i can click and i will be able to see the numbers increasing. Like a tally. I am not the best on excel so need a walk through really. Thanks for the advice.

**JOHN H. DAVIS** · 01-30-2013, 09:49 AM

You can use a helper sheet and have a sequential list of numbers up to the highest value you want.

Sample code

Sub samwright()

MsgBox Sheets("Helper").Range("A1").Value
Sheets("Helper").Range("A1").Cut Range("A" & Rows.Count).End(3)(2)
Sheets("Helper").Range("A1").Delete xlUp

End Sub