Convert cell comment to a cell 1

[Irishiii75]

I have comments attached to some cells in column B of a spreadsheet. Is there a way to move the comments to a cell of there own in column C, where they would be data and not comments?

 

[DaleWatson123321]

If you don't have too many to do, you can always use:

1) Right-Click,

2) Choose Edit Comment.

3) Highlight the text.

4) <Control> C

5) Click onto the cell,

6) <Control> V

Hope this helps.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[bryanbayfield]

for each cll in range(cells(x1,2),cells(x2,2)).cells
cll.offset(0,1).value  = cll.comment.text
cll.comment.delete
next cll

This macro will work as long as each cell has a comment - let me know if this is not the case. Choose appropriate values for x1 & x2 according to your range. If the range will change from execution to execution of teh macro, let me know, there's a way round this.

Cheers. SuperBry!

 

[SkipVought]

Hi,

If you have ALOT of comments, then consider a VBA solution...

Sub PutCommentInNextColumn()
    Dim vText, iCol
    iCol = InputBox("What column are your comments in?" & vbCrLf & "The text will be put in the adjacent column")
    Select Case UCase(iCol)
        Case "A" To "Z"
            iCol = Asc(UCase(iCol)) - 64
        Case 1 To 255
        
        Case Else
            MsgBox ("tilt")
            Exit Sub
    End Select
    For Each Comment In ActiveSheet.Comments
        vText = Comment.Text
        If Not IsEmpty(vText) Then
            With Comment.Parent
                If iCol = .Column Then _
                    Cells(.Row, .Column + 1).Value = vText
            End With
        End If
    Next
End Sub

Just another alternative Skip,
metzgsk@voughtaircraft.com

 

[Irishiii75]

Thank you to all of you for your prompt help.
I did have a lot of them and they weren't in every cell.
SkipVought's procedure worked in my case.

I appreciate all the help.

 

[DaleWatson123321]

Pssssssssst, you forget to give Skip a STAR.

By your selection of Skip's procedure, Skip &quot;won fair & square&quot;, so we all don't mind one bit that you'll be singling him out for a STAR.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[Irishiii75]

How do I give Skip a star?

 

[DaleWatson123321]

Thanks for asking. Because your profile shows that you have issued 1 STAR, I thought you would have known.

It's just a matter of clicking on the &quot;Click here to mark this post as a helpful or expert post!&quot; - located in the lower-left-corner of the contributor's posting.

PLEASE, do NOT issue a STAR for this &quot;reminder&quot; - I want to earn STARS the normal way.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca