Excel - Excel - Calendario turnos

 
Vista:
Imágen de perfil de Juan Antonio
Val: 47
Ha aumentado 1 puesto en Excel (en relación al último mes)
Gráfica de Excel

Excel - Calendario turnos

Publicado por Juan Antonio (21 intervenciones) el 21/11/2022 12:46:41
Buenas,

Hice un excel para poder cuadrar los turnos en el trabajo y sumar horas, y a la vez poder modificar fechas sin mucho esfuerzo.

¿Qué ha pasado? Que en algún momento, cuando he editado algunas cosas más, de repente se ha desconfigurado el calendario y no se actualiza como debe. LO QUE FALLA ES LA LÍNEA DE NÚMEROS (DÍAS DEL MES), QUE SE MANTIENE EN EL AÑO 2000.

Antes actualizaba el año y automáticamente salía el calendario de enero, pudiendo cambiar los meses desde la lista desplegable y actualizándose automáticamente, además de marcar los festivos o eventos en la otra hoja y saliendo marcados de un color u otro en el mes acorde a la fecha.

Captura-de-pantalla-2022-11-21-123559

Podríais echarle un vistazo y ver si encontráis la solución? No doy con la tecla.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alfredo Lara
Val: 363
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Excel - Calendario turnos

Publicado por Alfredo Lara (120 intervenciones) el 28/11/2022 15:56:26
Hola Juan Antonio

Creo que necesitas cambiar la referencia del siguiente rango en tu macro
1
2
3
4
5
If i <= ultMes Then
            Cells(11, i + 1).Value = DateSerial(Range("B9").Value, mes, i)
        Else
            Cells(11, i + 1).Value = ""
        End If

Prueba y no comenta
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar