Boa noite!!
Poste seu arquivo.

Ao anexar mande o arquivo COMPACTADO!!

Deixe bem detalhada da onde para onde oque para que.

Boa tarde,

Segue o banco de dados.
Gostaria que o filtro importasse os dados da aba BD, e exibisse o resultado da consulta, na aba CONSULTA.
Gostaria que fossem exibidas no resultado, somente as seguintes colunas: A, D, E, K, O, P, R, T.
O Critério de busca seria a coluna E (cnpj do devedor).
Obrigado pela ajuda.

Boa tarde!!

Baixe o anexo.

Tem uma seta suspensa (guia "CONSULTA"), para selecionar o CNPJ, após isso será retornado as colunas específicas.

Att

Muito bom este exemplo Alexandre, por isso que adoro o VBA temos inumeras opções.

Segue mais uma variação.
De inicio utilizei o "Gravador de Macros", uma vez que o recurso "Filtro Avançado" nos permite fazer o que o leandro pediu sem precisar de VBA, feito isto foi só efetuar alguns ajustes, nomeando os Ranges de Origem e Saida.
Aproveitei e adicionei a rotina que criar e recria os Ranges Nomeados, assim quando alterarmos o BD rodamos e recriamos os endereços dinamicamente, criei uma Coluna para a filtragem somente dos CPFs Únicos e fiz a validação na Celula para selecionar um CPF, apos criada a lista com os CPF únicos, estes são classificados em ordem crescente, e por ultimos a rotina para limpar a consulta anterior.
Poderiámos ter reduzido as rotinas, juntando-as, mas preferi deixar separadas para uma melhor compreensão.

leandro, reduzi o seu modelo para ficar mais leve e poder entender melhor o que foi feito e depois acrescenta-la no forum Biblioteca para servir de exemplo a outros que procuram por recursso semelhante.

Anexo atualizado em 07/10/2015

Faça os testes e qq duvida, retorne.

[]s

Obrigado aos amigos AlexandreVBA e Mauro Coutinho pela valiosa ajuda, que será muito útil em meu projeto.

Mauro, adaptei a macro "FiltraPorCpf" que vc criou para meu caso concreto e funcionou perfeitamente.

Tenho a seguinte dúvida: É possivel adaptar esta macro para que a pesquisa (filtro avançado) seja feita de outro ARQUIVO e não apenas outra ABA NO MESMO ARQUIVO?

Desde já agradeço

Leandro, tem sim como jogar em outro arquivo, assim que possivel monto o exemplo, mas pesquise no forum que tem um modelo que poste que faz extamente isto, filtra para um novo arquivo.

[]s

Leandro, relendo sua questão, me atentei no seguinte :

Você quer dizer 2 arquivos separados, com a criação de um terceiro, seria isto ?
Exemplo :
Arq_1 = Banco de Dados
Arq_2 = onde Digitamos o CPf
Arq_3 = Resultado da Filtragem

Digito o CPF no Arq_2, Filtro baseado no BD Arq_1 e o resultado da filtragem, crio o 3° arquivo (Arq_3).

Se for isto é um pouco mais complicado, mas se for para filtrar deste arquivo que enviei para um terceiro é mais simples.

Aguardo retorno.

[]s

Bom dia Mauro,

Não são 3 arquivos não

Apenas 2, um que já é o banco de dados (BD) e um outro (que pode ser chamado de CONSULTA) que vai ser onde vai digitar o critério e aparecer o resultado do filtro.

Isso é para diminuir um pouco o numero de abas do BD, que já tem muitas no meu projeto, e evitar que os dados possam ser de alguma forma, danificados.

Bom dia!!

Sendo que a ajuda do Mauro e a Minha foi valiosa, click na mãozinha!!

Veja...
viewtopic.php?f=9&t=3784

Att..

OK Alexandrevba,

já agradeci a vc e ao Mauro Coutinho.

Mas nao encerrei o tópico pq ainda tô apanhando feio pra fazer a consulta de outro arquivo...

Boa tarde!!

Leandro, obrigado pelo retorno e sinta se a vontade, desde que não se esqueça..
Abraços e at+++
Att

leandro, segue o modelo de Filtragem com dois arquivo :
Arquivo de Consulta, e
Arquivo com o BD dos CPFs.

Veja as Observações na Rotina, conforme solicitou, a partir do Arquivo "Consulta_CPF.xls", filtramos com os CPFs que se encontram no arquivo "BD_CPF.xls".

O anexo contem os dois arquivos, descompacte no mesmo diretorio, para deixar o arquivo "BD_CPF.xls" em diretorio diferente, veja a obs na rotina "Sub DefinePlanilhaDados()".

Anexo atualizado em 07/10/2015
Tags para Pesquisa
Filtro Avançado : Filtrar a partir de um segundo arquivo
AdvancedFilter To Another Workbook

Faça os testes e qq duvida retorne.

Obs: Fiz no excel 2003, pq meu 2007 deu problema, mas faça os testes e salve na v2007 para ver se não tem nenhum problema, depois que eu reinstalar a v2007 farei os testes tambem.

[]s

Olá Mauro,

Funcionou perfeitamente após algumas adaptações, entretanto fiquei com as seguintes dúvidas:

O meu arquivo banco de dados chama-se: BANCO DE DADOS.xlsm, e nao consegui fazer funcionar com esse nome, o que será que ocorre? Será o "espaço" entre os nomes do arquivo? Tive que renomeá-lo para BANCO.xlsm e ai após alterar tb o codigo funcionou legal, mas será que tem como funcionar com o nome original BANCO DE DADOS.xlsm, pois outras planilhas já buscam dados nele por esse nome.

Eu retirei a COMBO onde apareciam os nomes dos CPFs cadastrados e deixei em branco, para inserir o CPF a ser procurado digitando-o. Ai ocorre que, quando se busca um CPF que nao está cadastrado, por óbvio nada aparece no resultado do filtro, mas nessa situação, o botão de LIMPAR deixa de funcionar e nao APAGA o campo onde digita-se o criterio da busca, tem como corrigir?

Mais uma vez obrigado.

Leandro, tirando esta parte "após algumas adaptações", que não sei quais foram, as outras obs não intereferem em nada, reinstalei o 2007 e fiz os testes conforme sitou e funcionou corretamente.

O meu arquivo banco de dados chama-se: BANCO DE DADOS.xlsm, e nao consegui fazer funcionar com esse nome, o que será que ocorre?
Salvei o arquivo "BD_CPF.xls" com o nome e a extensão que citou e não tive problema, é dado alguma msg de erro ? Verificou se ajustou todas as referencias a este arquivo ?

o botão de LIMPAR deixa de funcionar e nao APAGA o campo onde digita-se o criterio da busca, tem como corrigir?
Para acertar isto adicione a linha em negrito na rotina LimpaResultados :

If Range("A" & sRowConsulta).Value = "" Then
Range("A2").ClearContents
Exit Sub
End If

Abaixo a linha que alterei no teste com o nome do arquivo que citou :
Alterei de :
ARQUIVO_DADOS = "BD_CPF.xls"
para
ARQUIVO_DADOS = "BANCO DE DADOS.xlsm"

Como não tive problemas verifique melhor se não digitou nada errado, ou, nas adaptações que fez não alterou as referencias à aba BD e os ranges nomeados.

[]s