Boa tarde, MCordeiro.
segue código:
' INSERIR EM UM MÓDULO
' LEVANDO EM CONSIDERAÇÃO QUE OS DADOS ESTEJAM NA PLAN1
Sub IdentificarDiferenca()
Dim UltLin As Integer
Dim i As Long
Dim x As Long
Dim vIDCel As String
Dim vIDCel2 As String
Dim vValCel As String
Dim vValCel2 As String
UltLin = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To UltLin
vIDCel = Plan1.Cells(i, 1)
vValCel = Plan1.Cells(i, 2)
For x = 2 To UltLin
vIDCel2 = Plan1.Cells(x, 1)
vValCel2 = Plan1.Cells(x, 2)
If vIDCel = vIDCel2 Then
If vValCel <> vValCel2 Then
Plan1.Cells(x, 3) = "Fornecedor com codigo diferente de serviço"
End If
End If
Next x
Next i
End Sub
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Postado : 19/02/2016 1:48 pm