
Necesito convertir el contenido de texto en una celda en un comentario en otra celda (la de la izquierda). Yo viesta publicación, y el código funciona bien pero coloca el comentario en la misma celda donde se encuentra el contenido del texto.
Ejemplo: necesito que el texto de la columna B sea un comentario en la columna A.
Respuesta1
Seleccione las celdas que contienen los datos.(en su caso las celdas de la columna B)
y ejecuta esta breve macro:
Sub CommentMaker()
Dim r As Range, v As String
For Each r In Selection
If r.Column <> 1 Then
If r.Text <> "" Then
v = r.Text
With r.Offset(0, -1)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=v
End With
End If
End If
Next r
End Sub
Nota: ¡Esto no eliminará los datos originales!