Hacer un calendario

hola, Marcela !

... me fije y estan inactivas por lo tanto seguire tu consejo ...

OJO: si aparecen en el listado [ficha complementos] aun estando como 'inactivas'...
no seria necesaria una re/instalacion de la 'suite'...

-> selecciona complementos de excel en el desplegable al final de ficha [complementos]
y pulsa el boton de 'ir a...' [esto abre el dialogo del administrador de complementos]
-> pon una marca en ambos complementos [y acepta]
-> abre el libro [calendar de Chip Pearson] y...

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

hola, Feliciano !

__ 1 __
Tengo los complementos aludidos.
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("NETWORKDAYS(" & """" & Format(Now(), "Short Date") & _
"""" & Application.International(xlListSeparator) & _
"""" & Format(TempDate, "Short Date") & """" & ")")) & ")"
Puede que los errores se deban a formatos. He reemplazado [yyyy] por [aaaa] y no soluciono nada.

1) no es necesario reemplazar las 'yyyy' por 'aaaa'. VBA es US-Centric y solo 'reconoce' los a#os si se indican como 'yyyy'
tambien [es +/- 'universalmente conocido' que] las funciones del complemento 'herramientas para analisis' [aun por codigo]
-> deben ser indicadas en el lenguaje instalado de la aplicacion [ingles, espa#ol, frances, etc.], lo cual esta indicado por el archivo:
-> ATPVBAxx.XLA[M] donde las 'xx' corresponden al idioma de la aplicacion [EN-ingles, ES espa#ol, etc.]
-> a menos que tengas instalados ambos complementos [ATPVBAEN y ATPVBAES] -?-
necesitaras modificar en el codigo la referencia a la funcion NETWORKDAYS por: -> DIAS.LAB [o en el idioma instalado] :-((

-> prueba haciendo una busqueda en archivos y carpetas por: atpvba*.* [para comprobar cual/es tienes instalado/s] ;)

__ 2 __
En G2 tenemos =TEXTO(AHORA();CurrentDateFormat) y muestra "mar, 29-may-yyy 23:59"
en el momento de abrir el libro (no muestra el a#o y ademas muestra 3 y no 4 "y").

2) 'similar' a lo anterior, en el archivo del ejemplo existe una hoja 'Setup' y la celda 'C12' se llama 'CurrentDateFormat'
donde esta 'indicado' el formato de 'texto' -> obviamente para uso de la funcion =texto(xx,"formato")
y contiene textualmente: ddd, dd-mmm-yyy hh:mm
'ahi' es donde, necesitaras modificar para que coincida con el idioma instalado
p.e. a: -> ddd, dd-mmm-aaa hh:mm
nota: tampoco es necesario 'completar' a 4 'aaaa' [con indicar solo 3, la cuarta es auto-asumida por excel] ;)

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

p.d. estaba 'a punto' de no leer tu post:
mas de 3 o 4 Kb en un mensaje ??? [segun el hilo... => adjuntos o formatos html -casi- 'seguros'] :-(

On 29 mayo, 18:14, "Héctor Miguel"
wrote:

hola, Feliciano !

__ 1 __
Tengo los complementos aludidos.
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("NETWORKDAYS(" & """" & Format(Now(), "Short Date") & _
"""" & Application.International(xlListSeparator) & _
"""" & Format(TempDate, "Short Date") & """" & ")")) & ")"
Puede que los errores se deban a formatos. He reemplazado [yyyy] por [aaaa] y no soluciono nada.

1) no es necesario reemplazar las 'yyyy' por 'aaaa'. VBA es US-Centric y solo 'reconoce' los a#os si se indican como 'yyyy'
tambien [es +/- 'universalmente conocido' que] las funciones del complemento 'herramientas para analisis' [aun por codigo]
-> deben ser indicadas en el lenguaje instalado de la aplicacion [ingles, espa#ol, frances, etc.], lo cual esta indicado por el archivo:
-> ATPVBAxx.XLA[M] donde las 'xx' corresponden al idioma de la aplicacion [EN-ingles, ES espa#ol, etc.]
-> a menos que tengas instalados ambos complementos [ATPVBAEN y ATPVBAES] -?-
necesitaras modificar en el codigo la referencia a la funcion NETWORKDAYS por: -> DIAS.LAB [o en el idioma instalado] :-((

-> prueba haciendo una busqueda en archivos y carpetas por: atpvba*.* [para comprobar cual/es tienes instalado/s] ;)

__ 2 __
En G2 tenemos =TEXTO(AHORA();CurrentDateFormat) y muestra "mar, 29-may-yyy 23:59"
en el momento de abrir el libro (no muestra el a#o y ademas muestra 3 y no 4 "y").

2) 'similar' a lo anterior, en el archivo del ejemplo existe una hoja 'Setup' y la celda 'C12' se llama 'CurrentDateFormat'
donde esta 'indicado' el formato de 'texto' -> obviamente para uso de la funcion =texto(xx,"formato")
y contiene textualmente: ddd, dd-mmm-yyy hh:mm
'ahi' es donde, necesitaras modificar para que coincida con el idioma instalado
p.e. a: -> ddd, dd-mmm-aaa hh:mm
nota: tampoco es necesario 'completar' a 4 'aaaa' [con indicar solo 3, la cuarta es auto-asumida por excel] ;)

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

p.d. estaba 'a punto' de no leer tu post:
mas de 3 o 4 Kb en un mensaje ??? [segun el hilo... => adjuntos o formatos html -casi- 'seguros'] :-(

Hola Hector Miguel:
me marca error en la subrutina de activacion del form 'Private Sub
UserForm_Activate',concretamente en la linea que dice:
'If Application.AddIns("Analysis Toolpak").Installed = False Then'
el error es :'subindice fuera de intervalo'
tengo intslado el 'atpvbaen.xla' (casilla del complemento debidamente
marcada y mostrado el complemento en el VBE)

salu2.de este despistado :-)

hola, (...) !

... me marca error en la subrutina de activacion del form 'Private Sub UserForm_Activate', concretamente en la linea que dice:
'If Application.AddIns("Analysis Toolpak").Installed = False Then'
el error es :'subindice fuera de intervalo'
tengo intslado el 'atpvbaen.xla' (casilla del complemento debidamente marcada y mostrado el complemento en el VBE)

-> el error 9 'subindice fuera del intervalo' se debe a que la instruccion en el codigo no lo esta encontrando en la lista de complementos
ya que en un excel en ingles, el complemento de las ATPVBAxx en el dialogo donde se des/activan, se muestra como 'Analysis Toolpak'
PERO... en un idioma diferente del ingles [obviamente no p.e.] para espa#ol se muestra como 'Herramientas para análisis'

-> en este caso, modifica el 'nombre' del complemento a: -> If Application.AddIns("Herramientas para análisis").Installed = False Then

saludos,
hector.

On 31 mayo, 11:02, "Héctor Miguel"
wrote:

hola, (...) !

> ... me marca error en la subrutina de activacion del form 'Private Sub UserForm_Activate', concretamente en la linea que dice:
> 'If Application.AddIns("Analysis Toolpak").Installed = False Then'
> el error es :'subindice fuera de intervalo'
> tengo intslado el 'atpvbaen.xla' (casilla del complemento debidamente marcada y mostrado el complemento en el VBE)

-> el error 9 'subindice fuera del intervalo' se debe a que la instruccion en el codigo no lo esta encontrando en la lista de complementos
ya que en un excel en ingles, el complemento de las ATPVBAxx en el dialogo donde se des/activan, se muestra como 'Analysis Toolpak'
PERO... en un idioma diferente del ingles [obviamente no p.e.] para espa#ol se muestra como 'Herramientas para análisis'

-> en este caso, modifica el 'nombre' del complemento a: -> If Application.AddIns("Herramientas para análisis").Installed = False Then

saludos,
hector.

Hola Hector Miguel:
Upss vaya despieste el mio :-D; ciertamente eso era
la interpretacion que yo le habia dado es que si tengo el atpvben es
por que tenia la version en Ingles y entoces esperaba que me lo
reconociera como tal [en ingles],pero ciertamente el titulo
delcomplemento aparece en español.
1000 gracias.

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