Listar los comentarios de las celdas

"Esteban Dido" escribió

Hola,

Tengo en una hoja muchas celdas con comentarios. ¿Es posible hacer que
aparezca una lista con esos comentarios al final de la hoja, es decir un
par
de filas más abajo de la última fila con registros?

Gracias

Hola Esteban

A ver si este código te vale,
En un principio busca los comentarios de la hoja con índice 1 y deposita los
comentarios en la hoja con índice 2 cambia lo que creas oportuno en las
hojas para que sea lo que necesites.

Un saludo
Juan

Inicio Código

Sub Test()
Dim Celda As Comment
Dim i As Long

i = 1
For Each Celda In Worksheets(1).Comments
Worksheets(2).Range("A" & i) = Replace(Celda.Text, vbLf, "")
i = i + 1
Next Celda

End Sub

Fin Código

Hola Juan,

No me funciona, ni aun haciendo los cambios necesarios. :-((

"Juan M" escribió en el mensaje
news:e8zqL$

"Esteban Dido" escribió
> Hola,
>
> Tengo en una hoja muchas celdas con comentarios. ¿Es posible hacer que
> aparezca una lista con esos comentarios al final de la hoja, es decir un
> par
> de filas más abajo de la última fila con registros?
>
> Gracias
>


Hola Esteban

A ver si este código te vale,
En un principio busca los comentarios de la hoja con índice 1 y deposita

los

comentarios en la hoja con índice 2 cambia lo que creas oportuno en las
hojas para que sea lo que necesites.

Un saludo
Juan

Inicio Código

Sub Test()
Dim Celda As Comment
Dim i As Long

i = 1
For Each Celda In Worksheets(1).Comments
Worksheets(2).Range("A" & i) = Replace(Celda.Text, vbLf, "")
i = i + 1
Next Celda

End Sub

Fin Código

Hola Juan,
Sí funciona perfectamente. Algo se me había pasado por alto.
Muchas gracias
Esteban


"Juan M" escribió en el mensaje
news:e8zqL$

"Esteban Dido" escribió
> Hola,
>
> Tengo en una hoja muchas celdas con comentarios. ¿Es posible hacer que
> aparezca una lista con esos comentarios al final de la hoja, es decir un
> par
> de filas más abajo de la última fila con registros?
>
> Gracias
>


Hola Esteban

A ver si este código te vale,
En un principio busca los comentarios de la hoja con índice 1 y deposita

los

comentarios en la hoja con índice 2 cambia lo que creas oportuno en las
hojas para que sea lo que necesites.

Un saludo
Juan

Inicio Código

Sub Test()
Dim Celda As Comment
Dim i As Long

i = 1
For Each Celda In Worksheets(1).Comments
Worksheets(2).Range("A" & i) = Replace(Celda.Text, vbLf, "")
i = i + 1
Next Celda

End Sub

Fin Código