Insertar la fecha como comentario

Hola Mayor Rapaz,

Prueba con esto:

Sub Macro1()
On Error Resume Next
With ActiveCell
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
End Sub

Aparte de otras cosas:
1) en VBA tienes que usar las funciones en ingles (salvo las propiedades FormulaLocal y FormulaR1C1Local)
2) la funcion VBA para la fecha es DATE (sin parentesis)
3) un comentario no admite formulas
4) la sintaxis para usar las funciones de hoja de calculo en VBA (no todas estan permitidas) debe ser una de las sigientes:
Application.WorksheetFunction.Sum(...)
WorksheetFunction.Sum(...)
Application.Sum(...) -> esta ultima trata los errores de forma un tanto diferente.
5) no es necesraio seleccionar celdas para manipular sus propiedades
6) cuando creas un procedimiento en VBA, te recomiendo que temporalmente sustituyas ActiveCell con un rango fijo, p.ej. Range("A1")
y asi Excel te desplegara la lista de propiedades y metodos disponibles cada vez que introduzcas el punto (.) despues del objeto
(esto viene a cuento de por la propiedad Function que le has asignado a la propiedad Comment)

Saludos,
KL

"Mayor Rapaz" wrote in message news:

Necesito una macro que me coloque en la celda activa la fecha de hoy .
He probado con

Sub Macro1()

ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Function = HOY()
Range("A1").Select

End Sub

pero me esta devolviendo un error que no logro solucionar.
Gracias desde ya

Intenta con esto:

Sub Macro1()
Dim Fecha As String
Fecha = Date
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Fecha
Range("A1").Select
End Sub

El error que te marca es por que ActiveCell.Comment no tiene la propiedad
Function y por que las funciones desde VBA se tienen que llamar en ingles,
aunque tu Excel este en español.

Alfredo Espinosa

Ok , funcionó perfecto
Muchas gracias, peo te hago otro pregunta.
Que debo modificar para que lo haga en varias celdas seleccionadas ??
Es decir seleccionar varias celas y que el comentariose incluya en todas las
seleccionadas

Gracias desde ya



"Alfredo_espinosa" escribió en
el mensaje news:

Intenta con esto:

Sub Macro1()
Dim Fecha As String
Fecha = Date
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Fecha
Range("A1").Select
End Sub

El error que te marca es por que ActiveCell.Comment no tiene la propiedad
Function y por que las funciones desde VBA se tienen que llamar en ingles,
aunque tu Excel este en español.

Alfredo Espinosa

Hola Mayor Rapaz,

Prueba este:

Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub

Saludos,
KL


"Mayor Rapaz" wrote in message news:

Ok , funcionó perfecto
Muchas gracias, peo te hago otro pregunta.
Que debo modificar para que lo haga en varias celdas seleccionadas ??
Es decir seleccionar varias celas y que el comentariose incluya en todas las seleccionadas

Gracias desde ya



"Alfredo_espinosa" escribió en el mensaje
news:

Intenta con esto:

Sub Macro1()
Dim Fecha As String
Fecha = Date
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Fecha
Range("A1").Select
End Sub

El error que te marca es por que ActiveCell.Comment no tiene la propiedad
Function y por que las funciones desde VBA se tienen que llamar en ingles,
aunque tu Excel este en español.

Alfredo Espinosa

Funciono perfecto . Gracias mil.



"KL" escribio en el mensaje
news:

Hola Mayor Rapaz,

Prueba este:

Sub Macro1()
If Not TypeOf Selection Is Range Then Exit Sub
On Error Resume Next
For Each celda In Selection
With celda
.Comment.Delete
.AddComment Format(Date, "dd/mm/yyyy")
End With
Next celda
End Sub

Saludos,
KL


"Mayor Rapaz" wrote in message
news:

Ok , funcionó perfecto
Muchas gracias, peo te hago otro pregunta.
Que debo modificar para que lo haga en varias celdas seleccionadas ??
Es decir seleccionar varias celas y que el comentariose incluya en todas
las seleccionadas

Gracias desde ya



"Alfredo_espinosa" escribió
en el mensaje news:

Intenta con esto:

Sub Macro1()
Dim Fecha As String
Fecha = Date
ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Fecha
Range("A1").Select
End Sub

El error que te marca es por que ActiveCell.Comment no tiene la
propiedad
Function y por que las funciones desde VBA se tienen que llamar en
ingles,
aunque tu Excel este en español.

Alfredo Espinosa