Enable a command button only after another is clicked

[hyd1956]

Hi

Is there a way to make commandbutton1 dependant on commandbutton2 being clicked first and for to include a timer. e.g. click button 2 then you have 1 minute to click button 1 or you have to restart the process. I also need certain values to be entered into cells for each button to be enabled. So far I've got this which enables them when the values are entered, but it doesn't make button 1 dependant on button being pressed.

Any help would be greatly appreciated.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.Enabled = False
If Application.CountA(Range("B1, B2, F2, F3, F4, F5, F6")) >= 7 Then
CommandButton1.Enabled = True
End If
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.Enabled = False
If Application.CountA(Range("B1, B2")) >= 2 Then
CommandButton2.Enabled = True

End If
End Sub

Thank you

 

[mole999]

set its property to hidden, and as part of the click routine unhide it

 

[braindiesel]

Instead of enabling, you could set an external reference point... this could solve the timer as well..
command button 2
range("M1").formula = "=now()"
range("M1").value = range("M1").value
<rest of command button 2 code>

command button 1
if range("M1").value = "" then
msgbox("Please press button 1 first")
exit sub
endif
range("M2").formula = "=now()"
range("M2").value = range("M2").value
if range("M2").value - range("M1").value >60 then
msgbox("Task must be completed within 60 seconds. Please start over")
range("M1:M2").value =""
Exit sub
Else
<rest of command button 1 code>
End if


Something like that?

 

[hyd1956]

Thanks, this has helped me tweak it to work

 

[braindiesel]

Glad to hear it. Thanks for letting me know