Hola estoy tratando de comparar dos archivos de un mes contra otro, y necesito saber cuales son los que ya no estan en el siguiente mes
como puedo hacer para que busque los elementos repetidos y en una nueva hoja me de los datos que resultan de la comparacion.
EJEMPLO:
enero
dato1
dato2
dato3
febrero
dato1
dato3
Nueva Hoja
dato 2
saludosss
TENGO ESTO
Sub EliminarRepetidos()
contador = 0
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
Selection.Delete Shift:=xlUp
contador = contador + 1
Else
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
Respuesta = MsgBox("Se han encontrado " & contador & " elementos repetidos", 1, "Número de repetidos")
End Sub
PERO EL RESULTADO ES ESTE
dato1
dato2
dato3
Y LO QUE NECESITO ES QUE ELIMINE AMBOS REGISTROS CUANDO ESTEN
REPETIDOS..Y QUE EL RESULTADO SEA dato2
