Sacar Filtro
Hola, necesitaría crear una macro que me saque el filtro que me creo un experto, esa macro pone todas las hojas de calculo con el filtro, ahora necesito una que me saque el filtro de todas las hojas
Esta es la macro que filtra:
For Each sh In Sheets
sh.Select
ActiveSheet.Range("A4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=""
Next sh
End Sub
Gracias
Esta es la macro que filtra:
For Each sh In Sheets
sh.Select
ActiveSheet.Range("A4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=""
Next sh
End Sub
Gracias
1 respuesta
Respuesta de Elsa Matilde
1
Reconozco esa rutina, aquí va la que los quita:
Sub quitafiltro()
For Each sh In Sheets
sh.Select
sh.Range("A4").Select
On Error Resume Next
If Selection.FilterMode = True Then
Selection.AutoFilter
End If
Next sh
End Sub
Saludos
Elsa
** Para aprender macros tus mejores opciones: Programación_Excel y 400MacrosPlus.
http://es.geocities.com/lacibelesdepunilla
Sub quitafiltro()
For Each sh In Sheets
sh.Select
sh.Range("A4").Select
On Error Resume Next
If Selection.FilterMode = True Then
Selection.AutoFilter
End If
Next sh
End Sub
Saludos
Elsa
** Para aprender macros tus mejores opciones: Programación_Excel y 400MacrosPlus.
http://es.geocities.com/lacibelesdepunilla
