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