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
 

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:
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




Preguntas similares