Hacer un calendario

hola, ?

nota: parece que mi 'nickname' no lo visualizas por que en varias ocasiones
utilizas parentesis o signos de interrogacion.
sera problema de mi cuenta???

nop !... el *problema*... es mio :))

-> cuando el 'nick' no resulta *obvio*...
a) busco en el mensaje y/o en la firma al final del mismo de quien se trata :D
b) si no encuentro algun nombre y sigo 'si ver'... *a quien* le estoy 'hablando'...
me refiero al postor del mensaje como 'anonimo/a' o simplemente con signo de interrogacion -?-

-> dicha 'forma' de 'hablarle' [al postor de la consulta] *pretendo* que sea una 'invitacion' a...
*exponer* su nombre, NO *obligadamente* su direccion *real* de correo electronico [por aquello de recibir spams]

-> MI *problema*... es que me gusta *mirar a los ojos*... a mi interlocutor :))

saludos,
hector.

Hola Hector:
Antes de nada gracias por tus esplendidas y ejemplares aclaraciones y
puntualizaciones.
Sigo atascado, al depurar se para en:
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("DIAS.LAB(" & """" & Format(Now(), "Short Date")
& _
"""" & Application.International(xlListSeparator) & _
=> """" & Format(TempDate, "Short Date") & """" & ")")) & ")"
Como observaras he cambiado
Format(Evaluate("NETWORKDAYS(" & """" & Format(Now(), "Short
Date") & _
por
Format(Evaluate("DIAS.LAB(" & """" & Format(Now(), "Short Date")
& _

y efectivamente tengo ambos complementos instalados [ATPVBAEN y ATPVBAES]
ambos con extension "xla".

Por otra parte decir que he cambiado la celda C12. He puesto ddddd,
dd-mmmm-aaa hh:mm. Ahora sale en el calendario el dia de la semana y el mes
a texto completo (por cuestion de gusto).

¿Por que se para en => """" & Format(TempDate, "Short Date") & """" &
")")) & ")" ?. El error en tiempo de ejecucion es el 13 - El tipo no
coincide.
Otra cosa que he visto es que aparece comentada 'en verde la misma
instruccion pero con cierta variante:
' """" & Format(TempDate, "mm/dd/yy") & """" & ")")) & ")"


Saludos,

Feliciano.

p.d. esta vez me he asegurado que el mensaje salga sin formato [segun
aparece en mi OE mi mensaje anterior pesa 7 kb] seguramente lo envie con
formato html; lo siento :-(

"Héctor Miguel" escribió en el mensaje
news:

hola, ?

nota: parece que mi 'nickname' no lo visualizas por que en varias
ocasiones
utilizas parentesis o signos de interrogacion.
sera problema de mi cuenta???

nop !... el *problema*... es mio :))

-> cuando el 'nick' no resulta *obvio*...
a) busco en el mensaje y/o en la firma al final del mismo de quien se
trata :D
b) si no encuentro algun nombre y sigo 'si ver'... *a quien* le estoy
'hablando'...
me refiero al postor del mensaje como 'anonimo/a' o simplemente con
signo de interrogacion -?-

-> dicha 'forma' de 'hablarle' [al postor de la consulta] *pretendo* que
sea una 'invitacion' a...
*exponer* su nombre, NO *obligadamente* su direccion *real* de correo
electronico [por aquello de recibir spams]

-> MI *problema*... es que me gusta *mirar a los ojos*... a mi
interlocutor :))

saludos,
hector.

hola, Feliciano !

1) debes tener en consideracion que dicho archivo fue 'originalmente' pensado para los usuarios con sistemas USA [p.e.]
en la version que [yo] tengo 'descargada' a mi PC [desde hace ya algunos 'mesesillos']...
a) NO aparece la linea 'comentada' que mencionas: -> """" & Format(TempDate, "mm/dd/yy") & """" & ")")) & ")"
b) dicha linea comentada ERA la 'estandar' para las 'conversiones' con 'Format' del 'TempDate'
c) 'asumo/supongo'/...' que la variacion ha 'obedecido' a 'conflictos' al usarse en equipos con otras configuraciones regionales
-> ya que el formato "mm/dd/yy" es estandar/obligado/... para un excel en ingles [y para VBA]... PERO...
-> si tu sistema utiliza p.e. "dd/mm/aa" fue necesario sustituir el "mm/dd/yy" por: -> "Short Date" [configuracion regional]

2) [supongo que]... 'aun y con ello'... no fue suficiente para 'capturar' -posibles- eventualidades a otras configuraciones regionales ?
[asumo que tu sistema usa el orden de fechas "dd/mm/aa" y que usas como separador de listas/argumentos 'punto_y_coma'] ?
-> *nota* que hay otra 'conversion' que esta 'detectando' cual es el separador de listas/argumentos [configuracion regional]
que dice: -> """" & Application.International(xlListSeparator) & _
es -casi- seguro [mas que probable] que el uso de punto_y_coma *mezclado* con formatos/valores/... de FECHAS...
-> no sea [del todo] *compatible* para codigos en VBA -???-

3) [y solo por no dejarlo 'en el tintero']... si en tu equipo tienes instalados/habilitados AMBOS complementos -> ATPVBA[EN/ES].xla
no es necesario cambiar en el codigo de VBA -> el nombre de la funcion [WORKDAYS <-> DIAS.LAB] -debiera ser *transparente*-

4) el ejemplo [y su codigo]... -para 'mi' gusto-... esta muy... *variabilizado* [quizas 'demasiado'], por lo que...
no resulta *sencillo* hacerle correcciones *menores* [como el caso que nos ocupa] :-((
ademas de que continua la 'consideracion' de que el mismo fue 'pensado' para su uso 'en ingles' :D

-> [de cualquier forma] las correcciones/adaptaciones/... [y segun como vayan apareciendo]...
[creo que] van a 'seguir' por el rumbo de los comentarios anteriores :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

Sigo atascado, al depurar se para en:
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("DIAS.LAB(" & """" & Format(Now(), "Short Date") & _
"""" & Application.International(xlListSeparator) & _
=> """" & Format(TempDate, "Short Date") & """" & ")")) & ")"
Como observaras he cambiado
Format(Evaluate("NETWORKDAYS(" & """" & Format(Now(), "Short Date") & _
por
Format(Evaluate("DIAS.LAB(" & """" & Format(Now(), "Short Date") & _

y efectivamente tengo ambos complementos instalados [ATPVBAEN y ATPVBAES] ambos con extension "xla".

Por otra parte decir que he cambiado la celda C12. He puesto ddddd, dd-mmmm-aaa hh:mm.
Ahora sale en el calendario el dia de la semana y el mes a texto completo (por cuestion de gusto).

Por que se para en => """" & Format(TempDate, "Short Date") & """" & ")")) & ")" ?.
El error en tiempo de ejecucion es el 13 - El tipo no coincide.
Otra cosa que he visto es que aparece comentada 'en verde la misma instruccion pero con cierta variante:
' """" & Format(TempDate, "mm/dd/yy") & """" & ")")) & ")"

p.d. esta vez me he asegurado que el mensaje salga sin formato
[segun aparece en mi OE mi mensaje anterior pesa 7 kb] seguramente lo envie con formato html; lo siento :-(