How to check if the cell has comment

[ThrottleWorks]

Hi,

I am trying to assign comment to a cell. I want to check if comment is already present then leave it else create comment for the cell.

I tried various solutions from Google but somehow not able to do it. Can anyone please help me in this.

I am trying below mentioned code to generate comment.

PosSht.Cells(TempLr - 1, 13).AddComment
PosSht.Cells(TempLr - 1, 13).Comment.Visible = True
PosSht.Cells(TempLr - 1, 13).Comment.Text Text:="Chandoo is awesome !"
PosSht.Cells(TempLr - 1, 13).Comment.Visible = False

 

[Deepak]

try this...

Sub t()
Dim i As Integer, cmt As Comment

For i = 1 To 5
    With Cells(i, 1)
        Set cmt = .Comment
            If cmt Is Nothing Then
                .AddComment "Chandoo is awesome !"
                .Comment.Visible = True
            End If
    End With
Next

Set cmt = Nothing
End Sub

 

[ThrottleWorks]

Hi @Deepak sir, thanks a lot. I am trying this and will revert with details.

Have a nice weekend.

 

[Deepak]

A must have check for comment...

http://www.contextures.com/xlcomments03.html

 

[ThrottleWorks]

Hi @Deepak sir, thanks for this helpful link.