Macro para executar filtro. Filtrar processo por dígito.

=CONT.SE(E$2:I$2;DIREITA(SUBSTITUIR(EXT.TEXTO(C12;4;4);0;"&quot)+0)

 

Sub FiltraPorDígitos()

   Application.ScreenUpdating = False

   On Error Resume Next

   ActiveSheet.ShowAllData

   On Error GoTo 0

   [B:B] = ""

   Range("B12:B" & Cells(Rows.Count, 3).End(3).Row).Formula = _

     "=COUNTIF(E$2:I$2,RIGHT(SUBSTITUTE(MID(C12,4,4),0,"""&quot)+0)"

   [B11:F11].AutoFilter 1, ">0"

   [B:B] = ""

 End Sub

 

Desculpe, mas não vou assistir vídeos.

• ativar Filtro, no intervalo de dados > clicar na seta apontada para baixo no cabeçalho do intervalo de dados > selecionar Filtros de Texto > escolher “Contém” > clicar em “Ou” e selecionar novamente “Contém”, na janela > digitar o dígito com tracinho (que consta no processo) seguido ou não de zero, conforme o caso, como, por ex, “40-“, “600-“ etc.
  

• a execução da macro trouxesse uma lista de processo, filtrada segundo o dígito escolhido, do mesmo modo que o resultado obtido pelo recurso Filtro, no menu Dados, acima mencionado;
  
• o tracinho constante da macro já viesse incluso no código da macro, a fim de evitar digitá-lo;
  
• a macro considerasse apenas o número que viesse antes do tracinho. Se, por outro lado, houver um ou mais zeros antes do tracinho, o dígito será o número imediatamente anterior ao zero ou à sequência de zeros, pois desconsideramos o(s) zero(s) antes do hífen (-).
  
• se, possível, que a macro executasse a filtragem dos processos aplicando simultaneamente todos os dígitos escolhidos, a fim de evitar filtrar um dígito por vez.
  

1. fórmulas - estão corretos os resultados das fórmulas empregadas na opção manual, basta agora você aplicar Dados | Filtro conforme eu descrevi antes, que você obterá o resultado desejado.

Obs. esqueça o bendito tracinho, os zeros, o 40-, o 600-, etc, etc, etc, ...

Em seguida execute a macro que você obterá o resultado desejado.

• ao executar a macro, ela está deletando o cabeçalho em B11 (e as demais células a partir de B12 também ficam limpas); e
  
• ao limpar o filtro na coluna B, o filtro, realmente, é desfeito; porém aparece, nessa coluna, algumas células com o número “0” (o que acontece quando não há correspondências com os valores em E$2:I$2). Detalhe: apenas nessas células com o caractere “0” é que aparece a fórmula que você me sugeriu no post#5.
  

• não deletasse o cabeçalho em B11; e
  
• ao limpar o filtro na coluna B, que aparasse os caracteres “0” e “1”, inclusive a fórmula acima citada, pois, dessa maneira, posso eventualmente tentar tratar essas respostas (“0” e “1”) com uma fórmula SE, ou mesmo utilizar esses resultados como alternativa para aplicar o filtro manual na coluna B, o que parece ser uma boa opção ter uma segunda forma para filtrar.
  

ncezarcf disse:

Pois bem, feitas essas observações, gostaria que a macro:
não deletasse o cabeçalho em B11; (no arquivo que você anexou não havia conteúdo em B11 )
ao limpar o filtro na coluna B, que aparasse os caracteres “0” e “1”, inclusive a fórmula acima citada, pois, dessa maneira, posso eventualmente tentar tratar essas respostas (“0” e “1”) com uma fórmula SE, ou mesmo utilizar esses resultados como alternativa para aplicar o filtro manual na coluna B, o que parece ser uma boa opção ter uma segunda forma para filtrar.
Utilize a versão abaixo no lugar da anterior, ela atende às duas demandas acima.


GuimeM, além dessas solicitações, gostaria também, se possível, de uma sugestão funcional, prática e estética para inserir (ou escolher os dígitos desejados), a fim de retirar os valores do intervalo E$2:I$2. É que não me parece muito interessante eles ficarem visíveis na frente do projeto.
Ok, elabore a nova forma e os novos recursos que você deseja utilizar para escolher os dígitos, coloque-os em um arquivo com as necessárias instruções de uso e anexe aqui no fórum, assim faremos os ajustes no código.

Utilize a versão abaixo no lugar da anterior, ela atende às duas demandas acima.

Caso lhe seja útil, segue um código para desaplicar o Filtro, assim todos os registros serão reexibidos e as setinhas permanecerão em B11:F11.

dica - coloque acima da linha 11 os botões para executar os códigos assim eles não serão ocultados ao aplicar o Filtro.

Ok, elabore a nova forma e os novos recursos que você deseja utilizar para escolher os dígitos, coloque-os em um arquivo com as necessárias instruções de uso e anexe aqui no fórum, assim faremos os ajustes no código.

ncezarcf disse:

Sim, sim! Já havia configurado os botões para mantê-los sempre visíveis e sem alterar a forma.
No último arquivo que você enviou os botões caíram abaixo da linha 11 de novo. Talvez o arquivo tenha vindo por uma estrada com buracos na pista e por isso os botões caíram.


É que a fórmula SE não está funcionando corretamente. Parece que ela é incompatível com as ferramentas de Controles de formulário.
As fórmulas não têm relação direta com os Controles! Ainda, fórmulas SEMPRE funcionam corretamente. Elas podem não retornar os resultados que você gostaria, mas isso se deve a erros na construção e não a erros no funcionamento.
Assim, nesta sua fórmula =SE(G4="VERDADEIRO";1;"") >>> o resultado VERDADEIRO em G4 é Booleano e não texto, então na fórmula deve estar sem aspas >>> =SE(G4=VERDADEIRO;1;"")
A sua fórmula melhorada >>> =SE(G4=VERDADEIRO;F4;"") >>>assim, ao arrastar não precisa editar uma por uma para colocar 1, 2, 3, ..., 9.
Segue uma versão simplificada que recomendo >>> =F4*G4 >>> cole em H4 e arraste até H12.


Estou enviando um novo arquivo ...
Corrija as fórmulas em H4:H12, conforme comentei acima, em seguida execute o código abaixo V3 no lugar do anterior.

Sub FiltraPorDígitosV3()

  On Error Resume Next

  ActiveSheet.ShowAllData

  On Error GoTo 0

  Range("B12:B" & Cells(Rows.Count, 3).End(3).Row).Formula = _

  "=COUNTIF(Dígitos!H$4:H$12,RIGHT(SUBSTITUTE(MID(C12,4,4),0,"""&quot)+0)"

  [B11:F11].AutoFilter 1, ">0"

End Sub