Macro para listbox en formulario
Es posible crear varios listbox y que cada una de ellas haga referencia a una columna especifica, y que al utilizar la seleccion multiple dependiendo del valor estos se copien en un mismo libro
Dim matriz As Variant
Dim dato As Variant
Dim unicos As New Collection
Sheets("consolidado").Select
matriz = Range("H4", Range("H" & Rows.Count).End(xlUp))
On Error Resume Next
For Each dato In matriz
unicos.Add dato, CStr(dato)
Next dato
On Error GoTo 0
For Each dato In unicos
Me.ListBox1.AddItem dato
Next dato
Set unicos = Nothing
Erase matriz
end sub
