Convertir contenido de celda a comentario

Creen que podrían ayudar, ¿hay posibilidad de lograr eso?

Encontré que se podía traspasar el comentario a celda con el siguiente código:

Sub escribiComentarios()
' Primero se debe seleccionar el rango
' Funciona para rangos "rectangulares"; en rangos partidos habría
' que cambiar la inicialización de cantCeldas
'
Range("A1").Select
Dim rAux As Range
On Error Resume Next
For Each rAux In Selection
rAux.Offset(0, 1) = rAux.Comment.Text
Next rAux
End Sub

Pero quiero lo contrario.

2 respuestas

Respuesta
2

Te aseguro que funciona funciona, además comprueba que la celda contenga texto para el comentario, de lo contrario borra cualquier comentario anterior en la celda y cada que ingreses nuevo texto en la celda el comentario se creará, de este modo no quedarán comentarios agregados anteriormente. En este caso D5 es la celda donde se insertará el comentario y B55 es la celda que contiene el texto.

Private Sub Worksheet_Change(ByVal Target As Range)

     If Range("B55").Value <> "" Then
          Range("D5").ClearComments
          Range("D5").AddComment
          Range("D5").Comment.Text Text:=Range("B55").Text
     Else
          Range("D5").ClearComments
     End If
End Sub

Respuesta
1

Para pasar el comentario a la celda tienes que ejecutar esta macro de ejemplo:

Sub comentario()

comen = ActiveCell.Comment.Text

ActiveCell.Value = comen

End Sub

Y para poner un comentario:

Sub poner_comentario()

ActiveCell.AddComment ("hola")

End Sub

Recuerda finalizar y puntuar mi labor

y donde pongo el rango? porque son varias celdas que quiero convertir a comentario.

Me puedes especificar? no se mucho de esto... gracias

Espedifícame el rango que quieres analizar y te lo mando

El rango es: H2:H1286 - el contenido son fechas, quiero que se conviertan a comentario automáticamente.

Gracias... son varias celdas.

Aquí tienes la macro:

Selecciona la celda H2 y después ejecuta la macro:

(Recuerda finalizar y puntuar por favor)

Sub poner_comentarios()

Do While ActiveCell.Value <> ""

ActiveCell.AddComment.Text "" & ActiveCell.Value

ActiveCell.Offset(1, 0).Select

Loop

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas