Sobre comentarios

"Cesar" escribió en el mensaje news:

...
mi pregunta es si se puede capturar el valor de un comentario utilizando
formulas o codigo

Hola César,
como fórmula no lo sé, pero por código puede ser así:
'******
...
If Range("A2").Comment Is Nothing = False Then
MsgBox Range("A2").Comment.Text
End If
...
'******

O bien puedes leer todos los comentarios de una hoja:
'**********
Dim objComment As Comment

For Each objComment In ActiveSheet.Comments
With objComment
Debug.Print "Celda(" & .Parent.Address & ").Comentario.Texto = " & .Text
End With
Next
'**********


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

Esta funcion te devuelve el comentario de la celda que pasas como parametro:

Function VerComentario(miRango As Range)
VerComentario = miRango.Comment.Text
End Function

Es muy simple, pero te puede dar ideas para lo que necesites hacer.
Miguel.

"Cesar" wrote:

Hola!, el caso es que tengo una hoja en la que una serie de celdas tiene como
comentarios la fecha, un comentario con una fecha para cada celda,
mi pregunta es si se puede capturar el valor de un comentario utilizando
formulas o codigo. Muchas gracias!!!

César.

Muchas gracias Vinchenzo!!!

"Vinchenzo vinç" escribió:

"Cesar" escribió en el mensaje news:
> ...
> mi pregunta es si se puede capturar el valor de un comentario utilizando
> formulas o codigo


Hola César,
como fórmula no lo sé, pero por código puede ser así:
'******
...
If Range("A2").Comment Is Nothing = False Then
MsgBox Range("A2").Comment.Text
End If
...
'******

O bien puedes leer todos los comentarios de una hoja:
'**********
Dim objComment As Comment

For Each objComment In ActiveSheet.Comments
With objComment
Debug.Print "Celda(" & .Parent.Address & ").Comentario.Texto = " & .Text
End With
Next
'**********


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

Muchas gracias Miguel!!!

"Miguel Zapico" escribió:

Esta funcion te devuelve el comentario de la celda que pasas como parametro:

Function VerComentario(miRango As Range)
VerComentario = miRango.Comment.Text
End Function

Es muy simple, pero te puede dar ideas para lo que necesites hacer.
Miguel.

"Cesar" wrote:

> Hola!, el caso es que tengo una hoja en la que una serie de celdas tiene como
> comentarios la fecha, un comentario con una fecha para cada celda,
> mi pregunta es si se puede capturar el valor de un comentario utilizando
> formulas o codigo. Muchas gracias!!!
>
> César.

saludos:

http://www.asap-utilities.com/

el complemento "ASAP Utilities" disponible en esta pagina tiene una opcion,
que hace lo que usted quiere ya que agrega una nueva funcion para extraer
comentarios a una celda

es asi

=ASAPGetComment(" la direccion de celda con comentario")
Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"Cesar" escribió en el mensaje
news:
| Hola!, el caso es que tengo una hoja en la que una serie de celdas tiene
como
| comentarios la fecha, un comentario con una fecha para cada celda,
| mi pregunta es si se puede capturar el valor de un comentario utilizando
| formulas o codigo. Muchas gracias!!!
|
| César.