Hola por favor me pueden ayudar con este tema de quitar filtros en tablas que se encuentran en difeentes holas entre a este foro y encontre un codigo que quita filtros en las hojas y no me funciona cuando con tablas

el codigo que esta es el siguiente

Sub quitar_filtros()
For Each Hoja In Array("SALARIOS", "EQUIPO", "MATERIAL1")
    If Sheets(Hoja).AutoFilterMode Then Sheets(Hoja).AutoFilterMode = 0
Next
End Sub

 

Checa si esto te puede funcionar:

Sub Quita_filtros()
   Hoja1.ListObjects("Tabla1").ShowAutoFilterDropDown = False
    Hoja2.ListObjects("Tabla2").ShowAutoFilterDropDown = False
   Hoja3.ListObjects("Tabla3").ShowAutoFilterDropDown = False
End Sub

Ojo: el código que publicaste, esta referenciando a nombres de Hojas mas no a nombres de tablas

Saludos

Editado el el 25 de noviembre7 años por DiegoLG

Gracias

pero no funciona quita las viñeta del autofiltro pero no quita el filtro

Si hubieses subido tu archivo de ejemplo @leonardo contento fierro , se podría ayudar mejor y no tener que andar adivinando

Prueba con:

Sheets("tu nombre de hoja").Range("$A$2").AutoFilter Field:=1

Siendo "$A$2" la celda donde está la lista despegable filtrada

La idea es usando macros quitar los filtros de tablas que se encuentran en varias ejemplo a subir.xlsmejemplo a subir.xlsmhojas