Notifications
Clear all

Copiando com Procv puaxando de 2 abas diferentes.

10 Posts
3 Usuários
0 Reactions
1,362 Visualizações
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Boa tarde a todos.

Tenho uma dúvida e gostaria de ajuda dos colegas do fórum.
Tenho uma planilha e gostaria de saber se existe alguma fórmula para puxar as informações do intervalo N:AA das abas dados2 e dados3 para a aba ddos no mesmo intervalo.
Consigo puxar da aba dados2 utilizando Procv mas preciso puxar os dados simultaneamente(Abas dados2 e dados 3 para aba dados)
Desde já agradeço a ajuda !

Abraços.

fabiosp

 
Postado : 26/07/2014 10:19 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

fabiosp, bom dia!

Devido a migração do sistema no final de semana, alguns anexos corromperam. É possível anexar o seu modelo novamente?

Att,

 
Postado : 30/07/2014 6:25 am
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Marciel bom dia!
Obrigado pela resposta.
Estou anexando novamente meu arquivo.
Abraços
Fabiosp

 
Postado : 30/07/2014 8:08 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!
Tente..........

Public Sub Eu_Respondi_Algo_Parecido_Em_Seu_Outro_Topico()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "dados" Then
        LR1 = Sheets("dados").Range("J" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("D" & Rows.Count).End(xlUp).Row
        ws.Range("J2:AA" & LR2).Copy Destination:=Sheets("dados").Range("J" & LR1)
    End If
Next ws
Application.ScreenUpdating = True
End Sub

Att

 
Postado : 30/07/2014 8:23 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Não entendi muito bem, seria isso?

=SEERRO(PROCV($A3;dados2!$A$2:$AA$102;14;FALSO);PROCV($A3;dados3!$A$2:$AA$102;14;FALSO))

 
Postado : 30/07/2014 8:52 am
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

alexandre vba e gtsalikis
Muito obrigado.
Desculpe a demora estava meio enrolado hoje.
Vou testar as dicas depois retorno.
Sempre trabalhei com PROCV mas não sabia como usar com mais de uma condição.

Abraços

 
Postado : 30/07/2014 4:13 pm
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

alexandre vba boa tarde

Gostei no título que você criou pra rotina ...rs
Estava analisando e percebi que diferente da rotina do tópico anterior não tem linha com código com fórmula nessa macro que você criou.
Testei a fórmula que o colega Gilmar criou e funcionou perfeitamente então tentei incluir isso na rotina que você criou Range("N2").Formula = "=SEERRO(PROCV($A3;dados2!$A$2:$AA$102;14;FALSO);PROCV($A3;dados3!$A$2:$AA$102;14;FALSO))" mas não deu certo.
Com a fórmula do Gilmar esta perfeito mas o problema e que conforme aumenta a quantidade de registros a planilha fica pesada.

Abraços
Fabiosp

 
Postado : 31/07/2014 9:38 am
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Gilmar boa tarde

Muito obrigado pela ajuda.
Era isso que eu precisava.

 
Postado : 31/07/2014 9:39 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Fabio, que bom que resolveu,

Porém, como vc falou que a planilha vai ficando pesada, talvez seja o caso de vc pensar em utilizar VBA. A função PROCV(), até onde sei, é uma das mais simples, se não a mais simples que resolveria essa pesquisa, e, se pesou, talvez o VBA possa automatizar pra vc.

Abs

 
Postado : 31/07/2014 3:01 pm
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Gilmar bom dia!
Desculpe a demora estava de folga e voltei hoje ao serviço.
Valeu pelas dicas.
Vou procurar algo na pesquisa do fórum para tentar fazer uma macro para minha planilha.
Apesar que o nosso colega alexandre já me passou umas dicas em tópicos passados e primeiramente vou tentar adaptar.

Abraços

fabiosp

 
Postado : 14/08/2014 8:39 am