Is there a way to activate a command button by simply pressing a single
letter on the keyboard? For example, say I have a button that says "Add A
Title". When I press the A key I want the button to activate and process
whatever code is attached to it.

Use the keydown event of the command button. or the userform..

Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyCode = 65 Then MsgBox "Run"
End Sub
--
If this post helps click Yes
---------------
Jacob Skaria


"Bishop" wrote:

> Is there a way to activate a command button by simply pressing a single
> letter on the keyboard? For example, say I have a button that says "Add A
> Title". When I press the A key I want the button to activate and process
> whatever code is attached to it.

You could use the Accelerator property, but then use alt-A to run the _click
event for that command button. (Include the A somewhere in the caption!)

Kind of like what you see in the xl2003 menu--where the F in File is underlined,
E in Edit, etc.

Bishop wrote:
>
> Is there a way to activate a command button by simply pressing a single
> letter on the keyboard? For example, say I have a button that says "Add A
> Title". When I press the A key I want the button to activate and process
> whatever code is attached to it.

--

Dave Peterson

read help on
APPLICATION.ONKEY key, procedure

when this is run
APPLICATION.ONKEY "Q", "doThis"

whenever the user presses the Q key, the sub called doThis is run


"Bishop" <(E-Mail Removed)> wrote in message
news084D17B-5866-4120-BB25-(E-Mail Removed)...
> Is there a way to activate a command button by simply pressing a single
> letter on the keyboard? For example, say I have a button that says "Add A
> Title". When I press the A key I want the button to activate and process
> whatever code is attached to it.

I have the following code:

Private Sub AddButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)

Dim A As Integer

If KeyCode = A Then
AddTitle.Show
End If

End Sub

but it doesn't work. What am I doing wrong?

"Jacob Skaria" wrote:

> Use the keydown event of the command button. or the userform..
>
> Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
> ByVal Shift As Integer)
> If KeyCode = 65 Then MsgBox "Run"
> End Sub
> --
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Bishop" wrote:
>
> > Is there a way to activate a command button by simply pressing a single
> > letter on the keyboard? For example, say I have a button that says "Add A
> > Title". When I press the A key I want the button to activate and process
> > whatever code is attached to it.

Its returning the character code..65 for A and so on..However if you are
unfamilar use the below code....

Dim A As Integer

If Chr(KeyCode) = "A" Then
AddTitle.Show
End If

If this post helps click Yes
---------------
Jacob Skaria


"Bishop" wrote:

> I have the following code:
>
> Private Sub AddButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
> ByVal Shift As Integer)
>
> Dim A As Integer
>
> If KeyCode = A Then
> AddTitle.Show
> End If
>
> End Sub
>
> but it doesn't work. What am I doing wrong?
>
> "Jacob Skaria" wrote:
>
> > Use the keydown event of the command button. or the userform..
> >
> > Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
> > ByVal Shift As Integer)
> > If KeyCode = 65 Then MsgBox "Run"
> > End Sub
> > --
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "Bishop" wrote:
> >
> > > Is there a way to activate a command button by simply pressing a single
> > > letter on the keyboard? For example, say I have a button that says "Add A
> > > Title". When I press the A key I want the button to activate and process
> > > whatever code is attached to it.