Notifications
Clear all

Critério com OU para abrir USERFORM

3 Posts
3 Usuários
0 Reactions
1,022 Visualizações
(@eltonc09)
Posts: 0
New Member
Topic starter
 
    ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=138, Criteria1:="Ativo"
    ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=136, Criteria1:= _
        "<=20"
    ActiveSheet.ListObjects("Tabela1").Range.AutoFilter Field:=137, Criteria1:= _
        "<=20"

Boa noite pessoal, estou desenvolvendo um programinha, e surgiu o seguinte problema:

- Para uma Userform ser aberta, tenho que obrigatoriamente na Range.AutoFilter Field:=138 atender o critério "Ativo"; e se na 136 OU 137 o valor for menor que 20 também abrir a USERFORM.

Da forma que está acima, ela só está abrindo se forem atendidos todos os critérios, mas como eu disse se o critério 136 OU 137 for atendido quero que abra a USERFORM.

Alguma sugestão?

 
Postado : 24/01/2018 10:23 pm
(@klarc28)
Posts: 0
New Member
 

Crie seu próprio filtro:

https://www.youtube.com/watch?v=V6fICcKDmic

 
Postado : 25/01/2018 4:08 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite klarc

Você já logou no fórum e não acessou a MP que te enviei.

Essa mensagem será apagada, portanto, não responda aqui.

[]s

Patropi - Moderador

 
Postado : 25/01/2018 6:10 pm