Anónimo
Como saber si el autofiltro esta activo
Quisiera saber ¿cómo puedo averiguar si en un rango de celdas esta el autofiltro activado?
Mi problema es que cuando ejecuto una macro activando el autofiltro, cuando lo intentan hacer de nuevo obviamente solo lo desactiva.
Gracias
Mi problema es que cuando ejecuto una macro activando el autofiltro, cuando lo intentan hacer de nuevo obviamente solo lo desactiva.
Gracias
{"Lat":-12.1110610798041,"Lng":-76.9945907592773}
1 Respuesta
Respuesta de hugolaza
1
Sub ActivarFiltro()
If ActiveSheet.FilterMode = True Then
MsgBox "AutoFiltro Existe y esta Activado"
Exit Sub
End If
If Not ActiveSheet.AutoFilter Is Nothing Then
MsgBox "AutoFiltro Existe, pero no esta activado"
Exit Sub
End If
MsgBox "AutoFiltro NO existe. Se colocara Filtro sin activar"
Range("A1").AutoFilter
End Sub
Rango A1 es donde empieza tu base a filtrar. Si no es así, cambia esta referencia.
Activesheet es la hoja activa.
If ActiveSheet.FilterMode = True Then
MsgBox "AutoFiltro Existe y esta Activado"
Exit Sub
End If
If Not ActiveSheet.AutoFilter Is Nothing Then
MsgBox "AutoFiltro Existe, pero no esta activado"
Exit Sub
End If
MsgBox "AutoFiltro NO existe. Se colocara Filtro sin activar"
Range("A1").AutoFilter
End Sub
Rango A1 es donde empieza tu base a filtrar. Si no es así, cambia esta referencia.
Activesheet es la hoja activa.