Mantener el foco en textbox al presionar Enter

Tengo esta macro:

Private Sub TextBox1_KeyDown(ByVal Keycode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Keycode = 13 Then
Me.ListBox1.AddItem Me.TextBox1.Text
TextBox1 = Empty
TextBox1.SetFocus
End If
End Sub

El asunto es que al presionar Enter pierdo el foco del textbox1. El TextBox1. SetFocus no funciona.

¿Qué debo hacer?

1 Respuesta

Respuesta
1

Fernando MG puedes usar el evento exit del textbox1 como se muestra en el siguiente código:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ListBox1.AddItem Me.TextBox1.Text
TextBox1 = Empty
Cancel = True
End Sub

Si es lo que estas buscando, Salu-dos.

No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas