I have a form which opens when excel opens

If Sheets("SearchRoundsData").Range("B2").Value = 1 Then
frmWelcome.Hide
Else
frmWelcome.Show
End If

On the form there is a close button "CommandButton1". Is it possible to give
this button focus so that the user can use the Enter keyboard key rather
than having to click with the mouse?

Thanks
Sandy

in your userform_initialize sub, put

CommandButton1.setfocus

hth

susan

On Jul 1, 10:57*am, "Sandy" <sandy_step...@DELETEhotmail.com> wrote:
> I have a form which opens when excel opens
>
> * * If Sheets("SearchRoundsData").Range("B2").Value = 1 Then
> * * * * frmWelcome.Hide
> * * Else
> * * * * frmWelcome.Show
> * * End If
>
> On the form there is a close button "CommandButton1". Is it possible to give
> this button focus so that the user can use the Enter keyboard key rather
> than having to click with the mouse?
>
> Thanks
> Sandy

Hi Sandy

If you want CommandButton1 to have focus as the userform is shown, right
click on the userform, select tab order, bring CommandButton1 to the top.

Regards,
Per

"Sandy" <(E-Mail Removed)> skrev i meddelelsen
news:2A85E0C5-1C11-4846-8861-(E-Mail Removed)...
>I have a form which opens when excel opens
>
> If Sheets("SearchRoundsData").Range("B2").Value = 1 Then
> frmWelcome.Hide
> Else
> frmWelcome.Show
> End If
>
> On the form there is a close button "CommandButton1". Is it possible to
> give this button focus so that the user can use the Enter keyboard key
> rather than having to click with the mouse?
>
> Thanks
> Sandy
>
>

As usual never just one method :-)
Many thanks to you both.
sandy

"Sandy" <(E-Mail Removed)> wrote in message
news:2A85E0C5-1C11-4846-8861-(E-Mail Removed)...
> I have a form which opens when excel opens
>
> If Sheets("SearchRoundsData").Range("B2").Value = 1 Then
> frmWelcome.Hide
> Else
> frmWelcome.Show
> End If
>
> On the form there is a close button "CommandButton1". Is it possible to
> give this button focus so that the user can use the Enter keyboard key
> rather than having to click with the mouse?
>
> Thanks
> Sandy
>
>

As a user, I'm more used to using the Escape key to do the same as the Cancel
key and the Enter key to the same as the "ok" key.

You can accomplish this in your userform_initialize procedure with code like:

With Me.CommandButton1
.Caption = "Cancel"
.Cancel = True
'.Enabled = True
End With

With Me.CommandButton2
.Caption = "Ok"
.Default = True
'.Enabled = False
End With

If you really want to close the userform by hitting enter, you can use .default
= true on that commandbutton. (only one commandbutton can have those
properties.)



Sandy wrote:
>
> I have a form which opens when excel opens
>
> If Sheets("SearchRoundsData").Range("B2").Value = 1 Then
> frmWelcome.Hide
> Else
> frmWelcome.Show
> End If
>
> On the form there is a close button "CommandButton1". Is it possible to give
> this button focus so that the user can use the Enter keyboard key rather
> than having to click with the mouse?
>
> Thanks
> Sandy
>

--

Dave Peterson