Comment to String

[HWL]

Is there a formula way to extract a comment to a cell?
Perhaps info() or cell() or something?

 

[pedie]

I dont know of formula but code example

[FONT=Courier New]range("A1").value = Range("B11").Comment.Text[/FONT]

 

[Kenneth Hobson]

You can set the wrap alignment and use:

'=ShowComment(A1)
Function ShowComment(commentCell As Range) As String
  On Error GoTo EndNow
  ShowComment = Replace(commentCell.Comment.Text, vbCrLf, vbLf)
EndNow:
End Function

 

[HWL]

Thanks all, I went with this UDF

Function GetCommentText(rCommentCell As Range) Dim strGotIt As String On Error Resume Next strGotIt = WorksheetFunction.Clean(rCommentCell.Comment.Text) GetCommentText = strGotIt On Error GoTo 0 End Function

</PRE>

link: http://www.ozgrid.com/VBA/ExtractCommentText.htm
</PRE>

 

[Scott Huish]

You'll want to make that volatile so you can recalculate it with F9.

Function GetCommentText(rComment As Range) As String
Application.Volatile
On Error Resume Next
GetCommentText = rComment.Comment.Text
End Function

 

[HWL]

You'll want to make that volatile so you can recalculate it with F9.

Function GetCommentText(rComment As Range) As String
Application.Volatile
On Error Resume Next
GetCommentText = rComment.Comment.Text
End Function

thanks, I noticed it wasn't calculating with re-calc