Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 204 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: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

Mensagem por srobles »

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 196 vezes


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 »

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 »

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 198 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: 805
Registrado em: Qua Mai 06, 2015 7:39 pm

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

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


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 »

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

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

Mensagem 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


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 »

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

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

Mensagem por srobles »

Luiz,

Que boa noticia!!!

Fico satisfeito em saber que pude ajudar.


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 »

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