VBA textbox

[Hiport]

what is the code to make text box active in VBA

Private Sub TextBox1_Change()

??????

End Sub

 

[smozgur]

If you mean Textbox as a control on worksheet then:

'Assuming Sheet1 is the worksheet
Sheet1.TextBox1.Activate

If you mean Textbox control on a userform then:

'Assuming Userform1 is the userform
Userform1.TextBox1.SetFocus

Note: I don't think that you would actually need to use this code in Change event as in your question but somewhere else since the active control will be already itself when Change event is occuring.

 

[Hiport]

i get complie error with the first piece of code, method or data member not found

If you mean Textbox as a control on worksheet then:

'Assuming Sheet1 is the worksheet
Sheet1.TextBox1.Activate

If you mean Textbox control on a userform then:

'Assuming Userform1 is the userform
Userform1.TextBox1.SetFocus

Note: I don't think that you would actually need to use this code in Change event as in your question but somewhere else since the active control will be already itself when Change event is occuring.

 

[Norie]

Hiport

You really need to tell us where this textbox is located.

 

[Hiport]

Hiport

You really need to tell us where this textbox is located.

Text box is located in Sheet 1

 

[smozgur]

• Please make sure your sheet object name is Sheet1 or better use Activesheet instead Sheet1 object name

Activesheet.TextBox1.Activate

• Also make sure your text box name is Textbox1 (or change the code accordingly)

You can copy and paste following code line in debug window in VBE (Ctrl+G) to make sure about the object names on the active sheet:

for each obj in activesheet.OLEObjects :debug.Print obj.name:next