Pre select a textbox in a userform

[UHsoccer]

When my userform is displayed, I would like to have the input field preselected. It is the same as using the Shift-Home key.

I current ly use a shortcut ( Ctrl-M ) to select the sheet and display the userform, as in

    Sheets("Select").Activate
    Call Worksheets("Select").CommandButton1_Click
    
    UserForm1.TextBox1.Select   ' NOT correct

The last line does not work, but it was my stab at the problem

Any ideas appreciated

 

[Lewiy]

Firstly, you cannot call a CommandButton_Click event from another sub routine as it is a private sub. I assume that behind the CommandButton you have something along the lines of:

UserForm1.Show

What I think you are trying to achieve is for the cursor to start in a particular TextBox on the UserForm. In which case you want to go to the UserForm_Activate event and enter the line:

TextBox1.SetFocus

Hope that helps!

 

[UHsoccer]

The cursor is already in the textbox, albeit at the END.

However, I would like the entire filed preselected (highlighted) so when I start typing, the current information get overtyped

 

[Lewiy]

Do you need the current text to be visible before you start typing? If not then just stick:

TextBox1.Value = ""

in the UserForm_Activate event.

 

[Norie]

UHSoccer

You should probably start by looking into Tab Order.

Then if you want the text in the textbox selected look at SelStart/SelLength.

Private Sub UserForm_Initialize()
    TextBox1.SelStart = 0
    TextBox1.SelLength = Len(TextBox1.Value)
End Sub

Note this assumes there's actually something in the textbox.

 

[UHsoccer]

I would like to retain the original text but have it "selected"

By the way, the addition of UserForm1.TextBox1.Value = "" did NOT clear the information in the textbox

 

[Lewiy]

Are you still trying to call the CommandButton_Click event in a way other than by actually clicking the button?

 

[UHsoccer]

I am using the code

Sub Display_Select()

    Sheets("Select").Activate
    Call Worksheets("Select").CommandButton1_Click
    UserForm1.TextBox1.Value = " "
    
End Sub

Which is assigned to Ctrl-M to select a sheet and bring up the user form

 

[Norie]

Did you try my code?

Worked for me.

 

[UHsoccer]

Norie,

Missed your post.

I added your code to the existing form code with no effect

Then I added the two lines to the "Private Sub TextBox1_Change()" routine. It did highlite, but the tab action would not leave the cell and go to the next one.

I did experiment with other options to no avail

What I did discover was the Shift-Home action highlites the entry in the cell that is active. Do not know how to "program" that step....