A Brian le gustaría ingresar una fecha escribiendo solo el mes y el día.

Excel asume que el año es el año actual, pero le gustaría que el año fuera el de la próxima vez que ocurra esa fecha. Por ejemplo, si hoy es 1/6/18 y Brian escribe 7/1, Excel automáticamente asume un año de 2018. Si Brian escribe 5/1 el mismo día, Excel debería asumir un año de 2019, como 5/1 ya está en el pasado. Brian sabe que puede usar una fórmula para que la fecha se muestre en una celda diferente, pero se pregunta cómo puede lograr que Excel adopte este método de forma predeterminada mientras escribe fechas en las celdas.

Aparte de jugar con la fecha de su sistema o editar las fechas después de la entrada, la solución requiere el uso de una macro. El siguiente controlador de eventos funcionará:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub     If Target = "" Then Exit Sub

If IsDate(Target) Then         If Target < Date Then             If Year(Target) = Year(Date) Then                 Application.EnableEvents = False                     Target.Value = DateAdd("yyyy", 1, Target)

Application.EnableEvents = True             End If         End If     End If End Sub

Para agregar esta macro a su libro de trabajo, simplemente haga clic con el botón derecho en la pestaña de la hoja de trabajo donde desea que esté operativa y luego elija Ver código. En la ventana de código resultante, agregue la macro anterior.

Ahora, cada vez que realiza un cambio en la hoja de trabajo, se verifica para ver si es una fecha. Si es así, y la fecha es anterior a la fecha de hoy, se agrega un año a la fecha. Tenga en cuenta que el código verifica para asegurarse de que el año de la fecha que se ingresa sea el mismo que el año actual. Sin esta verificación, cualquier fecha en el pasado, incluso fechas con muchos años de antigüedad, se incrementaría. Probablemente no sea su intención, por lo que la verificación está incluida.

La macro no afectará las fechas ingresadas en varias celdas a la vez, ni afectará las fechas ingresadas como valores de texto.

_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 (13601) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.