Filtrar varios criterios desde Listbox y pasar resultado en otra hoja

[DiegoLG]

Buenas tardes amigos, un gusto saludarlos de nuevo!

Fíjense que ahorita estoy trabajando con una hoja de excel donde necesito copiar uno o varios criterios y pasarlos en otra hoja, para no utilizar el autofiltro de excel y no copiar por partes, se me ocurrio realizar esos filtros desde un Listbox, a continuación explico.

1. Para empezar necesito que en la columna G de la hoja 1, cargue en listbox los datos pero que no se repitan (Folios únicos) y despues (Cabe mencionar que los datos de esa hoja son variables, pueden ser 1 o hasta 10,000 registros).

2. que me de la opción de seleccionar cual quiero copiar y pasar en la hoja de resultados (Tipo multiselect).

 

Adjunto archivo de ejemplo.

 

Agradezco la atención prestada.

saludos cordiales.

 

Libro1.xlsm

[DiegoLG]

Buena tarde a todos, sigo con este pendiente, ahorita agregue estos códigos:

Para cargar los datos:

Private Sub CommandButton1_Click(): On Error GoTo Único
ListBox1.MultiSelect = fmMultiSelectMulti
Dim celda As Range

For Each celda In Hoja1.Range("G2", Hoja1.Range("G" & Rows.Count).End(xlUp))
ListBox1.Text = celda.Value
Next celda
Exit Sub

Único:
ListBox1.AddItem celda.Value
Resume Next

End Sub

Para filtrar:

Private Sub CommandButton2_Click()
Dim lItem As Long
Dim I As Integer

I = 0
For lItem = 0 To ListBox1.ListCount
If ListBox1.Selected(lItem) = True Then

Hoja1.Range("A2:BJ10000").AutoFilter Field:=7, Criteria1:=ListBox1.List(lItem)
I = I + 1
ListBox1.Selected(lItem) = False
End If
Next
End Sub

Sin embargo, al filtrar, solo me esta filtrando un valor, ya que si selecciono 1 o mas de 2 criterios no me esta filtrando...

Espero alguien pueda ayudarme, adjunto el archivo de avance.

 

Saludos,

Copia de Libro1.xlsm

[DiegoLG]

Ya no

[DiegoLG]

Ya no necesito la ayuda, ya logré realizar..

Doy por tema solucionado. 

Saludos.

Diego