Obtener articulos coincidentes

Hola Alberto.

Con un libro llamado "Repet 1.xlsm" y la lista de valores en A2:B2000 de
"Hoja1".
Con un libro llamado "Repet 2.xlsx" y la lista de valores en A2:B1000 de
"Hoja1".

Para registros coincidentes (El código en "Repet 1"):
Sub Repes()
Dim celda As Range, fila&
For Each celda In Range("A2:A2000")
If Application.WorksheetFunction.CountIf(Workbooks("Repet 2.xlsx") _
.Sheets("Hoja1").Range("A2:A1000"), celda) > 0 Then
fila = fila + 1
Sheets("Hoja2").Cells(fila, 1).Value = celda.Value
Sheets("Hoja2").Cells(fila, 2).Value = celda.Offset(, 1).Value
End If
Next celda
End Sub

Para registros no coincidentes:
Cambia en el final del condicional de ... > 0 Then a ... = 0 Then


Saludos: Antonio.
*************************

"Alberto S.H." escribió en el mensaje
news:

Hola a todos,

Cada dia tengo que cruzar los informes en excel que me genera un programa
que hay en mi empresa. Resulta que me da un par de ficheros. Cada uno con
una
hoja en la que aparecen dos columnas, el codigo y en otra la descripción.
Pues bien, tengo que sacar los registros que estan en ambas. En ocasiones
tambien tengo que sacar los registros que solo están en una de ellas.
Hasta
ahora, lo que hago es llevarmelas a acces y desde alli lo hago.
Seguro que vosotros me podeis decir como hacerlo desde excel, aunque tenga
que meter las dos hojas dentro de un mismo libro.
¿como hago para localizar los coincidentes? ¿y los no coincidentes?

Gracias a todos