Saltar al contenido

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


shunsho

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

Enlace a comentario
Compartir con otras webs

  • 2 months later...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.