Insertar la fecha como comentario

03/02/2006 - 14:36 por Mayor Rapaz | Informe spam

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

pterodactiluss@i.com.uy

Siga el debate

13 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 KL

03/02/2006 - 15:41 | Informe spam

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:
Mostrar la cita

Responder a este mensaje

#2 Alfredo_espinosa

03/02/2006 - 16:09 | Informe spam

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

Responder a este mensaje

#3 Mayor Rapaz

05/02/2006 - 14:08 | Informe spam

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:
Mostrar la cita

Responder a este mensaje

#4 KL

05/02/2006 - 15:05 | Informe spam

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:
Mostrar la cita