vba: run a commund button while another one is running

Question

I have two Command Buttons like these:

Private Sub CommandButton1_Click()
CommandButton1.BackColor = vbRed
Application.Wait (Now + TimeValue("00:00:15"))
CommandButton1.BackColor = vbYellow
End Sub
'______________________________________________
Private Sub CommandButton2_Click()
CommandButton2.BackColor = vbBlue
End Sub

I'd like to run CommandButton2 while CommandButton1 is running.

does anyone have any ideas?

So you want to change the BackColor of CommandButton2 when you click CommandButton1? — Robby, Jul 20 '18 at 16:20
No, I want to click CommandButton2 while CommandButton1 is running. — osama shakaki, Jul 20 '18 at 16:23
But it looks like the only thing that clicking CommandButton2 does is change the BackColor. — Robby, Jul 20 '18 at 16:24

score 0 · Accepted Answer · answered Jul 20 '18 at 16:29

0

Try this ...

Private Sub CommandButton1_Click()
    CommandButton1.BackColor = vbRed
    For X=1 to 15
        Application.Wait (Now + TimeValue("00:00:01"))
        DoEvents
    Next X
    CommandButton1.BackColor = vbYellow
End Sub

Your app will be more responsive if you can wait, say, 100 milliseconds each time, rather than 1 second.

answered Jul 20 '18 at 16:29

3-14159265358979323846264

3,250
2
15
38

Worth mentioning that DoEvents should be used sparingly...https://stackoverflow.com/questions/11352301/how-to-use-doevents-without-being-evil – 3-14159265358979323846264 Jul 20 '18 at 16:36

vba: run a commund button while another one is running

1 Answers1