Remove Comment Author

[pragnesh_50]

Hi,


I have sheet containing comments(Insert comment) given by my supervisor.


I am able to get the comments at the other sheet by running macro but i want the output without the name of Author.


Ex. Sheet contains 75 Comments given by "X". so my current output is X:abc...but i want only abc as output in new sheet.


here is my syntex

.Cells(i, 9).Value = Replace(cmt.Text, Chr(10), " ")


Regards,

Pragnesh

 

[NARAYANK991]

Hi Pragnesh ,


You need to include the following lines of code in the appropriate place in your ShowComments procedure.


1. Comment_Author = ActiveCell.Comment.Author

Extra_Length = Len(Comment_Author) + 1


These lines can come immediately after the selection of the cells with comments is made ; since the author will be the same , the above lines are outside the for .... next loop.


2. Comment_Full = cmt.Parent.Comment.Text

Comment_Entry = Right(Comment_Full, Len(Comment_Full) - Extra_Length)


These lines should be within the for ... next loop.


Narayan

 

[pragnesh_50]

Hi Narayan,


Thanks a lot my issue is resolved..


Regards,

Pragnesh.

 

[NARAYANK991]

Hi Pragnesh ,


Thanks for the feedback.


Narayan