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

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

Ya no

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

Doy por tema solucionado. 

Saludos.

Diego