View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.misc
Jarek Kujawa[_2_] Jarek Kujawa[_2_] is offline
external usenet poster
 
Posts: 896
Default Extract Cell Comments/Notes to data

Toools-Macros-select a macro, then click on Edit button to the right


On 11 Gru, 15:34, MSpaven75
wrote:
How do I use it though, I can't remember how to edit MACRO's/VBA (been ages!!!)



"Gary''s Student" wrote:
Lots of different ways.


Say we have comments in cells and want to put the data in the adjacent cell
to the right.


So if B9 had a comment, we want that text in C9.


Try this tiny macro:


Sub DisplayComments()
Dim c As Comment
If ActiveSheet.Comments.Count = 0 Then Exit Sub
For Each c In ActiveSheet.Comments
* * Range(c.Parent.Address).Offset(0, 1).Value = c.Text
Next
End Sub


--
Gary''s Student - gsnu200819


"MSpaven75" wrote:


I have a spreadsheet with Yes/No's a field values and all the meaningful data
as cell comments, I know there is a way to get these notes as cell contents
but can't remember how.


Ideas anyone?- Ukryj cytowany tekst -


- Pokaż cytowany tekst -