hacer un calendario anual con excel y cuadrante laboral

hola, 'anonimo/a' !

Como puedo hacer un calendario anual personalizado
para incluir en el un cuadrante laboral para un numero de personas superior a 40
dichos funcioanrios tendran un turno con la cadencia
TARDE, M/N, LIBRE, LIBRE, LIBRE, -T M/N LIBR ELIBRE LIBRE ETC ASI HASTA ACABAR EL MES ...
hay algun programa que me ayude a hacer ambas cosas

op1: prueba con el calendario de MS-Outlook (office) -?-

op2: hay sitios web con plantillas para calendarios. prueba (p.e.) con los siguientes:
http://office.microsoft.com/en-us/t...31033.aspx
http://www.TimeAndDate.com/

op3: si tu ya tienes claro el procedimiento (el quien/que/como/cuando/donde/por que/... y ese tipo de detalles)
podrias usar codigo/vba para desarrollar tu propio calendario segun tue necesidades especificas ;)
para lo cual, podria serte de utilidad el ver otros ejemplos como:
-> Chip Pearson: http://www.cpearson.com/Zips/CALENDAR.ZIP
(OJO: requiere que esten instalados los complementos herramientas para analisis y herramientas para analisis vba)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

p.d. hablando de la opcion 3, si te decides por hacerle la prueba, considera ademas lo siguiente:

1) revisa en evento '_activate' del userform en el proyecto de macros la linea que dice...
-> If Application.AddIns("Analysis Toolpak").Installed = False Then
que para instalaciones NO en ingles (p.e. en espanol) el complemento se llama distinto, cambia la instruccion a:
-> If Application.AddIns("herramientas para análisis").Installed = False Then

2) tambien es probable que debas modificar (en idioma) DOS o tres llamadas a funciones del complemento (en vba)...
(a menos que tengas instalado el complemento en ambos idiomas, el ejemplo usa las del idioma en ingles) :-((

1) en el codigo del userform, en el evento: -> Private Sub btnGoto_Click() la linea que dice:
S = "WORKDAY(DATEVALUE(""" & lblCurrDate.Caption & """)," & Format(Abs(Val(tbxUnits.Text)) * WhichWay) & ")"
2) en el Module1, en el procedimiento: -> Public Sub ShowStatusCell() la linea que dice:
Format(Evaluate("NETWORKDAYS(" & """" & Format(Now(), "mm/dd/yy") & _

-> "WORKDAY" <= DIA.LAB
-> "NETWORKDAYS" <= DIAS.LAB

3) para el caso de que necesites "calendarizar" eventos, cita, etc. etc. etc
a) en la hoja HList puedes agregar fecha/tipo/nombre para que el calendario muestre (en su fecha) los eventos "programados"
b) en la hoja Setup puedes personalizar otro tipo de variables

4) una vez corregido lo anterior, probablemente puedas empezar a programar otro que se adapte mejor a otros requerimientos -?-