Extract Cell Comments?

[snoland]

Can I systematically extract text from cell comments and
paste them into an adjacent cell?

 

[John Mansfield]

Yes, try

Range("A2").Value = Range("A1").Comment.Text

where range A1 contains your comment and range A2 is the
cell where you want the comment to appear as text.

John Mansfield
The Planning Deskbook
http://www.pdbook.com

 

[N10]

HI Snoland

This is possibley really basic code but works hope it helps

Sub FIND_THE_COMMENT()
'

Rem WORKS FOR COLUMN A AND PUTS THE RESULT IN COLUMN B
Rem SETUP STICK A FEW COMMENTS IN COLUM A BETWEEN A1 and A100

Dim AAA As String
Range("a1").Select

Application.ScreenUpdating = False

For x = 1 To 100
If ActiveCell.NoteText > "" Then AAA = Cells.NoteText
If AAA > "" Then ActiveCell.Offset(0, 1).Value = AAA
AAA = ""
ActiveCell.Offset(1, 0).Select
Next

Rem BEST N10



End Sub

 

[Dana DeLouis]

One idea for Comments in Column A put in Column B.

Sub Demo()
Dim Rng As Range
Dim Cell As Range

On Error Resume Next
Set Rng = Columns("A:A").SpecialCells(xlCellTypeComments)
If Rng Is Nothing Then Exit Sub

For Each Cell In Rng.Cells
Cell(1, 2) = Trim(Cell.Comment.Text)
Next Cell
End Sub