change command button colour when selected

Good Morning

I have several forms with multiple command buttons... all have different names however they all start with 'cmd'

Is there a way for a button to change colour when selected whilst changing the rest of the buttons on that form to their origional colour... I know how to do it, using this, when the buttons have numbers instead of names....

Many thanks for your help

Jim

For x = 1 To 18
        Me.Controls("cmd" & x).BackColor = &HFFFFFF 'sorts the main cmd button backcolours, light grey
        cmd1.BackColor = RGB(51, 204, 255) 'selected button turns blue
    Next

see large yellow banner - how to upload your workbook - far easier then to give you a tailor made solution.

One way:

Private Sub cmddothis_Click()
For Each cmd In Me.Controls
    If cmd.Caption Like "Names *" Then
        Debug.Print cmd.Caption
        cmd.BackColor = &HFFFFFF 'sorts the main cmd button backcolours, light grey
    End If
    cmddothis.BackColor = RGB(51, 204, 255) 'selected button turns blue
Next

End Sub

Private Sub cmddothat_Click()
For Each cmd In Me.Controls
    If cmd.Caption Like "Names *" Then
        Debug.Print cmd.Caption
        cmd.BackColor = &HFFFFFF 'sorts the main cmd button backcolours, light grey
    End If
    cmddothat.BackColor = RGB(51, 204, 255) 'selected button turns blue
Next

End Sub

'etc
'etc

Or, you could add a Tag to all the Names buttons and check that. For example:

        Debug.Print cmd.Caption, cmd.Tag

You're welcome. Thanks for the rep.

Tag works much the same as caption but you could, for example, make the Name buttons tagged as Name and all the Number buttons tagged as Number. Then you can use the same loop structure.

This would probably be a more effective and less repetitive method of highlighting the selected command button(s).

Option Explicit

' The code below assume that:
' Number Command Buttons have the Tag set to "Number" and
' Name Command Buttons have the Tag set to "Name"

Private Sub cmd1_Click()
cmd_Check_State cmd1.Name, cmd1.Tag
End Sub

Private Sub cmd2_Click()
cmd_Check_State cmd2.Name, cmd2.Tag
End Sub

Private Sub cmd3_Click()
cmd_Check_State cmd3.Name, cmd3.Tag
End Sub

Private Sub cmddothis_Click()
cmd_Check_State cmddothis.Name, cmddothis.Tag
End Sub

Private Sub cmddothat_Click()
cmd_Check_State cmddothat.Name, cmddothat.Tag
End Sub

Private Sub cmdonejob_Click()
cmd_Check_State cmdonejob.Name, cmdonejob.Tag
End Sub

Private Sub cmdyourjob_Click()
cmd_Check_State cmdyourjob.Name, cmdyourjob.Tag
End Sub

Private Sub cmdanyonesjob_Click()
cmd_Check_State cmdanyonesjob.Name, cmdanyonesjob.Tag
End Sub

Private Sub cmd_Check_State(cmdButton, cmdTag As String)
Dim cmd
For Each cmd In Me.Controls
    If cmd.Tag = cmdTag Then
        cmd.BackColor = &HFFFFFF ' sets the main cmd button backcolours, light grey
    End If
Next
Me.Controls(cmdButton).BackColor = RGB(51, 204, 255) ' selected button turns blue
End Sub

You could use a class module to intercept the MouseDown and MouseUp conditions - with this method you do not have to intercept each Click event.