Extract Cell Comments?
 

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

Extract Cell Comments?
 

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

-----Original Message-----
Can I systematically extract text from cell comments and
paste them into an adjacent cell?
.

Extract Cell Comments?
 

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





"snoland" wrote in message
...
Can I systematically extract text from cell comments and
paste them into an adjacent cell?


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.771 / Virus Database: 518 - Release Date: 29/09/2004

Extract Cell Comments?
 

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

--
Dana DeLouis
Win XP & Office 2003


"snoland" wrote in message
...
Can I systematically extract text from cell comments and
paste them into an adjacent cell?