Re: Comparar celdas en Excel

hola, zurdo ?

... las listas estan en libros diferentes... tres columnas RFC, Nombre e Importe... aproximadamente 15 libros
... si encuentro la forma de sacar el primero lo demas sera cosa sencilla [..]

algunos 'detalles' que no has comentado... podrian 'hacer la diferecia' :)) [sin embargo]...
si 'pones' esos archivos en una carpeta 'especifica'... podrias usar un 'FileSearch' para abrir cada libro y buscar 'entre listas' ;)

suponiendo que los nombres que necesitas 'verificar' [en algun libro como 'concentrado'] esta en el rango 'A2:A70' de la hoja1
suponiendo que buscas 'el nombre' en la columna 'B' de la hoja1 de cada uno de los [+/- 15] libros
-> prueba/adapta/modifica/comenta/... algo +/- como el ejemplo al final del presente ;)
-> a partir de la columna 'C' va a poner en cada fila/nombre 'SI' o... 'NO' [se encuentra] por cada libro [de los 15]

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' -> en el libro 'concentrado' ==Sub Abre_Busca_Cierra()
Application.ScreenUpdating = False
Dim BuscarDonde As String, Sig As Byte, Celda As Range, Col As Byte
' en la siguiente linea ESPECIFICA el directorio donde quieres 'buscarlos' '
BuscarDonde = "c:uta y\sub-carpeta donde estan\los archivos\" ' NO olvides al final el ->\<- '
With Application.FileSearch
.NewSearch
.LookIn = BuscarDonde
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
Col = 3
For Sig = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(Sig)
Worksheets(1).Activate
With ThisWorkbook.Worksheets("Hoja1")
.Cells(1, Col) = ActiveWorkbook.Name
For Each Celda In .Range("a2:a70")
.Cells(Celda.Row, Col) = Iif(Application.CountIf(Range("b:b"), Celda) > 0,"SI", "NO") & " existe."
Next
End With
ActiveWorkbook.Close False
Col = Col + 1
Next
Else: MsgBox "No existen documentos en " & BuscarDonde
End If
End With
End Sub