VBA para verificar e ver se as informações em uma folha correspondem às informações em outra

Question

Eu preciso de uma macro VBA para fazer o seguinte:

Eu tenho duas folhas, na planilha1 há uma lista na coluna A que tem números de peça. Na coluna da folha 2 A, eu tenho uma coluna onde os números de peça podem ser inseridos. O que eu preciso é que, quando um número é inserido na coluna A da folha 2, a coluna A da Folha1 seja marcada para garantir que o número de peça inserido na folha2 esteja listado em algum lugar na coluna A da folha 1 ?????

    

Answer 1

Eu gostaria de sugerir que o seguinte Código VBA irá comparar duas planilhas, dentro do intervalo de dados definido para entradas duplicadas.

Deixe-me explicar a situação dos dados.

A Folha 1 tem dados no Intervalo A5: A10 e Folha2 tem no Intervalo A10: A15.

Se a Folha 2 Faixa A10: A15 for IGUALs para a Folha 1 Faixa A5: A10, a mensagem aparecerá.

Private Sub CommandButton1_Click()

    Option Explicit

    Dim lngMyRow As Long
    Dim blnAllMatch As Boolean

    Application.ScreenUpdating = False


    For lngMyRow = 1 To 6
        If Sheets("Sheet1").Range("A" & lngMyRow + 4) = Sheets("Sheet2").Range("A" & lngMyRow + 9) Then
            MsgBox "Data is simillar.", vbExclamation
            blnAllMatch = False
            Exit For
        Else
            blnAllMatch = True
        End If
    Next lngMyRow

    If blnAllMatch = True Then
        MsgBox "Data is different !!", vbInformation
    End If

    Application.ScreenUpdating = True

End Sub

NB: Você precisa alterar os valores no VBA Code Row 6 & 7, de acordo com o seu intervalo de dados. Este código também pode ser usado como "Evento Worksheet_Change".

Observação: Este código foi testado por mim antes de ser publicado aqui.

Espero que isso ajude você.