CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]

[LuisPolidoro]

Boa tarde amigos!
Tenho uma planilha com meu Banco de Dados como segue:

Aba 1: CONSULTA
Aba 2: DADOS1
Aba 3: DADOS2

Na aba 1 (CONSULTA), eu escrevo os critérios para pesquisa na linha A2.
Com esses critérios, a busca será feita nas abas (DADOS1) e (DADOS2) , respectivamente.
Achando algum resultado na aba 2 (DADOS1), ele será copiado e colado na aba 1 CONSULTA a partir da linha A4.
Achando algum resultado na aba 3 (DADOS2), ele será copiado e colado na aba 1 CONSULTA a partir da última linha preenchida, ou a partir da linha A4 se não foi achado nenhum resultado na aba 2 (DADOS1).

Resumindo: Preciso de uma macro que consulte as duas abas de DADOS, copie e cole os resultados na aba de CONSULTA.

Na Planilha em anexo eu coloquei dois códigos usando o filtro avançado, deu o resultado que eu preciso, mas ficou muito esquisito.

Agradeço desde já se alguém puder me ajudar, estou pesquisando pra fazer essa planilha já tem alguns dias e não achei nada parecido.

Abraços

Luis Polidoro

[srobles]

Luis,

Veja se a forma que elaborei para realizar a consulta atende sua necessidade.

[LuisPolidoro]

Saulo boa tarde!
É exatamente o que eu precisava, vc acertou na mosca.
Muitíssimo obrigado pela ajuda.

[LuisPolidoro]

Luis,

Veja se a forma que elaborei para realizar a consulta atende sua necessidade.

Saulo bom dia!
Fiz algumas modificações para o meu uso e deu tudo certo. Depois acrescentei linhas nas abas e começou a dar um erro, vc poderia dar uma olhada pfvr?

[srobles]

Luiz,

Como não informou qual ou quais tipos de erros ocorreram, tentei otimizar toda a rotina.

Favor, teste e retorne ok?

Caso algum erro ocorra, favor informe qual Office utiliza e a descrição do erro.

[LuisPolidoro]

Bom dia Saulo!
Ainda continua dando erro.

Erro em tempo de execução '438':
O objeto não aceita esta propriedade ou método

Estou usando o Office Professional Plus 2016

Quando mando depurar aparece o seguinte código:
.AutoFilter.Sort.SortFields.Add2 Key:= _
Range("A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal

Espero que vc consiga resolver, vai me ajudar muito, obrigado novamente.

[srobles]

Luis,

Experimente alterar o trecho .Add2 para .Add apenas.
Caso não funcione, o que seria estranho, pois uso o mesmo Office (32bits), experimente remover o trecho
abaixo existente no módulo mdl_Funcoes, que, apenas classifica os dados retornados do menor para o maior.

Código: Selecionar todos

       .AutoFilter.Sort.SortFields.Clear
       .AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
         xlSortNormal
With ActiveWorkbook.Worksheets("CONSULTA").AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
End With

Aguardo retorno

[LuisPolidoro]

Luis,

Experimente alterar o trecho .Add2 para .Add apenas.
Caso não funcione, o que seria estranho, pois uso o mesmo Office (32bits), experimente remover o trecho
abaixo existente no módulo mdl_Funcoes, que, apenas classifica os dados retornados do menor para o maior.

Código: Selecionar todos

       .AutoFilter.Sort.SortFields.Clear
       .AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("A4"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
         xlSortNormal
With ActiveWorkbook.Worksheets("CONSULTA").AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
End With

Aguardo retorno

Saulo,
Alterei o trecho .add2 como vc disse e fiz alguns testes e não deu mais erro. Vou fazer outros testes e depois coloco como resolvido, pois parece que agora vc conseguiu resolver.
Muito obrigado pela paciência.

[srobles]

Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.

[LuisPolidoro]

Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.

Ajudou muito Saulo! Muito agradecido.
Abraços