ATENÇÃO NOVOS USUÁRIOS
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.
Esqueceu sua senha?
Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
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 79 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 78 vezes
Espero ter ajudado.
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
- 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 72 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 75 vezes
Espero ter ajudado.
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
- 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
Espero ter ajudado.
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
- 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 pmLuis,
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.
Espero ter ajudado.
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
Abs.
Saulo Robles
Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond
Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].
- 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