Este fórum está sendo desativado

[jpmcvs]

Boa Noite,
Possuo uma macro onde são feitas diversas validações, no final, são aplicadas algumas condições em filtro dependendo da seleção do usuário, o que pode ocorre é que o filtro seja removido manualmente e a macro não seja executada devido a ausência do filtro, logo preciso de uma linha lógica onde será validada a existência do filtro, e se ele não existir que seja configurado antes da aplicação dos filtros, consegui algumas coisas, mas nenhuma funcionou, não consegui fazer a macro enxergar se existe filtro ou não, ela sempre remove o filtro se ele existe e insere se não.

[Henrique]

jpmcvs,

Bom dia!

Como sugestão, por que você não refaz o filtro pelo VBA ao invés de testar se ele está ativo ou não. Desta forma teria certeza que o filtro estará ativo e da forma que precisa.

Espero ter ajudado.

[alexandrevba]

Bom dia!!

Tente

Código: Selecionar todos

Sub AleVBA_522()
    If Worksheets("Plan1").FilterMode = True Then
        MsgBox "Filtro ativo"
    Else
        MsgBox "Filtro desativado"
    End If
     
End Sub

Att

[jpmcvs]

Boa Tarde Alexandre, o código funcionou em partes, não sei por qual motivo, mas ele funcionou a partir do momento que eu usei If Not, ao invés de somente usar If, o restante do contexto foi o exato como postou, mito obrigado pelo Auxílio.