Quitar filtros en tablas que esten en diferentes hojas

[leonardo contento fierro]

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

 

[DiegoLG]

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

[leonardo contento fierro]

Gracias

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

[Haplox]

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

[leonardo contento fierro]

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