How To Extract All Comments In A Worksheet In Excel || Excel Tricks || dptutorials

In this tutorial, let us see how to extract all comments in a worksheet in Excel.

When your excel is having lot of comments scattered all over the sheet, it would be very helpful for you to capture all those comments into a single place as a list.

Let us consider this example sheet which is having lot of comments like this in the columns A,B, and C.

And now, let us extract all these comments as a list in to a different excel sheet using a VBA code.
Go to VBA editor window by clicking on View code option.
Click on Insert and insert module.

If you found this video valuable, give it a like. If you know someone who needs to see it, share it. Leave a comment below with your thoughts. Add it to a playlist if you want to watch it later.

***********************************************

Tools for youtube vlogging:

Note: This description contains affiliate links, which means at no additional cost to you, we will receive a small commission if you make a purchase using the links. This helps support the channel and allows us to continue to make videos like this. Thank you for your support!

***********************************************

You Can Connect with Me at:

Follow:

#dptutorials #Primavera #PrimaveraFree #Exceltraining #ExcelTricks #ExcelTips #ExcelFreeTraining #ExcelFreeLearning

Tags: -
excel formulas in English, excel in English, excel tutorial in English,ms excel in English,ms excel tutorial in English, learn excel in English,vlookup in excel in English, learn ms excel in English, excel training, excel tutorial, Microsoft Excel 2007, learn excel,tutorial excel, ms excel tutorial, excel tutorials,ms excel 2007,Microsoft Excel training,learn excel online,learning excel,free excel training,online excel training,advanced excel tutorial,excel tutorial, excel formulas and functions, excel formulas, excel tutorial in Hindi, excel formulas and functions in Hindi, excel tricks, excel in Hindi, excel shortcut keys, excel vlookup, excel formulas in Hindi, excel for beginners, excel for accounting, excel formulas and functions tutorial, Excel Sum Formula, Sum Formula series, excel attendance sheet, excel salary sheet, excel stock maintain, excel data entry, advanced excel tutorial,excel formulas,excel tutorial,vlookup excel,excel accounting,excel for beginners,excel shortcut keys,excel sum formula,excel training,excel training online,excel tricks,free excel training,learn excel,learn excel online,microsoft excel training,attendance sheet in excel,excel data entry,excel formulas and functions,microsoft excel 2007, ms excel tutorial, excel formulas, and functions in hindi

[moumitaghorai]

This is actually notes. It does not work for "comments". Notes and comments are different in more recent excel versions.

[debaniavideos]

Fantastic! It was very useful, thank you very much

[AMAMGalle]

Its capturing notes ... but not the comments... How can I capture comment ?

[TheRohicool]

can you please consider making a video on how to make this on google sheets?

[traceypartridge]

Code fails with runtime error 1004; macros are disabled

[Ebyary]

Thanks. But those are to extract the notes not the comments

[robjenkins]

Thanks, looks like something I could use but I'm getting a run error. Can you please help ?
Its the 5th line from the bottom:-

ws.Range("B1").End(xlDown).Offset(1, 0) = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1)

This was the exact copy and paste from your page :-

Sub ExtractComments()
Dim ExComment As Comment
Dim i As Integer
Dim ws As Worksheet
Dim CS As Worksheet
Set CS = ActiveSheet
If ActiveSheet.Comments.Count = 0 Then Exit Sub

For Each ws In Worksheets
If ws.Name = "Comments" Then i = 1
Next ws

If i = 0 Then
Set ws =
ws.Name = "Comments"
Else: Set ws = Worksheets("Comments")
End If

For Each ExComment In CS.Comments
ws.Range("A1").Value = "Comment in cell"
ws.Range("B1").Value = "Comment entered by"
ws.Range("C1").Value = "Comment Text"
With ws.Range("A1:C1")
.Font.Bold = True
.Interior.Color = RGB(189, 215, 238)
.Columns.ColumnWidth = 20
End With
If ws.Range("A2") = "" Then
ws.Range("A2").Value = ExComment.Parent.Address
ws.Range("B2").Value = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1)
ws.Range("C2").Value = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":"))
Else
ws.Range("A1").End(xlDown).Offset(1, 0) = ExComment.Parent.Address
ws.Range("B1").End(xlDown).Offset(1, 0) = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1)
ws.Range("C1").End(xlDown).Offset(1, 0) = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":"))
End If
Next ExComment
End Sub