PASAR DATOS DE LISTBOX A VARIOS TEXTBOX

7 envíos / 0 nuevos
Último envío
dparedes190993
Imagen de dparedes190993
Offline
última acción: Hace 1 semana 1 día
alta: 07/02/2018 - 20:19
Puntos: 150
PASAR DATOS DE LISTBOX A VARIOS TEXTBOX

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.

AdjuntoTamaño
Image icon sin_titulo.png203.89 KB

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 1 día 9 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10860
Algo así podría ser...Sub a(

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í

        Case "DAM"
            '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

dparedes190993
Imagen de dparedes190993
Offline
última acción: Hace 1 semana 1 día
alta: 07/02/2018 - 20:19
Puntos: 150
AMIGO Y SI VIERA VARIOS GENERADOS,EXPEDIENTES

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

AdjuntoTamaño
Image icon captura.png73.17 KB
Cron
Imagen de Cron
Offline
última acción: Hace 1 día 9 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10860
Ok.Donde puse:UserForm1

Ok.

Donde puse:

UserForm1.TextBox1.Text = .List(i, 1)

Prueba a poner:

UserForm1.TextBox1.Text = UserForm1.TextBox1.Text & ", " & .List(i, 1)

Un saludo
dparedes190993
Imagen de dparedes190993
Offline
última acción: Hace 1 semana 1 día
alta: 07/02/2018 - 20:19
Puntos: 150
amigo como podria hacer para que no me salga la , al inicio

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.

AdjuntoTamaño
Image icon captura.png82.93 KB
Cron
Imagen de Cron
Offline
última acción: Hace 1 día 9 horas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 10860
Bueno, eso sería un simple

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

dparedes190993
Imagen de dparedes190993
Offline
última acción: Hace 1 semana 1 día
alta: 07/02/2018 - 20:19
Puntos: 150
http://www.necesitomas.com/necesito-unir-dos-celdas-combobox

ENTRA A ESTE LINK UN FAVOR AYUDAME CON ESTE PROBLEMA

TE VOY AGRADECER SIEMPRE.