Hola expertos como coger datos de un listbox y realizar autofiltro en excel con macros.

Para hacer autofiltros con los datos de un listbox, lo primera es ponerle la propiedad multiselect al listbox para que puedes seleccionar varios valores al mismo tiempo y después programarlo en vba. Yo he hecho el siguiente ejemplo:

-Tengo una tabla de 5 columnas con datos escrita en el rango A1:¿E?.

-Quiero filtrar varios valores de la columna A mediante un listbox que he dibujado en la propia hoja en el que elegiré los valores

Estas son las macros necesarias:

Una para llenar el listbox y otra para ejecutar el filtro con los valores elegidos del listbox

Sub llena_listbox()
Range("a2").Select
Do While ActiveCell.Value <> ""
If InStr(valores, ActiveCell) = 0 Then
valores = valores & "," & ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Loop
valores = Mid(valores, 2, Len(valores) - 1)
valores = Split(valores, ",")
For x = 0 To UBound(valores)
ActiveSheet.ListBox1.AddItem valores(x)
Next
End Sub
Sub hacer_filtro()
For p = 0 To ActiveSheet.ListBox1.ListCount - 1
If ActiveSheet.ListBox1.Selected(p) = True Then
lista = lista & "," & ActiveSheet.ListBox1.List(p, 0)
End If
Next
lista = Mid(lista, 2, Len(lista) - 1)
lista = Split(lista, ",")
Range("a1").AutoFilter field:=1, Criteria1:=lista, Operator:=xlFilterValues
End Sub

muchas gracias.Lo estaba intentando pero con lo que me das ya termine de solucionarlo.

como haría si al momento de realizar el filtro de 4 valores que se ingresan por caja de texto no encuentra ningún valor filtrado(osea puede ser que se equivocaron al digitar algún código como suele suceder).

Entonces como validaría eso(que no me bote la hoja sin ningún dato filtrado sino que regrese al formulario y me diga que no encontró ningún dato,"vuelva a ingresar" algo asi mas o menos.

Y que salga de la función. que no continué con el proceso ya que después del filtro llamo varios módulos.

Discupa la molestia.

Muchas gracias