Forums Últimos mensajes - Powered by IBM
 

Comentarios en celdas

16/12/2009 - 18:25 por Pedro B | Informe spam
Hola, tengo una hoja de excel que, en algunas celdas, tienen un comentario
(en la esquina superior derecha aparece un triangulito rojo). Necesito
extraer esos comentarios (mi idea es mediante visual basic) y ponerlos en
otra hoja. ¿Alguna pista? Gracias
 

Leer las respuestas

#1 Héctor Miguel
16/12/2009 - 19:48 | Informe spam
hola, Pedro !

... tengo una hoja de excel que, en algunas celdas, tienen un comentario
... Necesito extraer esos comentarios (mi idea es mediante visual basic) y ponerlos en otra hoja.
Alguna pista? Gracias



(p.e.) corre una macro +/- como la siguiente en la hoja donde quieras obtener los comentarios
(OJO: modifica el nombre de la hoja que tiene los comentarios)

Sub Copiar_comentarios()
Dim Celda As Range, Fila As Integer
On Error Resume Next ' por si no existen celdas con comentarios '
For Each Celda In Worksheets("hoja1").Cells.SpecialCells(xlCellTypeComments)
Fila = Fila + 1
Range("a" & Fila) = Celda.Address
Range("b" & Fila) = Celda.Comment.Text
Next
End Sub

saludos,
hector.

Preguntas similares