Filtrar Datos con una Macro?

[Hola Diana

Como para aprender sugiero lo siguiente. En la pestaña Programador/Desarrollador activa la Grabadora de Macros, una vez activada activa el filtro de tu interés y deja marcadas solo las dos palabras que mencionas, ahora detén la grabadora. Entra al editor del VBA y mira el código generado.

Comentas

Abraham Valencia

Me genero el siguiente código:

Sub Macro1()
'
' Macro1 Macro
'

'
Range( _
"Tabla62632224252627282930313235363738394041424344454647484950515253545556575859606162636465666768697071727374757677345678910111213141516171819202122232425262728293031323334353637383940414243444546474[[#Headers],[CALIDAD RECEPCION]]" _
).Select
Selection.AutoFilter
ActiveSheet.ListObjects( _
"Tabla62632224252627282930313235363738394041424344454647484950515253545556575859606162636465666768697071727374757677345678910111213141516171819202122232425262728293031323334353637383940414243444546474" _
).Range.AutoFilter Field:=9, Criteria1:="<>"
End Sub

[Hola

¿Usas Excel 2016? De ser sí tu respuesta, pues debes descargar las últimas actualizaciones o la grabadora, y otras cosas, tendrán algunos errores.

Si usas otra versión, primero que nada al parecer algo obviaste y segundo, si ese es realmente el nombre de tu tabla, pues realmente no sé cómo lo obtuviste je je je

Mira este ejemplo:

ActiveSheet.ListObjects("Nombredetutabla").Range.AutoFilter Field:=9, Criteria1:= _
     "=Prioridad", Operator:=xlOr, Criteria2:="=Descuadre"

Comentas

Abraham Valencia

Lo estaba utilizando así a través de un botón, le agregue dos criterios más:

Private Sub CommandButton1_Click()
ActiveSheet.ListObjects("SEPTIEMBRE").Range.AutoFilter Field:=9, Criteria1:= _
"=PRIORIDAD", Operator:=xlOr, Criteria2:="=DESCUADRE", Criteria3:="=SIN DOCUMENTOS", Criteria4:="=VISADO"

End Sub

Me genera el siguiente error:

Sin ver tu archivo es complicado ayudarte.

Abraham Valencia

Listo en un momento lo subo en la nube

https://www.dropbox.com/s/70gleffufh0ryit/ARCHIVO%20EN%20BLANCO.xlsm?dl=0 

este es el link, el filtro necesito hacerlo en la columna I con las cuatros variables de la lista desplegable

[Hola

Cambia el nombre de tu tabla, es un exceso de caracteres ese nombre. Segundo ¿son solo esos cuatro valores y las celdas en blanco lo de la columna I? De ser sí tu respuesta, entonces lo que hizo tu grabado de macros era correcto ¿no lo llegaste a probar?

Abraham Valencia

En el nombre de la tabla te refieres a SEPTIEMBRE?. Los cuatro valores son los 4 de la columna I, a veces esta en blanco porque no se llena o no se requiere, por eso solo necesito filtrar las celdas que tengan esos 4 valores. La macro grabada no me funciono a través del boton.

Estimada, sin ánimo de ser malo, hay cuestiones de conceptos que debes de manejar muy bien para seguir usando el Excel a nivel macros. Algo para que se entienda que es una Tabla de Excel:

https://abrahamexcel.blogspot.com/2018/05/las-tablas-en-excel.html

"Septiembre" es el nombre de la hoja, no de la Tabla. Tu Tabla se llama: "Tabla62632224252627282930313235363738394041424344454647484950515253545556575859606162636465666768697071727374757677345678910111213141516171819202122232425262728293031323334353637383940414243444546474". ¿Por qué se llama así? No sé, quizá usaste datos de otra aplicación o libro y "algo" ocurrió.

Si usas esto:

Private Sub CommandButton1_Click()
ActiveSheet.ListObjects( _
    "Tabla62632224252627282930313235363738394041424344454647484950515253545556575859606162636465666768697071727374757677345678910111213141516171819202122232425262728293031323334353637383940414243444546474" _
        ).Range.AutoFilter Field:=9, Criteria1:="<>"
End Sub

 Pues funcionará. 

Abraham Valencia

Hola realice un documento nuevo y grabe la macro y me genero bien. Ya lo pude resolver. Mil gracias por compartir tu conocimiento