Hacer un calendario con Excel

Como te dice Hector, tu problema es que no coincide el
formato de fechas que seguramente tu manejas...
Si el formato de fecha que tu utilizas es Dia/Mes/Año
(dd/mm/aa), entonces has los siguientes cambios...

1. La instruccion que te manda error debe quedar así:

If Not Application.Intersect(ActiveCell, Range("CalRng"))
Is Nothing Then
If Len(ActiveCell.Value) > 0 Then
Ofst = ActiveCellMonthOffset()
TempDate = DateSerial(Range("TheYear"), Range
("TheMonth") + Ofst, _
Val(Trim(Left(ActiveCell.Value, 2))))
Range("StatusCell").Value = Format(TempDate, " d
mmm yyyy") _
& " " & Format(DayOfYear(TempDate), "##0") &
_
NumberSuffix(DayOfYear(TempDate)) & " day of
year." & _
" Days From Now: " & Format(DateDiff("d", Now
(), TempDate), "##,##0") & _
" (Workdays: " & _
Format(Evaluate("NETWORKDAYS(" & """" & Format
(Now(), "dd/mm/yy") & _
"""" & Application.International
(xlListSeparator) & _
"""" & Format(TempDate, "dd/mm/yy") & """"
& ")")) & ")"


2. El contenido del formato de fecha de la Hoja Setup que
esta en la celda C12 cambiala así:
ddd, dd-mmm-aaaa hh:mm

y eso es todo... con eso debe funcionar, ademas de por
supuesto haber instalado los componentes que ya menciono
Hector.

Saludos
Servando Villalon

Hola Hécto:

En la hoja que propones
http://www.cpearson.com/Zips/CALENDAR.ZIP
he resuelto un montos de cosas desde el inglés pero aqui
me trabo

Range("StatusCell").Value = Format(TempDate, "mmm d,
yyyy") & " " & Format(DayOfYear(TempDate), "##0") &
NumberSuffix(DayOfYear(TempDate)) & " day of year." & "
Days From Now: " & Format(DateDiff("d", Now(),
TempDate), "##,##0") & " (Workdays: " & Format(Evaluate
("NETWORKDAYS(" & """" & Format(Now(), "mm/dd/yy")

& """"

& Application.International(xlListSeparator) & """" &
Format(TempDate, "mm/dd/yy") & """" & ")")) & ")"

Esta es la parte que no se por que no funciona a ver si
se les ocurre algo.

Format(Evaluate("NETWORKDAYS(" & """" & Format(Now
(), "mm/dd/yy") & """" & Application.International
(xlListSeparator) & """" & Format(TempDate, "mm/dd/yy")
& """" & ")")) & ")"

Pone que no coinciden los tipos ?????

El resto parece que funciona todo.

Hola, Salva !

... como ... puede hacer calendarios mensuales en

Excel para que salgan de forma automatica los meses.

hay sitios web con plantillas para calendarios. prueba

[p.e.] con los siguientes:

http://officeupdate.microsoft.com/T...ery/Templa

t

es/5/tp1199.asp

http://www.microsoft.com/exceldev/a...lExcel.htm
http://www.TimeAndDate.com/

http://www.cpearson.com/Zips/CALENDAR.ZIP
[necesitaras que esten instalados los siguientes

complementos =>ambos<=]

Herramientas para Analisis [Analysis ToolPack]
Herramientas para Analisis VBA [Analysis ToolPack VBA]

saludos,
Héctor.


.

.

Me gustaria me lo enviases a: gracias
"PepitoGrillo" escribió en el mensaje
news:576501c3acf8$0c80f270$
Hola Salva

Si me das una dirección de correo válida te puedo mandar un
libro que me hice para hacer calendarios.

Comrimido en zip pesa 38 K

y si el grupo quiere y me decís un sitio donde subirlo yo
lo subo para que se lo descarge el que quiera

Soy novato en el uso de Excel, y quisiera saber como se
puede hacer calendarios mensuales en Excel para que
salgan de forma automática los meses.
Gracias
.