Validação do Filtro

Question

Olá Pessoal muito boa tarde!

Estou com um probleminha, estou tentando fazer uma validação caso o filtro esteja em branco, mas não está dando muito certo.

Alguém pode me ajudar.

Estou fazendo assim:

ActiveSheet.Range("$C$1:$BK" & UltimaLinhaBD).AutoFilter Field:=61, Criteria1:="SERVIÇO EXECUTADO"
    If ActiveSheet.Range("$C$1:$BK$" & UltimaLinhaBD).AutoFilter(Field:=61, Criteria1:="") Then
        MsgBox "Não Existe Peido em Execução"
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
        Sheets("Pedidos_Executados").Select
    Else

Answer 1

Você poderia verificar antes de filtrar se existe "SERVIÇO EXECUTADO"

If ActiveSheet.Range("BK:BK").Find("SERVIÇO EXECUTADO") Is Nothing Then
      MsgBox "Não Existe Pedido em Execução"
End If

---

Renato MDSP