Ajuda com VBA - comparação planilhas

2024 - VBA & Macros

Post Recente por pmlv 9 anos atrás

4 Posts

3 Usuários

0 Reactions

905 Visualizações

RSS

pmlv

(@pmlv)

Posts: 6

Active Member

Topic starter

Olá,

Esta é a minha primeira postagem aqui no forum e espero que me possam ajudar.

Eu tenho duas planilhas onde são registadas activiades. A planilha1 é a listagem actual e a planilha2 é a nova listagem.

O que eu pretendo é comparar a informação da planilha2 com a planilha1, Se na planilha2 a informação for igual à planilha1, não faz nada, se for diferente, pretendo que copie os valores diferentes da planilha 2, para a ultima linha da planilha1.

Planilha1
Atividade Descrição Operação realizado?
123 Cortar 10 x
456 Maquinar 10 x
789 Cortar 10 x
789 Maquinar 15

Planilha2
Atividade Descrição Operação realizado?
123 Cortar 10
456 Maquinar 10
658 Cortar 10

Como podem ver nas tableas eu queria que fosse copiado para a planilha1 a informação (658 Cortar 10) que é diferente. As outras duas linhas são iguais em ambas as planilhas mas neste caso como na planilha1 está com um X na coluna realizado, não queria que copiasse.

Agradecia ajuda, porque tenho urgencia e são muitos artigos que tenho de verificar um a um.

Obrigado,

Postado : 10/11/2015 4:50 am

Nelson S

(@nelson-s)

Posts: 96

Trusted Member

Veja se esta rotina ajuda...

Postado : 10/11/2015 12:36 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Não testado!!

Sub AleVBA_18070()
    Dim iLast As Long
    Dim iCounter As Integer
    iLast = Worksheets("Plan2").Range("A" & Application.Rows.Count).End(xlUp).Row
    Dim rng As Range
     
    For iCounter = 2 To iLast
        Set rng = Worksheets("Plan1").Range("A:A").Find(Worksheets("Plan2").Range("A" & iCounter).Value)
        If rng Is Nothing Then
            Worksheets("Plan2").Rows(iCounter & ":" & iCounter).Copy
            Worksheets("Plan1").Range("A" & Worksheets("Plan1").Range("A" & Application.Rows.Count).End(xlUp).Row + 1).PasteSpecial xlPasteAll
        End If
         
    Next iCounter
End Sub

Att

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

Postado : 10/11/2015 2:12 pm