Move Comment into cell as Text
How do I move comments into cells as text?
or use vlookup to pull comment to another sheet? -- Just Computing |
Move Comment into cell as Text
Select some cells and run this macro:
Sub CommentMover() Dim r As Range For Each r In Selection On Error Resume Next Set C = r.Comment If Err.Number = 0 Then r.Offset(0, 1).Value = r.Comment.Text End If On Error GoTo 0 Next End Sub If one of the selected cells contains a comment, the text will be copied into the cell immediately to the right. -- Gary''s Student - gsnu200812 "Frances" wrote: How do I move comments into cells as text? or use vlookup to pull comment to another sheet? -- Just Computing |
Move Comment into cell as Text
Worked Wonderfully.
-- Just Computing "Gary''s Student" wrote: Select some cells and run this macro: Sub CommentMover() Dim r As Range For Each r In Selection On Error Resume Next Set C = r.Comment If Err.Number = 0 Then r.Offset(0, 1).Value = r.Comment.Text End If On Error GoTo 0 Next End Sub If one of the selected cells contains a comment, the text will be copied into the cell immediately to the right. -- Gary''s Student - gsnu200812 "Frances" wrote: How do I move comments into cells as text? or use vlookup to pull comment to another sheet? -- Just Computing |
All times are GMT +1. The time now is 08:34 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com