Denominación de hojas con fechas

Upsss...

"Héctor Miguel" escribió

hola, Juan !

ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")

Existe algun motivo por el que haya que restar el valor del dia presente
al de la fecha completa?
En un principio la siguiente funcionaría igual de bien
ActiveSheet.Name = Format(Date, "mmmmyyyy")

(basicamente...) porque OP (tonya) solicita el mes "anterior" a la fecha
actual...
"> ... nombrar a la hoja activa con el nombre del mes anterior al que
estamos ..."

saludos,
hector.

Pues muchas gracias por las contestaciones... El código ha funcionado
correctamente (puse al final el que me indicó Hector...

Pero una pregunta más: ¿podría poner en el nombre además de la fecha algún
literal? (por ejemplo que nombrase la hoja así: "diferencia-septiembre2008"

"Juan M" wrote:

Upsss...

"Héctor Miguel" escribió
> hola, Juan !
>
>>> ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")
>
>> Existe algun motivo por el que haya que restar el valor del dia presente
>> al de la fecha completa?
>> En un principio la siguiente funcionaría igual de bien
>> ActiveSheet.Name = Format(Date, "mmmmyyyy")
>
> (basicamente...) porque OP (tonya) solicita el mes "anterior" a la fecha
> actual...
> "> ... nombrar a la hoja activa con el nombre del mes anterior al que
> estamos ..."
>
> saludos,
> hector.
>

Hola,

Si se puede, pero debes tener en cuenta una serie de limitaciones.
No puedes exceder de 30 caracteres,
No puedes emplear caracteres 'prohibidos' como: *[]?/ y alguno más.

Para pones el literal sería de la siguiente forma:

ActiveSheet.Name = "Literal" & Format(Date - Day(Date), "mmmmyyyy")

Un saludo,
Juan

"tonya" escribió

Pues muchas gracias por las contestaciones... El código ha funcionado
correctamente (puse al final el que me indicó Hector...

Pero una pregunta más: ¿podría poner en el nombre además de la fecha algún
literal? (por ejemplo que nombrase la hoja así:
"diferencia-septiembre2008"

"Juan M" wrote:

Upsss...

"Héctor Miguel" escribió
> hola, Juan !
>
>>> ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")
>
>> Existe algun motivo por el que haya que restar el valor del dia
>> presente
>> al de la fecha completa?
>> En un principio la siguiente funcionaría igual de bien
>> ActiveSheet.Name = Format(Date, "mmmmyyyy")
>
> (basicamente...) porque OP (tonya) solicita el mes "anterior" a la
> fecha
> actual...
> "> ... nombrar a la hoja activa con el nombre del mes anterior al que
> estamos ..."
>
> saludos,
> hector.
>

Muchas gracias¡¡¡ Han funcionado a la perfección...

Por último (de momento ;) me gustaría saber cómo tengo que ponerlo para que
en lugar de calcular el mes anterior al que estamos ejecutandos, calculase
dos meses antes al que estamos... Por ejemplo: si estamos en el mes de
Octubre la hoja debería nombrarse como agosto... ¿Cómo sería el código?...

Muchas gracias de nuevo...

"Juan M" wrote:

Hola,

Si se puede, pero debes tener en cuenta una serie de limitaciones.
No puedes exceder de 30 caracteres,
No puedes emplear caracteres 'prohibidos' como: *[]?/ y alguno más.

Para pones el literal sería de la siguiente forma:

ActiveSheet.Name = "Literal" & Format(Date - Day(Date), "mmmmyyyy")

Un saludo,
Juan

"tonya" escribió
> Pues muchas gracias por las contestaciones... El código ha funcionado
> correctamente (puse al final el que me indicó Hector...
>
> Pero una pregunta más: ¿podría poner en el nombre además de la fecha algún
> literal? (por ejemplo que nombrase la hoja así:
> "diferencia-septiembre2008"
>
> "Juan M" wrote:
>
>> Upsss...
>>
>> "Héctor Miguel" escribió
>> > hola, Juan !
>> >
>> >>> ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")
>> >
>> >> Existe algun motivo por el que haya que restar el valor del dia
>> >> presente
>> >> al de la fecha completa?
>> >> En un principio la siguiente funcionaría igual de bien
>> >> ActiveSheet.Name = Format(Date, "mmmmyyyy")
>> >
>> > (basicamente...) porque OP (tonya) solicita el mes "anterior" a la
>> > fecha
>> > actual...
>> > "> ... nombrar a la hoja activa con el nombre del mes anterior al que
>> > estamos ..."
>> >
>> > saludos,
>> > hector.
>> >
>>
>>
>>

Hola,

Para poner dos meses antes, yo me inclinaría por la fórmula que expuso
Cacho:

ActiveSheet.Name = "Literal" & Format(DateSerial(Year(Date), Month(Date)-1,
0), "mmmmyy")

Un saludo,
Juan



"tonya" escribió

Muchas gracias¡¡¡ Han funcionado a la perfección...

Por último (de momento ;) me gustaría saber cómo tengo que ponerlo para
que
en lugar de calcular el mes anterior al que estamos ejecutandos, calculase
dos meses antes al que estamos... Por ejemplo: si estamos en el mes de
Octubre la hoja debería nombrarse como agosto... ¿Cómo sería el código?...

Muchas gracias de nuevo...

"Juan M" wrote:

Hola,

Si se puede, pero debes tener en cuenta una serie de limitaciones.
No puedes exceder de 30 caracteres,
No puedes emplear caracteres 'prohibidos' como: *[]?/ y alguno más.

Para pones el literal sería de la siguiente forma:

ActiveSheet.Name = "Literal" & Format(Date - Day(Date), "mmmmyyyy")

Un saludo,
Juan

"tonya" escribió
> Pues muchas gracias por las contestaciones... El código ha funcionado
> correctamente (puse al final el que me indicó Hector...
>
> Pero una pregunta más: ¿podría poner en el nombre además de la fecha
> algún
> literal? (por ejemplo que nombrase la hoja así:
> "diferencia-septiembre2008"
>
> "Juan M" wrote:
>
>> Upsss...
>>
>> "Héctor Miguel" escribió
>> > hola, Juan !
>> >
>> >>> ActiveSheet.Name = Format(Date - Day(Date), "mmmmyyyy")
>> >
>> >> Existe algun motivo por el que haya que restar el valor del dia
>> >> presente
>> >> al de la fecha completa?
>> >> En un principio la siguiente funcionaría igual de bien
>> >> ActiveSheet.Name = Format(Date, "mmmmyyyy")
>> >
>> > (basicamente...) porque OP (tonya) solicita el mes "anterior" a la
>> > fecha
>> > actual...
>> > "> ... nombrar a la hoja activa con el nombre del mes anterior al
>> > que
>> > estamos ..."
>> >
>> > saludos,
>> > hector.
>> >
>>
>>
>>