Como mostrar comentarios de celdas en otra celda mediante vba en Excel 2007

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.

0 comentarios:

Publicar un comentario

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Top WordPress Themes