• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 441
  • Last Modified:

Excel: Extract Comments With Name to Separate Worksheet with VBA

All:

I have been a member for several years and love Experts Exchange.
I usually find what I need by searching and have rarely had to ask a question.
At this point, however, I haven't found what I need and don't exactly know how to go about it.  

Basically I have a row of data.  In that row of data I have information contained in the cells and several cells with comments as well.

I would like to extract the name on the row and the comments on that same row to another worksheet.  The name and the comments should be in the correct order in separate cells in the same row on the new worksheet.

I'm looking for something like:
Name           Comment 1           Comment 2           Comment 3

I have uploaded a sample spreadsheet to show the original data layout (Input) and the desired output (Output).

I am not new to programming, however, please explain any proposed solution in programming comments if you don't mind.  I find I always learn something that way.

Thanks in advance for any assistance you may be able to provide.
CommentExtractExample.xlsm
0
jbcarrico
Asked:
jbcarrico
1 Solution
 
Rgonzo1971Commented:
Hi,

pls try

Sub macro4()
Sheets("Input").Activate
For Each c In Sheets("Input").Range(Range("A5"), Range("A" & Cells.Rows.Count).End(xlUp))
    Sheets("Output").Range("A" & c.Row - 3) = c
    Sheets("Output").Range("B" & c.Row - 3) = c.Offset(0, 4).Comment.Text
    Sheets("Output").Range("C" & c.Row - 3) = c.Offset(0, 5).Comment.Text
    Sheets("Output").Range("D" & c.Row - 3) = c.Offset(0, 6).Comment.Text
    Sheets("Output").Range("E" & c.Row - 3) = c.Offset(0, 7).Comment.Text
Next
End Sub

Open in new window

Regards
0
 
jbcarricoAuthor Commented:
Rgonzo1971:

This is exactly what I needed.
Thanks so much for your quick response.
The only thing I needed to add was "On Error Resume Next" because some of the fields in my Comments matrix didn't have comments.

Thanks so much.
0

Featured Post

2018 Annual Membership Survey

Here at Experts Exchange, we strive to give members the best experience. Help us improve the site by taking this survey today! (Bonus: Be entered to win a great tech prize for participating!)

Tackle projects and never again get stuck behind a technical roadblock.
Join Now