En una hoja de trabajo con muchos comentarios, a veces puede suceder que los comentarios se ven lejos de su celda origen unidos con una larga linea.

Si deseamos restablecer la posicion original podremos hacer los siguientes pasos para volver todo como al principio con un solo clic.


Tenemos este maravilloso ejemplok, donde encontramosque todos mis comentarios se ven desorganizados en excel.


 Para dar solucion haremos lo siguiente


 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 ResetearComentarios()
'Creado porVision Tecnologica 21/04/2018
Dim pComment As Comment
For Each pComment In Application.ActiveSheet.Comments
   pComment.Shape.Top = pComment.Parent.Top + 5
   pComment.Shape.Left = pComment.Parent.Offset(0, 1).Left + 5
Next
End Sub
 





Guardamos este.
Ahora ejecutamos la macro, por Pestaña desarrollador, Macros y elegimos REsetearComentarios - ejecutar.


Este seria nuestro resultado, un libro con todos los comentarios organizados.











Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos

 

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

Por alguna razón que aún no descubro, hay ocasiones en las que los comentarios se desplazan muy lejos de la celda a la que pertenecen y solo podemos ver una larga línea que una al comentario con la celda origen.





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





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



Si te gustó, síguenos en Twitter  para recibir nuestras actualizaciones y trucos