Página 1 de 2

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

Enviado: Qua Dez 04, 2019 2:39 pm
por 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

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Sex Dez 20, 2019 5:03 pm
por srobles
Luis,

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

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Sex Dez 20, 2019 6:01 pm
por LuisPolidoro
Saulo boa tarde!
É exatamente o que eu precisava, vc acertou na mosca.
Muitíssimo obrigado pela ajuda. :D

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Sáb Dez 21, 2019 9:56 am
por LuisPolidoro
srobles escreveu:
Sex Dez 20, 2019 5:03 pm
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?

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Sáb Dez 28, 2019 3:21 pm
por 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.

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Seg Dez 30, 2019 7:59 am
por 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.

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Seg Dez 30, 2019 12:21 pm
por 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

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Seg Dez 30, 2019 1:07 pm
por LuisPolidoro
srobles escreveu:
Seg Dez 30, 2019 12:21 pm
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.

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Ter Jan 07, 2020 2:56 pm
por srobles
Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.

Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA

Enviado: Ter Jan 07, 2020 4:30 pm
por LuisPolidoro
srobles escreveu:
Ter Jan 07, 2020 2:56 pm
Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.
Ajudou muito Saulo! Muito agradecido.
Abraços