Boa tarde!!

Use a pesquisa eu mesmo tenho alguns exemplos que podem ser adaptáveis.

No teste que fiz seu apagar, está OK
Att

1)Não havia atentado a isso, mas aparentemente o filtro avançao considera tudo que inicia com o dado do filtro, se puser "C" tambem viara tudo, já como "T" nada e mostrado.
2) Para apagar tudo altere de : Selection.Contents (esse e para apagar os dados da celula) para:Selection.Clear.
3) Não entendi? Pode fornecer mais detalhes?

Olá Reinaldo,

1) Não há forma de contronar esse problema? EU preciso mesmo filtrar só o COTS. Como poderei resolver isso?
2) Está resolvido
3) Se inserir na base de dados o próximo cliente - "127" e seguintes dados, o filtro não retorna. Preciso tornar esse processo dinâmico. Quero inserir clientes e que filtro devolva sempre tudo, de acordo com o critério. E o mesmo ao apagar. Estou-me fazendo entender?

Miguel

1) Como disse não havia ainda atentado a essa caracteristica, carece de uma pesquisa maior, mas talvez seja preciso alterar a rotina.

3) Para manter a range dinamica use:

Sub Filtrar()
Dim lRow As Long
lRow = Sheets("Base Dados").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Range("G1:G2").Select
    Sheets("Base Dados").Range("A1:D" & lRow).AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("G1:G2"), CopyToRange:=Range("A1:D1"), Unique:=False
End Sub

Sub Apagar()
Dim uRow As Long
uRow = Sheets("Filtro").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    Range("A2:D" & uRow).Select
    Selection.Clear
End Sub

Segue o modelo adaptado. Deste modo, já se encontra bem próximo daquilo que pretendo. Acha que devo fazer alguma melhoria a nível de VBA?

Relativamente ao ponto 1, não consigo encontrar solução.

Boa noite!!

Veja se te ajuda...
http://www.sendspace.com/file/iv1v2q

Att

Vivendo e aprendendo, creio que o proposto pelo colega Alexandre resolve o problema do primeiro item.

Valeu Alexandre. Deu uma grande ajuda.

O único problema é que isso pode gerar confusão no pessoal que utilizar arquivo. Mas se for unica maneira de fazer este filtro, valeu mesmo

Muito Obrigado pela vossa ajuda.

Miguel, isso pode ficar "invisivel" à quem for utilizar o arquivo.

Basta fazer a seleção do filtro em uma celula (sem o valor de igual), veja no exemplo a macro "olha" l6:l7; e a seleção é feita em J13

Apesar de ja estar como resolvido, segue mais uma sugestão, onde não utilizamos a formula na Celula, mas sim com a condição na rotina e AutoFilter pelo Campo e destinando o resultado para outra aba.

Depois vou ver se encontro, eu tinha um exemplo onde utilizamos todos os criterio, assim que encontrar eu anexo, alias pelas sugestões postadas aqui, acredito que merecem serem colocadas na Bibiloteca.

[]s

Foram todos espetaculares na ajuda que me deram.

Um muito obrigado:
Alexandre
Reinaldo
Mauro Coutinho

Melhores cumprimentos. É um orgulho pertencer a este forum.