Counter

S

Sdbenn90

I need help with either Excel or Visual basic Code to do the following.

I need a command button if clicked by the user it will count the number of
time the button was clicked. Also will need a reset button so the user can
reset the number back to Zero if they need to start over. In Visual basic I
used the Static function which works but you have to end the form or sub to
reset the number. Any help with this matter is greatly appreciated.
 
B

Bob Phillips

Add this code to a general module and just assign the macros to your
buttons.

Dim nCounter As Long

Sub Count()
nCounter = nCounter + 1
End Sub

Sub ResetCount()
nCounter = 0
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
S

Sdbenn90

Thank You for the help, I'm still not sure on how it works. if I want the
numbers to appear in A1. Where in the code do I tell it that A1 is where this
number to be displayed. if I insert a cmd button in C1, click the button say
5 time 5 should appear in A1. and I aplogize how do I assign the macro to the
button.
 
B

Bob Phillips

Dim nCounter As Long

Sub Count()
nCounter = nCounter + 1
Worksheets("Sheet1").Range("A1").Value = nCounter
End Sub

Sub ResetCount()
nCounter = 0
End Sub

To assign a button, make sure the Forms toolbar is visible (Tools>Customize,
click Forms) then drag the commandbutton onto your worksheet, and it will
ask you to assign a macro, select Count.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
 
S

Sdbenn90

Works Great. Thank you so much

Bob Phillips said:
Dim nCounter As Long

Sub Count()
nCounter = nCounter + 1
Worksheets("Sheet1").Range("A1").Value = nCounter
End Sub

Sub ResetCount()
nCounter = 0
End Sub

To assign a button, make sure the Forms toolbar is visible (Tools>Customize,
click Forms) then drag the commandbutton onto your worksheet, and it will
ask you to assign a macro, select Count.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)
Click to expand...
 
Top