Forums Últimos mensajes - Powered by IBM
 

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

11/10/2007 - 21:22 por MGL19DF | Informe spam
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.
 

Leer las respuestas

#1 Abraham
11/10/2007 - 22:53 | Informe spam
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

Preguntas similares