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
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
