Comentarios de celdas

En el editor de macros de visual basic para excel, en el explorador de proyectos, y más concretamente en "thisworkbook" he creado un procedimiento workbook_open ()
En el que he incluido la siguiente expresión:
Worksheets(1).PageSetup.PrintComments = xlPrintSheetEnd
... lo que hace que los comentarios de las celdas, se impriman o aparezcan en la presentación preliminar, al final del documento.
Hasta aquí todo correcto.
El problema es que en dicho resumen, por cada comentario aparece lo siguiente:
"Celda: " (.. la dirección de la celda)
"Comentario: " (el comentario)
¿Sabes alguna manera de que no aparezcan ni la palabra "celda" con la dirección de la celda ni la palabra "comentario"?
Gracias.

1 respuesta

1
Respuesta de
Hola, brali!
La verdad es que desconozco que eso se pueda lograr...
Sin embargo pensé en esta macro que los escribe al final del rango a imprimir (deberías deshabilitar aquella opción de impresión, pues no la necesitarás).
Este es el código:
Sub MuestraComs()
'
Dim com As Comment
Dim CeldaIni As Range
Set CeldaIni = Range("A11") 'primera celda donde escribir los comentarios
vCol = CeldaIni.Column
For Each com In ActiveSheet.Comments
'Determina línea donde copiar datos
If IsEmpty(CeldaIni) Then
vRow = CeldaIni.Row
ElseIf CeldaIni.End(xlDown).Row > 50000 Then
vRow = CeldaIni.Offset(1).Row
Else
vRow = CeldaIni.End(xlDown).Offset(1).Row
End If
comenta = com.Text
comenta = comenta & " (@ " & com.Parent.Address(False, False) & ")" ' Si no quieres que indique en qué celda, anula o elimina esta línea
Cells(vRow, vCol).Value = comenta
Cells(vRow, vCol).ClearFormats
Next com
'si esto formase parte de un macro de impresión, puedes colocar estas líneas despues de imprimir para que elimine los cometarios mostrados en la celda:
CeldaIni.CurrentRegion.ClearContents
' sino anula la linea anterior y sigue con:
Set CeldaIni = Nothing
End Sub
Espero que esto ayude a resolver tu problema.
Si así fuera, agradeceré un comentario y que la finalices.
(Recuerda que mantener cierto número de respuestas pendientes impide que otros usuarios puedan consultarme)
Un abrazo!
Fernando
"Me lo explicaron y lo olvidé,
lo leí y lo entendí,
lo hice y lo aprendí".
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
A cambio de mi tiempo, sólo te pido dos cosas:
- Finaliza (con puntaje y comentario) esta pregunta
- Ingresa al sitio www.porloschicos.com y, si quieres,
presiona el botón de donación (es gratis).
Confío en que lo harás. Por ambas cosas, muchas gracias.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje