Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COMPARAÇÃO ENTRE DU...
 
Notifications
Clear all

COMPARAÇÃO ENTRE DUAS PLANILHAS

 
2024 - VBA & Macros
Post Recente por Osvaldomp 7 anos atrás
8 Posts
4 Usuários
0 Reactions
1,121 Visualizações
RSS
 sabrinad
(@sabrinad)
Posts: 4
New Member
Topic starter
 

Boa tarde,

Preciso de ajuda, muito urgente!
Preciso fazer uma macro que compare a Base1(Plan1) com a Base2(Plan2) e escreva a linha inteira na Plan3 que não está presente na Plan2 e está na Plan1.
A comparação já consegui fazer. O único problema é que não consigo fazer com que a linha inteira seja copiada, e sim apenas uma célula.
A comparação é feita por um id(primeira coluna das planilhas).
Os dados até então são fictícios, pois terá mais de 100 mil linhas.

Agradeço se alguém conseguir me ajudar!!

Programa anexo.

 
Postado : 08/06/2017 12:06 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

sabrinad,

Boa tarde!

Veja se é assim.

ComparaAsBases.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/06/2017 12:33 pm
 sabrinad
(@sabrinad)
Posts: 4
New Member
Topic starter
 

Wagner,

É exatamente isso!!! MUITO OBRIGADA.

 
Postado : 08/06/2017 12:55 pm
 sabrinad
(@sabrinad)
Posts: 4
New Member
Topic starter
 

Bom dia,

Semana passada o user wagner me ajudou com uma macro de comparação entre duas planilhas, ela funcionou, mas acontece que tenho muitos dados para serem comparados (aproximadamente 250 mil linhas em cada base), e então acaba travando, e o Excel não responde. Deste modo, não é possível executar a macro. Alguém sabe de outra alternativa de fazer essa função? ou o que eu poderia mudar na macro para eu conseguir executar?
Segue macro anexo.

Agradeço desde já.

Sabrina.

 
Postado : 12/06/2017 8:34 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde Sabrina

Uni os teus 2 tópicos, pois não é permitido criar tópicos duplicados.

Como você é novata, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo, assim você vai saber como proceder sem contrariar as regras do fórum.

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi _ Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/06/2017 10:17 am
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

...mas acontece que tenho muitos dados para serem comparados (aproximadamente 250 mil linhas em cada base)...

Dúvidas:
1 - considerando cada planilha separadamente, é possível que haja repetição de valores na coluna 'A'?
Por exemplo, em 'A2' da "Plan1" está o número 11223344, é possível que esse número se repita naquela coluna?
Outro exemplo, em 'A6' da "Plan2" está o número 66778899, é possível que esse número se repita na coluna 'A' da "Plan2" ?

2. todos os registros da "Plan2" estão repetidos na "Plan1" ?

Osvaldo

 
Postado : 13/06/2017 5:29 pm
 sabrinad
(@sabrinad)
Posts: 4
New Member
Topic starter
 

Osvaldomp,

1- Não, o mesmo valor não ira se repetir.
2- Sim, todos os dados da Plan2 estão na Plan1.

Será que procv seria uma boa opção?

 
Postado : 19/06/2017 2:32 pm
 Osvaldomp
(@osvaldomp)
Posts: 857
Prominent Member
 

Experimente:

Sub ComparaBasesV2()
 Dim LR As Long
  Application.ScreenUpdating = False
   With Sheets("Plan1")
    .AutoFilterMode = False
    LR = .Cells(Rows.Count, 1).End(3).Row
    .Range("F2:F" & LR).FormulaLocal = "=CONT.SE(Plan2!$A$2:$A$9;A2)"
    .Range("A2:F" & LR).AutoFilter 6, 0
    Sheets("Plan3").[A:E] = ""
    .Range("A2:E" & LR).Copy Sheets("Plan3").[A2]
    .AutoFilterMode = False
    .[F:F] = ""
   End With
  Application.ScreenUpdating = True
End Sub

Osvaldo

 
Postado : 22/06/2017 5:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico