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.
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
1 respuesta más de otro experto
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
excelente solución, mi consulta es como amplias esta macros a todas las celdas de la planilla? - Rodrigo Vasquez Del Miglio
Excelente Justo lo que necesitaba graciaaaasss - Carlos Acosta