EXCELeINFO

Cómo GENERAR un REPORTE DE COMENTARIOS de mi archivo de Excel

by · 30 September, 2020

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.

Comentarios en archivo de Microsoft Excel

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.

SNAGHTMLc568b95

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.

Tags:

You may also like...