0

Tengo un formulario en Excel con varios listbox. Al seleccionar un elemento en el listbox A necesitaría pasar todos los elementos NO seleccionados al listbox B. Pero no consigo hacerlo. No tengo nada claro el procedimiento para recorrer el listbox A y si el elemento NO está seleccionado pasarlo al listbox B.

Pasar el elemento seleccionado si que lo tengo claro no así los no seleccionados.

Agradeceré cualquier ayuda.

Gracias.

2
  • Saludos. Incluye el código que llevas y que comportamiento tiene actualmente y cual debe ser; o en dado caso el error que se te muestra. Así te pueden guiar en como realizar lo que llevas. Commented el 21 dic. 2020 a las 7:54
  • Realmente no tenía nada montado. Estuve probando el viernes varias horas y no conseguía dar con la solución. Ha sido escribir la pregunta y se me ha encendido la bombilla :-)
    – dogwall
    Commented el 21 dic. 2020 a las 8:17

1 respuesta 1

1

Por si sirve de ayuda en un futuro, esto es lo que he hecho:

'Elemento seleccionado
seleccion = Me.lst_ptl.ListIndex + 1
'Recorro el listbox
For i = 1 To Me.lst_ptl.ListCount
    'Si el elemento del listbox NO coincide con el elemento seleccionado lo añado al listbox de destino
    If i <> seleccion Then
    
        Me.lst_ubic_dest.AddItem Me.lst_ptl.List(i - 1)
        
    End If

Next i

Con eso añado al listbox destino cualquier elemento que no esté seleccionado.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.