| |||
Comparar Hojas 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 Última edición por LANDA59; 23/04/2007 a las 13:24 |