Como colocar estados a comentarios en excel
Quiero colocar dentro de los comentarios un estado (cerrado), para ese fin realice el siguiente macro:
Sub Macro1()
'
' Macro1 Macro
' Cerrado
'
' Acceso directo: CTRL+u
'
ActiveCell.Select
ActiveCell.Comment.Shape.Select True
ActiveCell.Comment.Text Text:="Autor (Cerrado)"
ActiveCell.Select
End Sub
Como lo modifico para que al ejecutarlo solo me coloque Cerrado y no me borre lo que he escrito antes en el comentario.
1 Respuesta
Te anexo la macro actualizada
Si la celda seleccionada no tiene comentarios, la macro no hace nada. Si la celda seleccionada ya tiene un comentario, entonces agrega el estado "(Cerrado)"
Sub Macro2() 'Act.Por.Dante Amor If Not ActiveCell.Comment Is Nothing Then ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & " (Cerrado)" End If End Sub
Si la celda no tiene comentarios y quieres agregar algo, entonces utiliza esta macro:
Sub Macro1() 'Act.Por.Dante Amor If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment ActiveCell.Comment.Text Text:="Nuevo comentario" 'Si la celda no tiene comentarios agrega un texto Else ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & " (Cerrado)" End If End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
Muchísimas gracias
Como haría para que el "(cerrado)", quedara antes del texto que se encuentra activo en el comentario.
Cambia esta línea
ActiveCell.Comment.Text Text:=ActiveCell.Comment.Text & " (Cerrado)"
Por esta:
ActiveCell.Comment.Text Text:="(Cerrado) " & ActiveCell.Comment.Text
