Otro consultante nos pregunta cómo puede imprimir en celdas todos los comentarios de una hoja.
Hemos creado este sencillo ejemplo para ilustrar el uso de nuestra macro. En la columna A están las Notas de los alumnos y la persona, al no tener conocimientos de las funciones de Excel, ha optado por crear comentarios estableciendo las calificaciones en función de cada nota. Ahora necesita que se muestren las calificaciones en la columna D. Para ello, utilizaremos una macro que nos permitirá imprimir los comentarios donde queramos.
Hacemos clic con botón derecho sobre la hoja en la que tengamos los comentarios, e este caso, Hoja1 y seleccionamos la opción Ver código
Nos aseguramos de que esté seleccionada la hoja en cuestión en el explorador de proyectos
Escribimos en el editor el siguiente código:
Sub Imprcom() ' Iniciamos la macro con el nombre Imprcom
Dim CelIni As Range ' Indicamos la celda de inicio CelIni como Rango
Dim Cmt As Comment ' Establecemos Cmt como Comentario
With ActiveSheet 'Indicamos que en la hoja activa
Set CelIni = .Range("D2") ' La celda de inicio es la D2
For Each Cmt In .Comments ' Por cada Comentario de la hoja
CelIni.Value = Cmt.Text ' Se muestre el texto del mismo en D2
Set CelIni = CelIni.Offset(1, 0) ' A continuación se mueva una celda hacia abajo
Next Cmt ' Repetir lo mismo por cada comentario
End With 'Finalizamos la instrucción
End Sub 'Finalizamos la macro
Al ejecutar la macro, podemos observar como cada uno de los comentarios aparecen escrito en la columna D a partir de la celda D2.
Si quieres recibir lecciones semanales de nuestro curso de Excel, suscríbete en el menú de la derecha.
Redactado en: Excel 2007
0 comentarios:
Publicar un comentario