Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Que formula ocupar para renombrar varias hojas de excel a la vez utilizando el campo y8 de cada hoja?

8 views
Skip to first unread message

MGL19DF

unread,
Oct 11, 2007, 3:22:26 PM10/11/07
to

Tengo un libro de esxel que se llama Folios y este libro jala datos de
otro a su vez, pero del libro Folio necesito que cada hoja de jale
automaticamente un nombre que esta hubicado en la celda y8, utilice la
siguiente formula, pero solo se aplica a la primer hoja, he intentado
modificarla pero no tengo exito.
Me gustaria saber si alguien tiene por ahi o sabe la formula exacta
para que cada hoja de este libro sea renombrada automaticamente cada
vez que abra el documento.

Sub NombreHoja()
ActiveSheet.Name = Range("Y8").Value
End Sub

si alguien me puede ayudar se lo agradecere muchisimo.

Abraham

unread,
Oct 11, 2007, 4:53:59 PM10/11/07
to
La verdad tu explicacion esta un poquitin enredada, pero creo que esto
es lo que buscas:

Sub nombrarhoja()
Dim hoja As Worksheet
For Each hoja In Worksheets
hoja.Name = hoja.[Y8]
Next
End Sub


Abraham

MGL19DF

unread,
Oct 12, 2007, 11:40:22 AM10/12/07
to

MUCHISIMAS GRACIAS ABRAHAM

NO TIENES IDEA DE CUANTO TE LO AGRADEZCO.

SALUDOS..

Abraham

unread,
Oct 12, 2007, 3:57:22 PM10/12/07
to
De nada amigo.

Abraham

0 new messages