Macro que cambia texto de los comentarios -celda vacía

Hola, tengo esta macro en la que tu me has colaborado.
Sub Macro7()
Dim MiComentario As Variant
Dim NUEVO As String
Dim TEXTO As String
On Error Resume Next
Set MiComentario = ActiveCell.Comment
If MiComentario Is Nothing Then
If ActiveCell.Comment = "" Then
NUEVO = (ActiveCell)
ActiveCell.AddComment.Text Text:=NUEVO
Else
End If
Else
TEXTO = ActiveCell.Comment.Text
NUEVO = ActiveCell
ActiveCell.Comment.Text Text:=""
ActiveCell.Comment.Text Text:=NUEVO
End If
End Sub
La macro funciona a la perfección salvo por un detalle, digamos que en la celda A1 tenia como valor "x" por lo tanto el comentario también quedo con el texto "x", si después de eso dejo la celda vacía permanece el valor "x" en el comentario. Me gustaría que quedara vacío el comentario al igual que la celda.
Muchas gracias

1 respuesta

Respuesta
1
prueba esto, inserta esta linea ActiveCell.Comment.Delete
entre las lineas
On Error Resume Next  y Set MiComentario = ActiveCell.Comment
quedando asi:
On Error Resume Next
ActiveCell.Comment.Delete
Set MiComentario = ActiveCell.Comment
Hola, tengo esta macro en la que tu me has colaborado.
Sub Macro7()
Dim MiComentario As Variant
Dim NUEVO As String
Dim TEXTO As String
On Error Resume Next
Set MiComentario = ActiveCell.Comment
If MiComentario Is Nothing Then
If ActiveCell.Comment = "" Then
NUEVO = (ActiveCell)
ActiveCell.AddComment.Text Text:=NUEVO
Else
End If
Else
TEXTO = ActiveCell.Comment.Text
NUEVO = ActiveCell
ActiveCell.Comment.Text Text:=""
ActiveCell.Comment.Text Text:=NUEVO
End If
End Sub
La macro funciona a la perfección salvo por un detalle, digamos que en la celda A1 tenia como valor "x" por lo tanto el comentario también quedo con el texto "x", si después de eso dejo la celda vacía permanece el valor "x" en el comentario. Me gustaría que quedara vacío el comentario al igual que la celda.
Muchas gracias
¿Y no hay la posibilidad de que solo quede vacío el texto del comentario? Sucede que al eliminarlo y volverlo a poner me borra el formato del comentario, ¿o se puede incluir el formato del comentario en la macro?
Ya lo solucioné!
inserte la línea ActiveCell.Comment.Text Text:="" & Chr(10) & ""
entre las lineas
On Error Resume Next  y Set MiComentario = ActiveCell.Comment
quedando asi:
On Error Resume Next
inserte la línea ActiveCell.Comment.Text Text:="" & Chr(10) & ""
Set MiComentario = ActiveCell.Comment
Muchas Gracias por tu ayuda!
Mmmm... prueba esto:
Dim MiComentario As Variant
Dim NUEVO As String
Dim TEXTO As String
On Error Resume Next
Set MiComentario = ActiveCell.Comment
If MiComentario Is Nothing Then
If ActiveCell.Comment = "" Then
NUEVO = (ActiveCell)
ActiveCell.AddComment.Text Text:=NUEVO
Else
End If
Else
TEXTO = ActiveCell.Comment.Text
NUEVO = ActiveCell
ActiveCell.Comment.Text Text:=""
If ActiveCell = Empty Then
NUEVO = " "
ActiveCell.Comment.Text Text:=NUEVO
Else
ActiveCell.Comment.Text Text:=NUEVO
End If
End If

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como hacer referencia al comentario de una celda en excel 2010

Si en una celda he puesto un comentario de esos que al pasar el cursor por encima de la celda se despliega en un cuadro, ¿Cómo puedo a través de una formula hacer referencia para mostrarlo o asignarlo a otra celda?
4 respuestas

Exportar de Excel a un archivo de texto

Necesito exportar un rango de datos de Excel de longitud variable a un archivo de txt en una ruta fija 'el rango lo selecciono Range("E1").Select Range(Selection, Selection.End(xlDown)).Select en las celdas de la hoja hay otros datos que no necesito...
1 respuesta

Convertir contenido de celda a comentario

Creen que podrían ayudar, ¿Hay posibilidad de lograr eso? Encontré que se podía traspasar el comentario a celda con el siguiente código: Sub escribiComentarios() ' Primero se debe seleccionar el rango ' Funciona para rangos "rectangulares"; en rangos...
2 respuestas

Validar usuario y contraseña en 2 textbox

Soy nuevo en el foro y realmente me parece muy bueno y la mayoría de mis consultas las he tomado de acá en un el archivo que estoy elaborando, es un archivo que quiero proteger con usuario y contraseña, donde tengo una macro para crearlos. Ahora...
1 respuesta

Buscador de comentarios en excel

Te envio esta consulta. : Desarrolle una planilla en la cual hay muchos comentarios y muchas lineas. Y diseñe un formulario el cual debe buscar cualquier comentario pero en todo el libro funciona ! Pero solo busca en la hoja activa. El form tiene un...
1 respuesta

Macro de buscar datos

En un Userform tengo un textbox y un CommandButton, en el ultimo tengo el siguiente código: Dim Quebusco As String Quebusco = TextBox1.Value Cells.Find(What:=Quebusco, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows,...
1 respuesta

¿Qué macro utilizó para insertar una imagen en excel con referencia a una celda?

Que tal quisiera solicitar de su apoyo, estoy elaborando un carnet y si coloco Pedro en la celda H12 se muestre la imagen de pedro, esta foto extraerla de una carpeta externa donde tengo todas las fotos, pero también necesito agregar una condición a...
2 respuestas

Como hacer para que reconozca el valor de la celda y no formula

Mi gran dilema. En una columna tengo una formula donde si no cumple dos criterios la celda me queda vacía. Hice una macro que depende de esa celda y tiene una condición de que si esa celda es vacía me haga una operación. El problema que tengo es que...
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Crear hojas con el mismo formato con macros

Te agradezco la colaboración con el siguiente macro en el cual me crea una hojas con el nombre que le indico (según código) el problema radica en que quiero que tenga el formato de la hoja original y no me lo toma. Ademas que si en determinado...
1 respuesta