Shortcut key to commandbutton

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Ranjit kurian - 24 May 2008 07:57 GMT

I have developed a forms through excel VBA, and the forms contain text box,
option button, commandbutton etc....

I need a macro code to create shortcut key to my commandbutton and
optionalbutton, for example : if i have a commandbutton called as Cancel, the
"C" of the Cancel button should be underlined, so that the user when they
select Alt+C that particular commandbutton should be activated/action to be
performed.

Reply to this Message

Joel - 24 May 2008 09:01 GMT

You need an accelerator

Private Sub UserForm_Initialize()
CommandButton1.Accelerator = "C"
'Set Accelerator key to COMMAND + C
End Sub

Private Sub CommandButton1_Click ()
If CommandButton1.Caption = "OK" Then
'Check caption, then change it.
CommandButton1.Caption = "Clicked"
CommandButton1.Accelerator = "C"
'Set Accelerator key to COMMAND + C
Else
CommandButton1.Caption = "OK"
CommandButton1.Accelerator = "O"
'Set Accelerator key to COMMAND + O
End If
End Sub

> I have developed a forms through excel VBA, and the forms contain text box,
> option button, commandbutton etc....
[quoted text clipped - 4 lines]
> select Alt+C that particular commandbutton should be activated/action to be
> performed.

Reply to this Message

Ranjit kurian - 24 May 2008 18:31 GMT

Hi Joel

Thanks for the code, but actually my commandButton caption name is Cancel
and the button perform the below action

Private Sub CommandButton1_Click()
End
End Sub

so if i press Atl+C to my cancel button it should end the macro

> You need an accelerator
>
[quoted text clipped - 24 lines]
> > select Alt+C that particular commandbutton should be activated/action to be
> > performed.

Reply to this Message

Norman Jones - 24 May 2008 10:15 GMT

Hi Ramit,

In addition to Joel's response, you can set the
CommanButton's Default property:

'===========>>
Private Sub UserForm_Initialize()
Me.CommandButton1.Default = True
End Sub
'<<==========

Then, hittting the Enter key will call the
Command_Button code.

Typically, you might set the default property
for a Cancel button on your form.

---
Regards.
Norman

>I have developed a forms through excel VBA, and the forms contain text box,
> option button, commandbutton etc....
[quoted text clipped - 6 lines]
> be
> performed.

Reply to this Message