¿Borrar el comentario de una celda si lo tiene?

A tod@s!

¿Cómo puedo comprobar si una celda tiene un comentario?

Si lo tiene borrarlo e insertar otro .

Tengo la instrucción de insertar el comentario, pero no la de evaluar si el comentario ya existe.

Cells(2, 3). AddComment
Cells(2, 3).Comment.Text Text:=(vbLf & Now & vbLf)

Atte: Valentin Buñuales

Respuesta
1

[Hola

Intenta con algo así:

Sub Revisarcomentario()
Dim objComentario As Object
Dim Comentario As Comment
Set objComentario = Range("A1").Comment
If objComentario Is Nothing Then
    MsgBox "No hay comentario"
Else
    MsgBox "Sí hay comentario"
End If
End Sub

¡Gracias! Abraham.

Me es más que válido...

Gracias por tu aporte, tiempo y dedicación.

atte: Valentin Buñuales

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas