Página 1 de 1

VBA para remoção de filtro individual

Enviado: 30 Set 2019 às 10:19
por WilliamPereira88
Bom dia pessoal!

Gostaria de uma macro para a remoção de um determinado filtro. Tenho a seguinte lista de nomes;

CAIO GOMES
CAIO PEREIRA
JOSE LOPES
JOSE MARIA
LUIZ COSTA
JULIO CEZAR

Gostaria apenas tirar o filtro para o nome JULIO CEZAR, porém a minha macro ativa todos os nomes ao invés de apenas retirar o JULIO CEZAR como o exemplo abaixo

ActiveSheet.Range("$B$6:$AD$112").AutoFilter Field:=17, Criteria1:=Array( _
"CAIO GOMES", "CAIO PEREIRA", "JOSE LOPES", "JOSE MARIA", "LUIZ COSTA", "="), _
Operator:=xlFilterValues

Obrigado!

Re: VBA para remoção de filtro individual

Enviado: 30 Set 2019 às 13:31
por osvaldomp
Experimente:
Código: Selecionar todos
ActiveSheet.Range("B6:AD6").AutoFilter Field:=17, Criteria1:="<>" & "JULIO CEZAR"

'ou se o nome estiver em B1
 ActiveSheet.Range("B6:AD6").AutoFilter Field:=17, Criteria1:="<>" & [B1]

VBA para remoção de filtro individual

Enviado: 30 Set 2019 às 13:37
por JulioMangilli
Para ajudar.
ActiveSheet.Range("$B$6:$AD$112").AutoFilter Field:=17, Criteria1:= "JULIO CEZAR"
ou
ActiveSheet.Range("$B$6:$AD$112").AutoFilter Field:=17, Criteria1:= Range("Celula com nome")