Counter button

  • Thread starter Thread starter Dennis
  • Start date Start date
D

Dennis

How would I go about coding a command button to advance a number in another
cell by 1 each time the button is clicked, like a counter?
 
'View' > 'Toolbars' > 'Forms'
In the box that appears, click 'Button' (second down on the right) then
click in the worksheet.
In the box that appears click 'New'
Underneath 'Sub Botton1_Click' enter:-

Range("A1") = Range("A1") + 1

Press Alt and F11 to close the window.
Change A1 to suit and you can rename the button by right clicking it.

Regards,
Alan.
 
Dennis,

After creating you command button assign this code. You might also consider
doing some error checking because it the cell contains text adding 1 will
give an error.

Sub Button1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub

Mike
 
Back
Top