Renombrar hoja activa

Hola Tony,

¿De dónde tiene que sacar el nombre? ¿Cual sería el nombre de las siguientes
hojas? ¿Existirán las siguientes hojas o hay que comprobarlo?

Un saludo,
Juan

"Tony" escribió en el mensaje
news:

Hola otra vez...

Necesitaría incorporar en una macro la forma para renombrar una hoja que
tengo activa más las dos o tres que están a su derecha ¿Cómo sería la
macro?

Gracias de nuevo...

El nombre podría ir fijo, por ejemplo "datos personales"... El nombre de las
siguientes hojas también sería fijo: "agencias" y "teléfonos"... Y no
existirían las siguientes hojas sino que se crean con la macro

Gracias...

"Juan M" wrote:

Hola Tony,

¿De dónde tiene que sacar el nombre? ¿Cual sería el nombre de las siguientes
hojas? ¿Existirán las siguientes hojas o hay que comprobarlo?

Un saludo,
Juan

"Tony" escribió en el mensaje
news:
> Hola otra vez...
>
> Necesitaría incorporar en una macro la forma para renombrar una hoja que
> tengo activa más las dos o tres que están a su derecha ¿Cómo sería la
> macro?
>
> Gracias de nuevo...

Hola Tony,

Prueba esta macro, si tienes hojas con esos nombres saltará un error

Un saludo,
Juan

Inicio Código

Sub macro1()

ActiveSheet.Name = "datos personales"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "agencias"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "telefonos"

End Sub
Fin Código

"Tony" escribió

El nombre podría ir fijo, por ejemplo "datos personales"... El nombre de
las
siguientes hojas también sería fijo: "agencias" y "teléfonos"... Y no
existirían las siguientes hojas sino que se crean con la macro

Gracias...

"Juan M" wrote:

Hola Tony,

¿De dónde tiene que sacar el nombre? ¿Cual sería el nombre de las
siguientes
hojas? ¿Existirán las siguientes hojas o hay que comprobarlo?

Un saludo,
Juan

"Tony" escribió
> Hola otra vez...
>
> Necesitaría incorporar en una macro la forma para renombrar una hoja
> que
> tengo activa más las dos o tres que están a su derecha ¿Cómo sería
> la
> macro?
>
> Gracias de nuevo...

Hola Juan,
hoy y en pocos minutos acabas de facilitar mi trabajo inmensamente :-)
Cada año genero un nuevo libro con el contenido de 4 hojas por mes + una global así que modifico el
código que acabas de enviar y se acabó el insertar-renombrar 49 hojas.

Muchas gracias.
____________________________________________________________________________________
Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Juan M" escribió en el mensaje de noticias
news:%

Hola Tony,

Prueba esta macro, si tienes hojas con esos nombres saltará un error

Un saludo,
Juan

Inicio Código

Sub macro1()

ActiveSheet.Name = "datos personales"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "agencias"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "telefonos"

End Sub
Fin Código

Hola Palel,

Encantado de ser de ayuda :-)

Un saludo,
Juan


"Palel" escribió

Hola Juan,
hoy y en pocos minutos acabas de facilitar mi trabajo inmensamente :-)
Cada año genero un nuevo libro con el contenido de 4 hojas por mes + una
global así que modifico el código que acabas de enviar y se acabó el
insertar-renombrar 49 hojas.

Muchas gracias.
____________________________________________________________________________________
Saludos, Palel - [MVP Outlook]
http://www.infonegocio.com/luzylar/informatica.htm
ADD-IN para Outlook: http://www.infonegocio.com/luzylar/...utlook.htm
®El Rincón del Navegante - http://www.luzylar.com

*** Consulta en el Foro específico:
Outlook EXPRESS
news://msnews.microsoft.com/microso...ookexpress
OUTLOOK de OFFICE news://msnews.microsoft.com/microso...es.outlook
... hay más, busca el que necesites.
_________________________________________________________________________________________
"Juan M" escribió en el mensaje de noticias
news:%

Hola Tony,

Prueba esta macro, si tienes hojas con esos nombres saltará un error

Un saludo,
Juan

Inicio Código

Sub macro1()

ActiveSheet.Name = "datos personales"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "agencias"
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "telefonos"

End Sub
Fin Código