Macros para comentarios en EXCEL
Quiero colocar un estatus a los comentarios, inicialmente al crear el comentario aparece " Pedro A (Open) ", ya esta parte esta configurada.
Necesito un macro que cambie la palabra "Open" por "Close" sin duplicar "Pedro A", que me ocurre cuando utilizo ActiveCell. Comment.Text
Sub Macro1()
'
' Macro1 Macro
'
'
ActiveCell.Select
ActiveCell.Comment.Shape.Select True
ActiveCell.Comment.Text Text:="Pedro perez (Close):" & Chr(10) & "" & Chr(10) & ActiveCell.Comment.Text
ActiveCell.Select
End Sub
En resumen lo que quiero es :
En vez de "Pedro A"(Open ) que aparezca "Pedro A" (Close) y lo escrito debajo de lo anterior que se conserve con su formato ( este texto es dinámico).
1 Respuesta
Con la celda del comentario seleccionada deberás ejecutar esta macro:
Sub Macro1()
Dim Find As String
Dim Replace As String
Dim Cmt As String
Find = "Open"
Replace = "Close"
Cmt = ActiveCell.Comment.Text
If InStr(Cmt, Find) <> 0 Then
Cmt = Application.WorksheetFunction. _
Substitute(Cmt, Find, Replace)
ActiveCell.Comment.Text Text:=Cmt
End If
End Sub
También podrías poner la macro en la Hoja con el evento doble click y así te cambiaría el Open por Close de los comentarios de las celdas a las cuales hicieras doble clic
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Find As String
Dim Replace As String
Dim Cmt As String
Find = "Open"
Replace = "Close"
Cmt = ActiveCell.Comment.Text
If InStr(Cmt, Find) <> 0 Then
Cmt = Application.WorksheetFunction. _
Substitute(Cmt, Find, Replace)
ActiveCell.Comment.Text Text:=Cmt
End If
End Sub
