Count and Reset Button Clicks

[Arlen]

Hello Experts.

I have a Yahtzee game with 2 buttons/2 macros.

One button (Roll Dice) rolls the dice (Calculate) and the second button
(Next Player) clears all checkboxes on the sheet.

However, I'd like to know if there's a way to disable the first button after
it's been clicked 3 times, then re-enable it once the second button is
clicked and start the count over...

Please advise.

I thank you for your time.

 

[Gary''s Student]

We can use a Global variable to communicate between the two macros:

Dim IAmTheCount As Integer

Sub FirstButton()
If IsEmpty(IAmTheCount) Then
IAmTheCount = 0
End If
IAmTheCount = IAmTheCount + 1
If IAmTheCount > 3 Then Exit Sub
'''''''''''''''''''''''''''''''''''''''''
' your stuff
MsgBox "doing button #1 things"
'''''''''''''''''''''''''''''''''''''''''
End Sub


Sub SecondButton()
IAmTheCount = 0
'''''''''''''''''''''''''''''''''''''''''
' your stuff
MsgBox "doing button #2 stuff"
'''''''''''''''''''''''''''''''''''''''''
End Sub


Once the first macro increments the count to three, it does not proceed.
The second macro clears the counter and allow the first macro to resume.

 

[Arlen]

Alright, Student of Gary.

I'm all excited to try this. Thanks for explaining the pieces as well.

p.s. I'll be right back if I hit any snags.

But thanks again.

 

[Arlen]

Gary's Student,

Perfect. But now you got me thinking. How can I make that message box pop
up ONLY after you've exceeded your 3 rolls, with a message like "Quit
Cheating, You Sonuva*&%@!"

I'll keep shuffling code around, but if you see this, let me know.

Thanks again!