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.