Ver los comentarios de Excel en una columna

30/03/2006 - 01:07 por Angel JT | Informe spam
Primero que nada buenas tardes, espero que me puedan ayudar con lo siguiente,
lo que quiero es enviar los comentarios que se agregan a las celdas de Excel
dando click derecho en un pequeño recuadro amarillo a una columna de la hoja
activa.

Si alguien tiene idea de donde se guardan estas cadenas o sabe de alguna
macro que los pueda rescatar, por favor informenme. De abtemano les agradezco.
 

Leer las respuestas

#1 Héctor Miguel
30/03/2006 - 09:04 | Informe spam
hola, Angel !

... quiero... enviar los comentarios... a las celdas... a una columna de la hoja activa.
... donde se guardan estas cadenas o... alguna macro que los pueda rescatar [...]



prueba con una macro +/- como la siguiente
[escribira a partir de la celda activa las hojas y celdas que tengan comentarios + el texto del comentario]

saludos,
hector.

en un modulo de codigo 'normal' ==Sub Listar_comentarios()
Application.ScreenUpdating = False
Dim Hoja As Worksheet, Celda As Range, Fila As Integer
With ActiveCell
With .Offset.Resize(, 2)
.Value = Array("Hoja y celda", "Comentario"): .Font.Bold = True
End With
For Each Hoja In Worksheets
For Each Celda In Hoja.UsedRange
If Not Celda.Comment Is Nothing Then
Fila = Fila + 1
.Offset(Fila) = Hoja.Name & " - " & Celda.Address(0, 0)
.Offset(Fila, 1) = Celda.Comment.Text
End If
Next
Next
With .Offset(, 1).Resize(Fila - 1)
.WrapText = False: .EntireColumn.AutoFit: .WrapText = True
.Offset(, -1).Resize(, 2).EntireColumn.AutoFit
End With
End With
End Sub

Preguntas similares