Hola a todos.

Tengo un problema que os puede parecer un poco tonto, pero no encuentro como solucionarlo. Seguro que es fácil pero no encuentro el Evento que debo llamar.

Tengo en un Userform un Listbox y debajo de este hay unos Textbox. Lo que quiero hacer es que cuando seleccione un datos del Listbox sus datos vayan a parar a los Textbox. Hasta ahí no hay problema, el problema lo tengo porque el código lo he puesto en el Evento Click del Listbox y me envía los datos solo la primera vez que hago click, y cuando selecciono otro item no hace nada. Entiendo que el código lo estoy poniendo en un evento equivocado y no acierto con cuál es.

¿podéis ayudarme por favor?

Copio el código, aunque seguro que sabéis donde ponerlo en vez de en el evento Click.

Private Sub ListBox4_Click()
'macro para editar los campos seleccionados en Listbox4
If ListBox4.ListIndex = -1 Then Exit Sub
With ListBox4
TextBox3 = .List(ListIndex, 1)
TextBox4 = .List(ListIndex, 2)
TextBox5 = .List(ListIndex, 3)
TextBox6 = .List(ListIndex, 4)
TextBox7 = .List(ListIndex, 5)
TextBox8 = .List(ListIndex, 6)
End With
End Sub

No subo ningún archivo, entiendo que no es necesario. Ruego me disculpéis.

Saludos.

Moisés.

Ni caso. Ahora me funciona con el Evento Click.

Creo que lo único que he hecho es asignar a una variable el ListboxIndex. O lo mismo es que estoy un poco "despistado".

Lo siento. No se si se puede editar un mensaje una vez se ha enviado.

Private Sub ListBox4_Click()
'macro para editar los campos seleccionados en Listbox4
If ListBox4.ListIndex = -1 Then Exit Sub
Dim n
With ListBox4
n = .ListIndex
TextBox3 = .List(n, 1)
TextBox4 = .List(n, 2)
TextBox5 = .List(n, 3)
TextBox6 = .List(n, 4)
TextBox7 = .List(n, 5)
TextBox8 = .List(n, 6)
End With
End Sub

Moisés.

Sube el archivo.

@Antoni, ya me funciona. Hace lo que quería en el Evento Click.

No se porqué no me lo hacía, por eso preguntaba si el evento era el equivocado.

Gracias por responder.

Moisés.