Cómo compara registros en diferentes libros de excel

Quiero saber si hay forma de comparar datos en dos archivos de excel es decir

Buscar lo que hay en el libro 1 en el libro 2 y al encontrar datos iguales en el libro 2 le asigne el nombre de la hoja donde esta en libro 1 donde se encuentra, esto claro si es posible; si no solo que me los resalte en el archivo 2.

Como se ve en la imagen se busca se busca la información del archivo asistencia en reporte interlocutoria.

1 respuesta

Respuesta
1

H o l a:

Envíame tus 2 libros, me dices cuál es tu libro 1 y cuál es tu libro 2.

También me marcas de amarillo un par de ejemplos en el libro 1.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Maria Fernanda” y el título de esta pregunta.

Hola

Ya te envíe el correo 

H o l a:

Te anexo la macro

Sub Comparar()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.StatusBar = False
    Set l1 = ThisWorkbook
    Set l2 = Workbooks("ASISTENCIAs")
    hojas = l1.Sheets.Count
    n = 1
    For Each h1 In l1.Sheets
        Select Case h1.Name
            Case "Hoja1", "Hoja2"
            Case Else
                h1.Columns("G").ClearContents
                h1.Columns("A:G").Interior.ColorIndex = xlNone
                u = h1.Range("A" & Rows.Count).End(xlUp).Row
                For i = 3 To u
                    nombre = WorksheetFunction.Trim(h1.Cells(i, "A"))
                    Application.StatusBar = "Procesando registro: " & i & " de " & u & _
                                            " De la hoja: " & n & " de " & hojas
                    For Each h2 In l2.Sheets
                        Set b = h2.Columns("F").Find(nombre, lookat:=xlPart)
                        If Not b Is Nothing Then
                            h1.Cells(i, "G") = h2.Name
                            h1.Range(h1.Cells(i, "A"), h1.Cells(i, "G")).Interior.ColorIndex = 4
                            Exit For
                        End If
                    Next
                Next
        End Select
        n = n + 1
    Next
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

S a l u d o s . D a n t e   A m o r. Recuerda cambiar la valoración de la respuesta. G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas