none
Validação do Filtro RRS feed

  • Pergunta

  • 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

    segunda-feira, 31 de julho de 2017 18:37

Todas as Respostas

  • 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


    • Editado Renato MDSP terça-feira, 13 de março de 2018 11:54
    segunda-feira, 12 de março de 2018 01:35