Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA [RESOLVIDO]
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
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
- Anexos
-
- Consulta de Procedimentos Realizados-exemplo.rar
- (36.4 KiB) Baixado 205 vezes
Editado pela última vez por LuisPolidoro em Ter Jan 14, 2020 5:38 pm, em um total de 3 vezes.
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Luis,
Veja se a forma que elaborei para realizar a consulta atende sua necessidade.
Veja se a forma que elaborei para realizar a consulta atende sua necessidade.
- Anexos
-
- Consulta de Procedimentos Realizados-exemplo.zip
- (50.62 KiB) Baixado 196 vezes
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Saulo boa tarde!
É exatamente o que eu precisava, vc acertou na mosca.
Muitíssimo obrigado pela ajuda.
É exatamente o que eu precisava, vc acertou na mosca.
Muitíssimo obrigado pela ajuda.
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
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?
- Anexos
-
- Consulta de Procedimentos Realizados-exemplo-2.rar
- (941.67 KiB) Baixado 199 vezes
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
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.
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.
- Anexos
-
- Consulta de Procedimentos Realizados-exemplo-2.zip
- (962.77 KiB) Baixado 200 vezes
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
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.
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
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.
Aguardo retorno
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
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Saulo,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.Aguardo retornoCó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
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
Luiz,
Que boa noticia!!!
Fico satisfeito em saber que pude ajudar.
Que boa noticia!!!
Fico satisfeito em saber que pude ajudar.
- LuisPolidoro
- Acabou de chegar
- Mensagens: 8
- Registrado em: Sex Mai 17, 2013 9:40 am
Re: CONSULTAR DADOS EM DUAS ABAS DIFERENTES E COPIAR EM OUTRA
Ajudou muito Saulo! Muito agradecido.
Abraços