Comparar dos celdas de ficheros diferentes

Hola,
en una capeta tengo varios ficheros con la misma estructura pero diferentes datos y lo que tengo que hacer es compararlo con el patrón.
Pej.
Carpeta/
Excel patrón
Excel 1, 2, 3, 4...


Lo que quiero hacer es comparar la celda A1 del patrón con cada uno de los ficheros que hay. Si es igual que haga una cosa y sino otra. Supongo que sera poner un IF.

Para empezar he cogido esta macro de un post del foro y me encuentra todos los ficheros excel que hay en la carpeta pero no se como abrirlos y compararlos.

Sub RepasarCarpeta() 
'Sacamos los nombres de los archivos de la carpeta. 
Dim strArchivoExcel As String 
Dim strNombreCarpeta As String 
Dim r As Range 
Range("A1").Select 
'carpeta a repasar 
strNombreCarpeta = "C:\Macros" 
'preparar carpeta 
ChDir strNombreCarpeta 
strArchivoExcel = Dir("*.xls") 
'repasamos los archivos de la carpeta 
Do While strArchivoExcel <> "" 
strArchivoExcel = Dir 
Set r = ActiveCell 
r.Value = strArchivoExcel 
r.Offset(1, 0).Activate 
Loop 
End Sub 

Gracias.

0

Añade tu respuesta

Haz clic para o