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
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