Marcio, utilizando o filttro avançado você pode realizar o que quer sem precisar do VBA, mas se pretende por VBA, de uma olhada neste exemplo disponibilizado no site da Contexture se ajuda, onde fiz algumas adaptações.

Filtrar dados para outra ABA
Anexo atualizado em 18/11/2014

abraços

Caro Mauro, esta tua dica foi muito boa, mas se eu quiser gerar outro arquivo.xls ao invés de atualizar uma planilha dentro do mesmo arquivo. Como ficaria ? Obrigado.

Marcio, para realizar o Filtro para uma nova Pasta (Arquivo.xls), usando este mesmo exemplo que anexei, acrescente a rotina abaixo e associe a um botão.

Sub FiltroNewWkB()
Dim wsOrigem As Worksheet

Set wsOrigem = Sheets("Orders")
           
'Cria uma nova Pasta
Set Wkb = Workbooks.Add
    'Nomeia a Aba
    With ActiveSheet
        .Name = "filtrados"
        .Range("A1").Select
    End With

        'Aplica o Filtro Avançado e Copia para a ABA "filtrados"
        'do novo WB
        wsOrigem.Range("Database") _
            .AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=wsOrigem.Range("G1:H2"), _
            CopyToRange:=ActiveSheet.Range("A1"), Unique:=False
            
            Range("A1").Activate
                
            'Ajusta a largura das colunas
            ActiveSheet.Columns("A:D").AutoFit
End Sub

É criado uma nova pasta e o filtro é transportado para o mesmo.

abraços

Caro Mauro conforme voce orientou coloquei esta rotina no exemplo anterior associando a um botão. Quando executei, deu erro : variável Wkb não definida. Defini esta variável assim : Dim Wkb = Workbooks, e agora deu outro erro : tipos incompátiveis. Desculpe mas estou iniciando no VBA, talvez não seja esta definição. Abraços.

Marcio, segue o exemplo.

Filtrar para Nova ABA ou Nova Pasta
Anexo Atualizado em 18/11/2014

abraços

Caro Mauro conforme voce orientou coloquei esta rotina no exemplo anterior associando a um botão. Quando executei, deu erro : variável Wkb não definida. Defini esta variável assim : Dim Wkb = Workbooks, e agora deu outro erro : tipos incompátiveis. Desculpe mas estou iniciando no VBA, talvez não seja esta definição. Abraços.

Marcio, não deu para eu editar minha msg anterior, então só para explicar o porque do erro que mencionou, é que como fiz em um novo módulo, não utilizei a instrução "Option Explicit", o que força a Declaração de Variáveis, então neste novo exemplo que anexei, não tem Option Explicit.
No modelo que colou a rotina, a Declaração da Variável correta é :
Dim Wkb As Workbook
Então se adicionar a mesma não terá erro.

abraços

Muito Obrigado Mauro, funcionou corretamente, e atendente a minha necessidade. Abraços

Pôxa, não estou conseguindo abrir as planilhas dos exemplos...

Pôxa, não estou conseguindo abrir as planilhas dos exemplos...

Danilo, os arquivos estavam corrompidos, já atualizei, é só baixar.

abraços

Pôxa, não estou conseguindo abrir as planilhas dos exemplos...

Danilo, os arquivos estavam corrompidos, já atualizei, é só baixar.

abraços

Hêee.!!!

Agora sim.! Abriu perfeitamente.

Para mim, os exemplos estão perfeitos, porém muitos complexos, eu preciso de algo parecido porém bem mais simples.

Exemplo:
Tenho uma tabela de contatos, c/ colunas de: NOME, ENDEREÇO, CIDADE, e nas linhas os respectivos dados.
Preciso apenas que, filtre as CIDADES e crie um novo ARQUIVO.XLS para cada cidade filtrada. Só isso.!

Obs.: Poderia até existir uma célula de referência onde informaria a cidade a ser filtrada, como critério p/ o filtro. E cada Novo ARQUIVO.XLS já fosse gerado com o nome da Cidade filtrada. Maz para mim estes dois seriam indiferente.

Eu cinceramente não estou conseguindo adaptar os arquivos de exemplos para o que eu preciso.

Abraços.!

Mauro
Haveria possibilidade de se enviar os dados filtrados pra uma pasta já existente?

Permita-me...

Assim dá.

Sub FiltroNewWkB()
Dim wsOrigem As Worksheet

Set wsOrigem = Sheets("Orders")
           
'Abre a pasta
Set Wkb = Workbooks.Open("C:Documents and SettingsWindows XPDesktopPasta2.xls")

    'Nomeia a Aba
    With ActiveSheet
        .Name = "filtrados"
        .Range("A1").Select
    End With

        'Aplica o Filtro Avançado e Copia para a ABA "filtrados"
        'do novo WB
        wsOrigem.Range("Database") _
            .AdvancedFilter Action:=xlFilterCopy, _
            CriteriaRange:=wsOrigem.Range("G1:H2"), _
            CopyToRange:=ActiveSheet.Range("A1"), Unique:=False
            
            Range("A1").Activate
                
            'Ajusta a largura das colunas
            ActiveSheet.Columns("A:D").AutoFit
    ActiveWorkbook.Close SaveChanges:=True 'fecha e salva
End Sub

Funcionou legal
vlw joséA

Vlw,

Mas, os méritos são do Mauro.