Devolver todos los comentarios a su celda de origen

 

Para restablecer la posición original de todos los comentarios de la hoja activa podemos utilizar la siguiente macro:


 Recordemos que primero debemos tener activa nuestra pestaña de Desarrollador, aqui puede recordar  como activarla --> clic

Pasos:
1- Abrir el archivo de excel
2- Clic en desarrollador - editor de Visual basic +o ALT + F11
3- Insertar nuevo modulo
4- Escribimos el siguiente codigo.


Sub RestablecerPosicionComentarios()

   Dim cmt As Comment

      For Each cmt In ActiveSheet.Comments
      cmt.Shape.Top = cmt.Parent.Top + 5
      cmt.Shape.Left = cmt.Parent.Offset(0, 1).Left + 5
   Next
End Sub

5-Nos volvemos a excel, e insertamos una nueva autoforma o imagen
6-Clic derecho sobre la forma insertada anteriormente y clic en asignar macro.
7- Seleccionamos la que se llama RestablecerPosicionComentarios  

8- Clic en encima de la autoforma para ejecutar nuestra macro y ver los comentarios en su origen.




Si aún no estás suscrito al Video Curso Gratuito "10 Temas de Excel que todo usuario debe conocer" puedes hacerlo en: https://www.visiontecnologica.com/Eventos/excel2016/10temasdeexcel.html  y también te invito a suscribirte a este canal de Youtube para recibir todas nuestras novedades.
 
Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos