How To Extract All Comments In A Worksheet In Excel || Excel Tricks || dptutorials
HTML-код
- Опубликовано: 4 фев 2021
- 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.
Click here to download Excel Sheet: drive.google.com/file/d/1Yz9x...
Click here to download VBA code: drive.google.com/file/d/1GcRY...
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.
For Personalized detail learning, write to dptutorials15@gmail.com
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.
***********************************************
★ My Online Tutorials ► www.dptutorials.com
LEARNING RESOURCES I Recommend: www.dptutorials.com/resources
Subscribe for more Awesome Tutorials: goo.gl/NyAtg2
Support the Channel via shopping: amzn.to/2ZRfTOZ ift.tt/2jH38PR
Tools for youtube vlogging:
• Laptop: amzn.to/2CaLFxJ fkrt.it/AM9ab_uuuN
• Canon 200D Camera: amzn.to/3d7jDR4 fkrt.it/AMz75_uuuN
• Benro Tripod: amzn.to/3exQoax fkrt.it/An1lm_uuuN
• Microphone: amzn.to/3c5lEvS fkrt.it/A2RHz_uuuN
• Collar Microphone: amzn.to/2X8DWrS fkrt.it/yL8kdQNNNN
• Screen recorder: techsmith.pxf.io/2BMjA
• Boom Arm Stand: amzn.to/3extb87 fkrt.it/ypUD8QNNNN
• Zoom H1 Audio Recorder: amzn.to/2TNdHFj fkrt.it/ypb7WQNNNN
• Harison Softbox Studio Lights: amzn.to/3caGbzg fkrt.it/ypCaRQNNNN
• Chroma Key Green Screen: amzn.to/2M60mn4 fkrt.it/A3gnb_uuuN
• Background Support Stand: amzn.to/3dbACSv fkrt.it/A3cCb_uuuN
• Acoustic Foam Background: amzn.to/3gzFtyC fkrt.it/ypsGdQNNNN
• USB RGB LED Strip: amzn.to/36BpCLF fkrt.it/A3T_5_uuuN
• Wireless Mouse: amzn.to/2TPIrW7 fkrt.it/A3Bqz_uuuN
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:
RUclips: / dptutorials
Instagram: / dptutorials
G+: ift.tt/2kAOpa6
Twitter: / dptutorials15
Facebook: ift.tt/2kfRnDi
BlogSpot: ift.tt/2kB14dh
Follow:
www.dptutorials.com
www.askplanner.blogspot.com
#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
Fantastic! It was very useful, thank you very much
Glad it was helpful!
This is actually notes. It does not work for "comments". Notes and comments are different in more recent excel versions.
Thanks a lot
loved it. Thanks
Glad you enjoyed it!
can you please consider making a video on how to make this on google sheets?
Its capturing notes ... but not the comments... How can I capture comment ?
just use CommentThreaded. see my comment above.
Code fails with runtime error 1004; macros are disabled
Thanks. But those are to extract the notes not the comments
Most welcome
I also have the same issue. Its capturing notes ... but not the comments... How can I capture comment ?
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 = Worksheets.Add(After:=ActiveSheet)
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