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 de Ahrens Ruano
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.
