Sumar uno cada vez que cambie el mes
Me gustaría me ayudaran con los siguiente en donde trabajo llevo un control de las vacaciones de los compañeros sumo y resto los días para así indicarles cuando saldo tienen a favor con la resta no tengo problema pero el caso es que cada vez que finaliza un mes olvido sumar un día, hay alguna manera de que esto se pueda hacer automático, que cada primero de mes se me sume una unidad en cada fila de la tabla.
Reserva una celda para poner la fecha (puedes ponerla en donde no se vea ni te estorbe; p.e. en la celda(1,100))
Ahora inserta esta sub: Que comprobará la fecha cada vez que actives la hoja.
Private Sub Worksheet_Activate()
mes = Cells(100, 1)
MesActual = Format(Date, "MM")
If Val(MesActual) > Val(mes) Then GoSub Suma
Cells(100, 1) = MesActual
Exit Sub
Suma:
'Aqui inserta la rutina para sumar 1 a cada celda del rango que quieras.
' Esta rutina sólo se ejecutara cada vez que el mes registrado sea distinto del mes actual,
'y solo una vez, porque en cuanto lo haga se actualiza.
End Sub
