Jump to content
Sign in to follow this  
shunsho

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

Recommended Posts

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

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png