View Single Post
  #1   Report Post  
Dave Peterson
 
Posts: n/a
Default Export comments to new column

Saved from a previous post:

You can retrieve the text from a comment with a userdefined function like:

Option Explicit
Function GetComment(FCell As Range) As Variant
Application.Volatile

Set FCell = FCell(1)

If FCell.Comment Is Nothing Then
GetComment = ""
Else
GetComment = FCell.Comment.Text
End If

End Function

Then you can use it like any other function:

=getcomment(a1)

But be aware that the function won't evaluate when you just change the comment.
It'll be correct when excel recalculates. (Hit F9 to force a recalc.)

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Aleks wrote:

Hi,

I have an excel spreadsheet with over 2000 rows, the first column has some
text and most of the cells have 'comments'. I need to export this comments
to a new column. How can this be done without copy/pasting each one
individually ? (The column is to the right of the one that has the text and
comments).

Thanks

Alejandro


--

Dave Peterson