Pasar filas de datos de un listbox de a una
Hola les consulto tengo un listbox en un formulario con 7 columnas, lo que necesito es seleccionar un ítem de ese listbox y que pase a una hoja activa en la que estoy trabajando y a partir de la fila Nº3 columna D.
Luego cada vez que seleccione otra fila se cargue debajo de la anterior y asi sucesivamente, no quiero pasar todos los datos del listbox juntos dado que quiero seleccionar solo algunos.
No se si soy claro la verdad por mi falta de conocimiento en el tema.
Desde ya gracias y saludos.
Te mando mi solución con este ejemplo:
-Tengo un userform con 7 columnas y queremos que al pulsar sobre alguna fila se copie el valor de la segunda columna del listbox a la columna DE desde la fila 3 hacia abajo, donde corresponda.
-Este sería el código necesario para tu listbox1
Private Sub ListBox1_Click()
'por luismondelo
If Range("d3").Value = "" Then
Range("d3").Value = ListBox1.List(ListBox1.ListIndex, 1)
Else
Range("d65000").End(xlUp).Offset(1, 0).Value = ListBox1.List(ListBox1.ListIndex, 1)
End If
End Subrecuerda valorar la respuesta
Luis, primero gracias por la pronta respuesta.
Lo que me pasa con este código, es si selecciono una fila del listbox que tiene alguna columna vacía en la siguiente selección si la próxima fila del listbox esta completa se llenan las celdas vacías de la hoja activa de la primera selección con las de la segunda.
Gracias y saludos.
Prueba con la macro así:
Private Sub ListBox1_Click()
'por luismondelo
valor = listbox1.list(listbox1.listindex,1)
if valor ="" then valor ="sin dato"
If Range("d3").Value = "" Then
Range("d3").Value = valor
Else
Range("d65000").End(xlUp).Offset(1, 0).Value = valor
End If
End Sub
