BUENAS TARDES NECESITO PASAR DATOS DE LISTBOX A VARIOS LISTBOX
EN MI TRABAJO TENGO UN COMBOBOX CON GENERADOS , PENDIENTES, CONCLUIDOS,DAM
CUANDO DOY GENERADOS PONGO UN NUMERO
QUE SE LLENA EN EL LISTBOX EN LA COLUMNA1(LO DEL COMBOBOX),COLUMNA2(NUMERO)
LUEGO DOY EN BOTON COPIAR QUE ESTO PASA A LOS TEXBOXT QUE TIENEN LOS NOMBRES
GENERADOS , PENDIENTES, CONCLUIDOS,DAM.
DEPENDIENTO DEL COMBOBOX QUE SE ESCOJA.
| Adjunto | Tamaño |
|---|---|
 sin_titulo.png | 203.89 KB |
Algo así podría ser...
Sub a()
Dim i As Integer
With UserForm1.ListBox1
For i = 0 To UserForm1.ListBox1.ListCount - 1
Select Case .List(i, 0)
Case "GENERADOS"
UserForm1.TextBox1.Text = .List(i, 1)
Case "PENDIENTES"
'Tu código aquí
Case "CONCLUIDOS"
'Tu código aquí
End Select
Next i
End With
End Sub
Como creo que es obvio, tienes que adaptar los nombres a los que tengas tú en tu código. Además, la rutina a() deberá ser la que tú creas conveniente, o lanzarla con el evento que tú creas conveniente.
Un saludo
AMIGO BUENOS DIAS MI CONSULTA ES QUE CUANDO LE DOY COPIAR NO ME COPIA TODO
LOS ITEMS GENERADOS SOLO ME COGE EL ULTIMO ITEMS QUE INGRESE LO TOME PANTALLASO
ESPERO TU RESPUESTA GRACIAS POR RESPONDERME! Y ALA VEZ EN EL TEXBOXT SEPARARLO POR COMA
Ok.
Donde puse:
UserForm1.TextBox1.Text = .List(i, 1)
Prueba a poner:
UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & ", " & .List(i, 1)
Gracias amigo por la ayuda solo me faltaria que la coma no me salga al inicio al momento que copio los datos del listbox a
los textboxt.
Gracias por tu ayuda.
Bueno, eso sería un simple condicional:
If UserForm1.TextBox1.Text = "" then
UserForm1.TextBox1.Text = .List(i, 1)
Else
UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & ", " & .List(i, 1)
End If
Un saludo
ENTRA A ESTE LINK UN FAVOR AYUDAME CON ESTE PROBLEMA
TE VOY AGRADECER SIEMPRE.