Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft VBA Excel - Testa se a célula a ser filtrada é a escolhida
Sub Celula_Visivel_Filtro_modo()
Dim bHidden As Boolean
With Plan1
If .FilterMode = True Then
bHidden = .Range("A5").EntireRow.Hidden
MsgBox "O filtro do conteudo Range(A5) é..:" & vbCrLf & _
"isto é,conteudo de A5 não foi selecionado para filtrar " & vbCrLf & bHidden
End If
End With
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA, sozinho, praticando com os produtos didáticos Saberexcel