Pasar datos de texbox a listbox desde el propio textbox

[Benito Bartolomé]

Buenas tardes a todos;

-Adjunto una macro con un simple formulario que contiene dos textbox un listbox y un botón.

Al poner un dato en el listbox y pulsando el botón pasa el valor al listbox y devuelve el foco al textbox1

Quería conseguir hacer esto mismo pero al pulsar el botón "INTRO" sin tener que recurrir al botón ya que es un incordio estar pulsando cada vez que introduzco datos.

Gracias como siempre por su tiempo.

Macro.xlsm

[DiegoLG]

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ListBox1.AddItem (TextBox1.Value)
Limpiar
sumaImporte
TextBox1.SetFocus
End Sub

DLG

[Benito Bartolomé]

Hace 38 minutos , DiegoLG dijo:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
ListBox1.AddItem (TextBox1.Value)
Limpiar
sumaImporte
TextBox1.SetFocus
End Sub

DLG

Lo siento Diego pero el foco al textbox1 no lo pasa.???

[Benito Bartolomé]

He probado con el evento Exit, como has puesto.

[DiegoLG]

Entonces no entendí tu requerimiento,

Pense que era:

al escribir algo en textbox y al darle enter me pase los datos en en listbox.

Saludos,

[Benito Bartolomé]

No eso ya lo sabía.  Lo que quiero es que al dar intro en el texbox pasa la cantidad al listbox pero el siga estando el foco en el texbox1. 

A ver si me he expresado mejor ahora. Disculpa por el lío  Diego.

Saludos 

[Antoni]

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
                             ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
   KeyCode = 0 '<-------
   btn_b_Click
End If
End Sub

 

[Benito Bartolomé]

Hace 12 horas, Antoni dijo:

If KeyCode = vbKeyReturn Then KeyCode = 0 '<------- btn_b_Click End If

Bo día Antoni;

-Perfecto es justo lo que necesitaba. 

Un abrazo, e se chove que chova?