Cómo GENERAR un REPORTE DE COMENTARIOS de mi archivo de Excel
En este video tutorial te voy a enseñar, cómo desde cero, a crear una macro con VBA y macros en Excel para poder hacer un reporte de todos los comentarios (notas en Office y Microsoft 365) que tenemos en nuestro archivo de Excel.
Vamos a generar el reporte con los siguiente datos:
- Nombre de la hoja
- Rango o celda del comentario
- Autor
- Texto del comentario
Ver Video Cómo generar un informe de comentarios en Excel
Suscríbete al canal de EXCELeINFO en YouTube para aprender más de Excel y macros.
Comentarios en mi archivo de Excel
Tenemos un archivo de Excel con algunas hojas que contienen comentarios. Este archivo puede ser que se comparta con otros usuarios e ingresen comentarios.
Figura 1. Comentarios en archivo de Microsoft Excel.
Cómo generar reporte de comentarios
Necesitamos generar un informe de todos los comentarios de mi archivo. Para eso vamos a crear una macros que me recorra todas la hojas y de cada hoja vamos a recoger los valores antes mencionados de cada comentario o nota.
Figura 2. Reporte o informe de comentarios en Excel usando VBA y macros.
Código VBA de la macro
La macro se llamará ReporteComentarios y la podemos alojar en un Módulo normal.
'EXCELeINFO 'MVP Sergio Alejandro Campos 'http://www.exceleinfo.com 'https://www.youtube.com/user/sergioacamposh ' Sub ReporteComentarios() Dim Celda As Range Dim Hoja As Worksheet Dim HojaComentarios As Worksheet Dim FilaComentarios As Integer Set HojaComentarios = ThisWorkbook.Sheets("Comentarios") On Error Resume Next FilaComentarios = 2 For Each Hoja In ThisWorkbook.Sheets If Not Hoja.Name = "Comentarios" And Not Hoja.Name = "EXCELeINFO" Then For Each Celda In Hoja.Cells.SpecialCells(xlCellTypeComments) HojaComentarios.Cells(FilaComentarios, 1).Value = Hoja.Name HojaComentarios.Cells(FilaComentarios, 2).Value = Celda.Address HojaComentarios.Cells(FilaComentarios, 3).Value = Celda.Comment.Author HojaComentarios.Cells(FilaComentarios, 4).Value = Celda.Comment.Text FilaComentarios = FilaComentarios + 1 Next Celda Else End If Next Hoja End Sub
Descarga el archivo de ejemplo
Reporte de comentarios usando VBA y macros – EXCELeINFO.zip
Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.