Crear cuadro de selección múltiple con seleccionados en la columna "a"

[MontyVe]

Hola a tod@s,

Subo un ejemplo, como Pelusa92 me pedía y creo que a más de un@ le será de utilidad.

Saludos,

MontyVe

CuadroListaMultiple2.zip

[Antoni]

Interesante tu aporte, me he tomado la libertad de crear una versión para que, una vez seleccionados los elementos del Listbox, poder seleccionar la celda de destino antes de pulsar el botón Aceptar.

Private Sub CommandButton1_Click()

Dim lItem As Long, fila As Long


For lItem = 0 To ListBox1.ListCount - 1

  If ListBox1.Selected(lItem) = True Then

     ActiveCell.Offset(fila, 0).Value = ListBox1.List(lItem)

     fila = fila + 1

  End If

Next


For lItem = 0 To ListBox1.ListCount - 1

    ListBox1.Selected(lItem) = False

Next


End Sub

[/CODE]