Cell Notes

[mikeymay]

Is there a way to extract a cell note via VBA?

Rather than using Comments, Notes will be used as when I try to use the CommentThreaded command my workbook crashes so I'm assuming there is a bug somewhere causing this.

I also want to add a text string to a cell as a Note as well if this is possisble.


Thanks

 

[davesexcel]

Notes in the new xl are in fact the original comment from old.

Get the comment from H1

Sub Button3_Click()
    Dim rng         As Range, s As String
   
    Set rng = Range("H1")
    With rng
        If Not .Comment Is Nothing Then
            s = .Comment.Text
            MsgBox s
        End If
    End With
   
End Sub

 

[sykes]

This will add a comment if there's not one there, but if one already exists, extract it to the adjacent cell.
Hopefully, this should be enough to demo a solution to both of your questions.
NB Test on a COPY of your work, first!

Sub cmnt()
Dim cmttxt As String
Dim rng As Range

Set rng = ActiveCell
    If rng.Comment Is Nothing Then rng.AddComment ("New comment added"): Exit Sub
    rng.Offset(0, 1).Value = rng.Comment.Text

End Sub

 

[mikeymay]

Thanks both!

 

[sykes]

Pleasure. Hope it's enough for you to implement your own solution.