Macro para poner color a las celdas si el dato existe
Tengo esta macro que me ayudo el experto Dante, pero ahora quiero otra macro, que en lugar de borrar el registro, le ponga un color a la celda donde encontró el dato
Sub EliminarDatos()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Range("D" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "D") <> "" Then
Set b = h2.Columns("D").Find(h1.Cells(i, "D"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Rows(b.Row).Delete
End If
End If
Next
End Sub
Muchas gracias
1 Respuesta
Respuesta de Dante Amor
1
Te anexo otra macro con la actualización
Sub PonerColor()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Range("D" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "D") <> "" Then
Set b = h2.Columns("D").Find(h1.Cells(i, "D"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "D").Interior.ColorIndex = 4
End If
End If
Next
End Sub
