Duplicados en varias hojas de un libro de excel
Necesito ayuda para encontrar nombres duplicados en un libro de excel que contiene 3 hojas, si es posible que resalte el dato duplicado en todas la hojas que este repetido para identificarlos.
1 respuesta
Hola
Estas son la imágenes de las hojas dentro la tabla
gracias
¿Y la idea es?
Qué busque los nombres del "libro1" en el libro2 y si algún nombre del libro1 existe en el libro2 que los marque ambos nombres de un color?
¿Luego qué busque los nombres del libro1 en el libro3?
¿Luego qué busque los nombres del libro2 en el libro1?
¿Luego qué busque los nombres del libro2 en el libro3?
¿Luego qué busque los nombres del libro3 en el libro1?
¿Luego qué busque los nombres del libro3 en el libro2?
E spero tus comentarios.
Hola
Exactamente necesito saber que nombres están repetidos en cada libro si los hay, es decir si EJ Sí SAMUEL CALLE esta repetido en los 3 libros me resalte,
ANDREA MARÍA OSORIO Esta en dos me los resalte también.
La respuesta a tus preguntas seria si
Te anexo la macro.
Según tus imágenes, los nombres del libro 1 están en la columna D, los del 2 en la C y los del 3 en la D, es correcto.
Sub BuscarDuplicados()
'Por.Dante Amor
Set h1 = Sheets("Libro 1")
Set h2 = Sheets("Libro 2")
Set h3 = Sheets("Libro 3")
'
h1.Columns("D").Interior.ColorIndex = xlNone
h2.Columns("C").Interior.ColorIndex = xlNone
h3.Columns("D").Interior.ColorIndex = xlNone
For i = 3 To h1.Range("D" & Rows.Count).End(xlUp).Row
'busca los del libro 1 en el 2
Set b = h2.Columns("C").Find(h1.Cells(i, "D"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "D").Interior.ColorIndex = 6
h2.Cells(b.Row, "C").Interior.ColorIndex = 6
End If
'busca los del libro 1 en el 3
Set b = h3.Columns("D").Find(h1.Cells(i, "D"), lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(i, "D").Interior.ColorIndex = 6
h3.Cells(b.Row, "D").Interior.ColorIndex = 6
End If
Next
'busca los del 2 en el 3
For i = 3 To h2.Range("C" & Rows.Count).End(xlUp).Row
Set b = h3.Columns("D").Find(h2.Cells(i, "C"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(i, "C").Interior.ColorIndex = 6
h3.Cells(b.Row, "D").Interior.ColorIndex = 6
End If
Next
MsgBox "Pintar terminado"
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
