Pasar datos de un listbox a textbox
Pasar los nombres cargados del listbox uno por uno a un textbox donde este el cursor.
Por ejemplo al seleccionar un textbox pasar el empleado que seleccione del listbox al darle clic ya que en la lista se deja varias filas en blanco
Espero a verme dado a entender.
1 respuesta
Agrega el siguiente código en tu formulario
Private Sub TextBox1_Enter() Call Pasar_Dato(TextBox1) End Sub Private Sub TextBox2_Enter() Call Pasar_Dato(TextBox2) End Sub Private Sub TextBox3_Enter() Call Pasar_Dato(TextBox3) End Sub ' Sub Pasar_Dato(wText As MSForms.TextBox) 'Por.Dante Amor If ListBox1.ListIndex = -1 Then MsgBox "selecciona un registro del listbox" Exit Sub End If wText.Value = ListBox1.List(ListBox1.ListIndex, 0) End Sub ' Private Sub UserForm_Activate() ListBox1.TabIndex = 0 End Sub
Te puse 3 ejemplos de textbox, tienes que hacerlo para todos tus textbox
Primero selecciona un registro en el listbox, después selecciona un textbox
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
gracias es lo que quería: hay forma de ir quitando el nombre seleccionado del listbox.
Para quitarlo necesito saber cómo lo cargaste.
Como en tu ejemplo aparecen todos los nombres, no sabía si querías quitarlo.
Con mucho gusto te ayudo con todas tus peticiones.
Crea una nueva pregunta en Todoexpertos.com dentro del tema de microsoft excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle lo que necesitas.
Sal u dos
