Fechas en excel
Hola
Lo que necesito hacer es que una celda tengo una fecha en el siguiente formato dd/mm/aaaa y necesito sumar 365 días es decir 1 año y que en la misma celda me salga la nueva fecha, por ejemplo si ingreso 1 enero 2008 aumento 365 días y que me salga 1 enero 2009 y así sucesivamente con cualquier fecha
Espero me puedas ayudar y te agradezco anticipadamente
Lo que necesito hacer es que una celda tengo una fecha en el siguiente formato dd/mm/aaaa y necesito sumar 365 días es decir 1 año y que en la misma celda me salga la nueva fecha, por ejemplo si ingreso 1 enero 2008 aumento 365 días y que me salga 1 enero 2009 y así sucesivamente con cualquier fecha
Espero me puedas ayudar y te agradezco anticipadamente
1 Respuesta
Respuesta de tavopz
1
Puedes hacer la suma usando el evento Change del Worksheet. Algo así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = Target + 365
Application.EnableEvents = False
Range(Target.Address).Value = x
Application.EnableEvents = True
End If
End Sub
Claro, si la celda donde tendrás la fecha es diferente a A1, entonces simplemente cambias la dirección en la fórmula.
Este NO lo copias en un Módulo sino en el código del worksheet donde deseas la función. Es decir, le das clic derecho al nombre de la hoja y seleccionas Ver Código y allí pegas este código.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
x = Target + 365
Application.EnableEvents = False
Range(Target.Address).Value = x
Application.EnableEvents = True
End If
End Sub
Claro, si la celda donde tendrás la fecha es diferente a A1, entonces simplemente cambias la dirección en la fórmula.
Este NO lo copias en un Módulo sino en el código del worksheet donde deseas la función. Es decir, le das clic derecho al nombre de la hoja y seleccionas Ver Código y allí pegas este código.
