Necesito un macro que me cambie de color
Tengo una lista de datos y necesito saber si estan en otro libro, si no los encuentra que me los marque en rojo.
1.- Columna A datos del libro "A" que necesito buscar en libro "B" si no encuentra algunos marcar en rojo dato de la columna A (letra roja)
H o l a:
Te anexo la macro, actualiza los nombres correctos:
La macro busca en el libro "B", en la hoja "Hoja1" en la columna "A"
Sub BuscarPintarRojo()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1") 'nombre de la hoja
Set l2 = Workbooks("B.xlsx") 'nombre del libro B
Set h2 = l2.Sheets("Hoja1") 'nombre de la hoja del libro B
'
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole)
If b Is Nothing Then
h1.Cells(i, "A").Font.ColorIndex = 3
End If
Next
End Sub
Son muchas hojas del libro "A", y debo buscar los datos de la columna A en el libro B (pero estos están con un texto agregado "BP y el numero", en la columna A esta solo en numero) y es una sola hoja.
H o l a:
Los comentarios que pusiste no están en la pregunta original, prueba la macro que te envié, debe funcionar para una hoja.
Si la macro te funciona valora la respuesta y crea una nueva pregunta con todo el detalle para que te pueda crear la macro justo con lo que necesitas.
S a l u d o s
