Si usa bastante los comentarios en sus hojas de trabajo, es posible que se pregunte si hay una manera de imprimir los comentarios, pero sin el nombre y los dos puntos que normalmente preceden a cada comentario. Desafortunadamente, no hay una forma integrada de lograr esto en Excel. Sin embargo, se puede usar una macro para extraer rápidamente todos los comentarios de una hoja de trabajo y colocarlos en su propia hoja de trabajo. Esta hoja de trabajo podría luego imprimirse, ya que equivaldría a un compendio de todos los comentarios. La macro es la siguiente:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Esta macro coloca los comentarios en la segunda hoja de trabajo en un libro de trabajo, por lo que si los desea en una hoja de trabajo diferente (para que no sobrescriba la información que ya está en la segunda hoja), tendrá que realizar una modificación en el objeto Sheets (2) .

Tenga en cuenta también que el nombre de la macro es Workbook_BeforePrint. Esto significa que la macro se ejecutará cada vez que vaya a imprimir su hoja de trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9602) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Adjusting_Comment_Printouts [Ajuste de impresiones de comentarios].