Página 1 de 1

Validação de AutoFilter

Enviado: 01 Ago 2017 às 10:05
por gsinhorini
Olá Muito bom dia!
Sou novo com vba, comecei não tem 2 meses. Estou desenvolvendo uma planilha totalmente mecanizada onde o usuário clica nos botões e executa os procedimentos.
Eu estou com um problema, estou fazendo um filtro para procurar alguns pedidos que estão com o status executados, nessa parte está tudo certo o problema é quando o filtro retorna em branco, eu preciso avisar ao usuario que não existe pedidos executado. Já tentei varia coisas mas nada deu certo, será que alguém pode me ajudar?
Abaixa é o código que estou utilizando.
Código: Selecionar todos
ActiveSheet.Range("$C$1:$BK" & UltimaLinhaBD).AutoFilter Field:=61, Criteria1:="SERVIÇO EXECUTADO"
    
    If Not ActiveSheet.Range("$C$1:$BK$" & UltimaLinhaBD).AutoFilter(Field:=61, Criteria1:="SERVIÇO EXECUTADO") = True Then
        MsgBox "Não Existe Peido em Execução"
        If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
        Sheets("Pedidos_Executados").Select
    Else
Muito obrigado pela ajuda.

Atenciosamente
Guilherme Sinhorini

Re: Validação de AutoFilter

Enviado: 01 Ago 2017 às 10:11
por alexandrevba
Bom dia!!

Eu recomendo que você poste seu arquivo modelo contendo os dados de exemplo e o código que está usando.
Para anexar um arquivo, click em responder, na parte de baixo tem Opções e Adicionar um anexo, click em Adicionar um anexo, escolha o arquivo.
Att

Validação de AutoFilter

Enviado: 01 Ago 2017 às 10:31
por gsinhorini
Olá Alexandre, muito bom dia!
Eu fiz uma outra validação no código e funcionou.
Eu queria saber se tem como verificar se o AutoFilter está como vazio facilitaria.

Muito obrigado pela ajuda.

Re: Validação de AutoFilter

Enviado: 01 Ago 2017 às 14:08
por alexandrevba
Boa tarde!!

Tente usar o debug.
Use uma célula ou uma Msgbox para mostrar o resultado!!
https://usuariosdoexcel.wordpress.com/2013/08/12/0197/
http://www.excel-easy.com/vba/examples/debugging.html

Att