Comment Question

R

Robbyn

Hello again. I would like to copy any comments from a source worksheet to a report worksheet if they occur. The user chooses a row from a listbox and then a report worksheet is generated based on what is selected. The report page is similar to the format below

Assignment Points Comment

Test 1 9
Test 2 Absen
Test 3 85
Test 4 Absen

I've tried sooo many things but can't seem to get to the comment part to work. Any advice would be appreciated
Thanks again

Robbyn
 
T

Tom Ogilvy

It would be easier to address this if you had posted the code that does the
report, but basically you can test if the cell has a comment (assuming you
mean the Insert=>Comment type comment and not just text entered in a cell).

Sub Tester1()
Dim cmt As Comment
Dim sStr As String
Set cmt = Nothing
On Error Resume Next
Set cmt = ActiveCell.Comment
On Error GoTo 0
If Not cmt Is Nothing Then
sStr = cmt.Shape.TextFrame.Characters.Text
Worksheets("Report").Cells(1, 1).Value = sStr
End If
End Sub

--
Regards,
Tom Ogilvy



Robbyn said:
Hello again. I would like to copy any comments from a source worksheet to
Click to expand...
a report worksheet if they occur. The user chooses a row from a listbox and
then a report worksheet is generated based on what is selected. The report
page is similar to the format below:
Assignment Points Comments

Test 1 90
Test 2 Absent
Test 3 85
Test 4 Absent

I've tried sooo many things but can't seem to get to the comment part to
Click to expand...
work. Any advice would be appreciated.
 
Top