Pasar datos listbox a celda
Hola, tengo un listbox con datos numéricos, por ejemplo:
12345
45621
12346
Quiero que esos datos me los pase a una celda, puede ser separados con ( / ), pero no se como hacerlo, agradezco mucho que colaboren con ello, gracias.
12345
45621
12346
Quiero que esos datos me los pase a una celda, puede ser separados con ( / ), pero no se como hacerlo, agradezco mucho que colaboren con ello, gracias.
1 Respuesta
Respuesta de Elsa Matilde
1
Hay poca información en tu consulta, así que tendrás que ajustar esta macro de ejemplo.
Se ejecuta haciendo clic sobre el listbox y vuelca la cadena en la celda activa. Imaginé que el control tiene 5 entradas. Todos estos detalles los tenés que ajustar a tu modelo.
Private Sub ListBox1_Click()
For i = 0 To 4
cadena = cadena & ListBox1.List(i) & "/"
Next i
ActiveCell = cadena
End Sub
Saludos
Elsa
* No te pierdas las novedades de:
http://es.geocities.com/lacibelesdepunilla/manuales
Se ejecuta haciendo clic sobre el listbox y vuelca la cadena en la celda activa. Imaginé que el control tiene 5 entradas. Todos estos detalles los tenés que ajustar a tu modelo.
Private Sub ListBox1_Click()
For i = 0 To 4
cadena = cadena & ListBox1.List(i) & "/"
Next i
ActiveCell = cadena
End Sub
Saludos
Elsa
* No te pierdas las novedades de:
http://es.geocities.com/lacibelesdepunilla/manuales
