Destacar celda con valor que coincide con otra celda, con comentario y color de fondo.

shunsho · el 29 de abril

Este es mi primer pequeño aporte, de una solución que necesitaba por la que llegué a este foro.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorTarget

    If Target.Cells.Count > 1 Then

        Target.Interior.Color = xlNone

        Target.ClearComments

        Exit Sub

    End If

    If Target.Value = "" Then

        Target.Interior.Color = xlNone

        Target.ClearComments

        Exit Sub

    End If

    If Intersect([A1:P10000], Target) Is Nothing Then Exit Sub

        For r = 2 To 10

            If Target.Value = Sheets("Codigo").Cells(r, 1).Value Then

                Target.Interior.Color = RGB(192, 192, 192)

                Set comm = Target.Comment

                If Not comm Is Nothing Then

                    Target.Comment.Delete

                End If

                Target.AddComment (Sheets("Codigo").Cells(r, 2).Text)

            End If

        Next r

    Exit Sub

ErrorTarget:

    MsgBox "ERROR! sólo números" & Target.Column, vbCritical

End Sub

[/CODE]

La idea obviamente la saque de este foro, y pues la publico por si a alguien le puede servir.

que hace:

- Posee el "error goto" para controlar el fastidioso mensaje de error frente a datos no adecuados.

- si una celda se suprime, o si se alteran varias celdas simultaneamente (como por ejemplo para cuando se eligen varias y se presiona suprimir), se borra el formato de la celda y se borran los comentarios.

- De la hoja "Codigo" se evalua si el valor ingresado en la hoja "hoja" coincide con alguno de la columna 1. Si no es asi, no hace nada. Si coincide, agrega como comentario el contenido de la celda de la columna 2 (primero evalua que el comentario no exista, si existe, lo borra.

Para alguien experimentado es absolutamente trivial, pero para un novato como yo en macros que busque algo similar, puede servirle.

Saludos,

shunsho.

ejemplo.xls