Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How do I copy a comment to become the information in a cell.
I am trying to copy comments in a spreadsheet into cells on the same line so
that they become the cell not a comment attached to a cell. |
#2
|
|||
|
|||
The macro below inserts the text from a comment in the activecell into the
first blank cell in the row. The comment is then deleted so save your work before testing this: Sub cmt() Dim eCol As Integer Dim cmtText As String Dim cmt As Comment Set cmt = ActiveCell.Comment If Not cmt Is Nothing Then With ActiveCell eCol = Cells(.Row, Columns.Count).End(xlToLeft).Column + 1 cmtText = Application.WorksheetFunction.Substitute _ (cmt.Text, Chr(10), " ") Cells(.Row, eCol).Value = cmtText Cells(.Row, eCol).WrapText = False cmt.Delete End With End If End Sub Hope this helps Rowan "Patrick from RAS" wrote: I am trying to copy comments in a spreadsheet into cells on the same line so that they become the cell not a comment attached to a cell. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
What is this yellow box? ..Not a comment | Excel Discussion (Misc queries) | |||
Copying information from multiple worksheets into one | Excel Discussion (Misc queries) | |||
Adding default comment text | Excel Discussion (Misc queries) | |||
Copy and paste Internet information into Excel 2003 | Excel Discussion (Misc queries) | |||
comment indicators should feature lock or pw protect limiting acc. | Excel Worksheet Functions |