form control button count

Question

I have several form control buttons on my worksheet and I would like to count how many times each one is pressed individually and display the number in a adjacent cell to be used in another calculation.

Any help greatly apreciated

Answer 1

Are the buttons each contained within a cell?

And do you want the count to be displayed in the cell to the right of the respective button?

If so, try the following...

1. For the macro or macros assigned to your buttons, add the following line of code at the end...

Call IncrementButtonCount

2. Add the following code in the same module...

Private Sub IncrementButtonCount()

    With ActiveSheet.Buttons(Application.Caller).TopLeftCell.Offset(, 1)

        .Value = .Value + 1

    End With

End Sub

Hope this helps!

Answer 2

Thank you for the help Gord.

Answer 3

Thank you for this works perfectly.

Answer 4

Sub Button1_Click()

With ActiveSheet

   .Range("A1").Value = _

   .Range("A1").Value + 1

End With

MsgBox "you pressed the button"

'your code goes here

End Sub

Gord