¿Cómo hago para que me compare datos de dos hojas distintas el la primera hoja están en fila y el la segunda están en columnas?
Tengo dos hojas, en la Hoja1 tengo mi fila (1:1) llamada códigos y necesito que esos códigos me los compare con la Hoja 2 pero los códigos de esta hoja están en columnas(A:AJ) y necesito que me los pinte en la hoja 2 los que son iguales a los de la hoja1
2 Respuestas
Respuesta de Dante Amor
1
:) H o l a:
Envíame tu archivo y me explicas con un ejemplo el resultado esperado.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “MARIA GUERLY GARCIA SOACHA” y el título de esta pregunta.
Ya te envié el correo :)
H o l a: Con el ejemplo que pusiste en la otra pregunta, entendí cómo hacer la búsqueda. Te anexo la macro con una actualización. Avísame si requieres algo más sobre la macro.
Sub ComparaCodigos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'Limpia los colores en la hoja2 para actualizar
h2.Rows(1).Interior.ColorIndex = xlNone
'Lee los códigos de la hoja2 de la fila 1
For i = 1 To h2.Cells(1, Columns.Count).End(xlToLeft).Column
If h2.Cells(1, i) <> "" Then
'si la celda es diferente de blanco
'Busca el código en la hoja1 columna A
Set b = h1.Columns("A").Find(h2.Cells(1, i))
If Not b Is Nothing Then
'si lo encuentra, entonces pinta el código en la hoja2
h2.Cells(1, i).Interior.ColorIndex = 6
End If
End If
Next
MsgBox "Fin"
End Sub