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.

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

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
LuisPolidoro
Acabou de chegar
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]

Mensagem por LuisPolidoro » Qua Dez 04, 2019 2:39 pm

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
Anexos
Consulta de Procedimentos Realizados-exemplo.rar
(36.4 KiB) Baixado 71 vezes
Editado pela última vez por LuisPolidoro em Ter Jan 14, 2020 5:38 pm, em um total de 3 vezes.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 794
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » Sex Dez 20, 2019 5:03 pm

Luis,

Veja se a forma que elaborei para realizar a consulta atende sua necessidade.
Anexos
Consulta de Procedimentos Realizados-exemplo.zip
(50.62 KiB) Baixado 70 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].

Avatar do usuário
LuisPolidoro
Acabou de chegar
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

Mensagem por LuisPolidoro » Sex Dez 20, 2019 6:01 pm

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



Avatar do usuário
LuisPolidoro
Acabou de chegar
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

Mensagem por LuisPolidoro » Sáb Dez 21, 2019 9:56 am

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?
Anexos
Consulta de Procedimentos Realizados-exemplo-2.rar
(941.67 KiB) Baixado 63 vezes



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


srobles
Jedi
Jedi
Mensagens: 794
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » Sáb Dez 28, 2019 3:21 pm

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.
Anexos
Consulta de Procedimentos Realizados-exemplo-2.zip
(962.77 KiB) Baixado 67 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].

Avatar do usuário
LuisPolidoro
Acabou de chegar
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

Mensagem por LuisPolidoro » Seg Dez 30, 2019 7:59 am

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
Jedi
Jedi
Mensagens: 794
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » 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


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].

Avatar do usuário
LuisPolidoro
Acabou de chegar
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

Mensagem por LuisPolidoro » Seg Dez 30, 2019 1:07 pm

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.



srobles
Jedi
Jedi
Mensagens: 794
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles » Ter Jan 07, 2020 2:56 pm

Luiz,

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].

Avatar do usuário
LuisPolidoro
Acabou de chegar
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

Mensagem por LuisPolidoro » Ter Jan 07, 2020 4:30 pm

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



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder