Cuando esté desarrollando una hoja de trabajo, es posible que deba realizar un seguimiento de cierta información sobre su libro de trabajo. Por ejemplo, es posible que desee colocar la fecha de creación de un libro de trabajo en una celda. Si bien Excel proporciona algunas funciones de hoja de trabajo para fechas (como AHORA o HOY), no proporciona una función de hoja de trabajo para acceder a la fecha de creación del libro.

Esto significa que la respuesta está en usar una macro. Por ejemplo, puede crear una macro que determine la fecha actual y la ingrese (como texto) en una celda en particular. Esta macro podría ejecutarse cada vez que creara un nuevo libro de trabajo nombrando la macro Auto_Open. El siguiente es un ejemplo de una macro de este tipo:

Sub Auto_Open()

If Worksheets.Application.Range("A1") = "" Then         Worksheets.Application.Range("A1") = Format(Date, "long Date")

End If End Sub

La macro comprueba qué hay en la celda A1. Si no hay nada allí, coloca la versión de texto de la fecha de hoy allí. Si ya hay algo allí (lo que habría cada vez que abra el libro de trabajo posteriormente), la información se deja intacta e ilesa.

Quizás el enfoque más satisfactorio, sin embargo, es acceder al sistema operativo y extraer la fecha de creación del archivo para el libro de trabajo actual. Esto se puede hacer con la siguiente función macro:

Function CreateDate() As String     Dim Temp As String     On Error GoTo NoFile     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.Name).dateCreated

CreateDate = Left(Temp, InStr(Temp, " ") - 1)

GoTo Done NoFile:

CreateDate = "Not Saved"

Done:

End Function

Tenga en cuenta que este enfoque no está vinculado a una celda en particular en su hoja de trabajo. Para usar la macro, simplemente coloque lo siguiente en cualquier celda de su hoja de trabajo:

=CreateDate()

La función devuelve «No guardado» (si el libro de trabajo es nuevo y no se ha guardado antes) o devuelve un valor de texto que representa la fecha en la que se creó el libro de trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2367) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Noting_the_Workbook_Creation_Date [Tomando nota de la fecha de creación del libro].