Last seen: Mar 17, 2025
My mistake: Instead of : MsgBox "No threaded comments found in " * wks.Name Should be: MsgBox "No threaded comments found in " & wks.N...
Hi Sherry, Try this version, I cleaned the code and reorganized it: Sub ListCommentsRepliesThreaded() Application.ScreenUpdating = False Di...
Hi Bryan, It's much easier with Power Query, see the file attached. To get the results, simply right click the PQ Output table and click Refresh...
Hi Kevin, Can you upload a sample file please? Thank you
try this one: Sub PrintSheet() Dim i As Long For i = 1 To 14 ActiveSheet.PrintOut ActiveSheet.Range("A1").Value = ActiveSheet.Range(...
Hi Sherry, You should start writing comments from the first reply column at each comment. This means you have to reset the reply column INSIDE t...
Hi Sherry, I think there is a mistake here: If myCmt.Replies.Count > 1 Then The line does not handle the comments with 1 reply only. Shoul...
Hi Michael, This loop is not right: For i = 0 To Range("H65356").End(xlUp).Row - 1 If Results.Selected(i) Then UserForm.lstDisplay.Value = Sear...
Try this one: Sub Crea_File_Csv() Dim NewWb As Workbook: Set NewWb = Workbooks.Add ThisWorkbook.Worksheets("Sheet1").Range("A2:D17").Copy Desti...
Hi Amarildo, Please post your question in english, not all of us speak your language. thank you
Simply use this code in a standard vba module: Sub PrintSheet() ActiveSheet.PrintOut ActiveSheet.Range("A1").Value=ActiveSheet.Range("A1").V...
Hi Sjaak, When you import from folder, you should have a table with all the files in that folder. In this table, add a new column calling the...
Hi, You want to print to active printer or to pdf?
Hi Adriano, In the block 2 you sent, I see a new row ONLY under those 3 PC/NC, but no rows under the block: According to your description, i...
Yes, I can help you, but clarify first the issues described above. Thank you