Este fórum está sendo desativado

[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!

[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]

[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")