Listar nombres de las hojas

Saludos,

Se que se puede hacer con un complemento, te paso el vinculo

http://www.jkp-ads.com/officemarketplacenm-en.asp

Gabriel

Marta escribió:

Hola,
Tengo un libro con 35 hojas, todas ellas nombradas. La estructura de cada
una de ellas es idéntica. Ahora quiero hacer una nueva hoja con el resumen de
estas 35 hojas, pero no encuentro la manera de listar los nombres de manera
sencilla, sin tener que escribirlo a mano.
Soy un poco novata, asi que si existe una formula sencilla para realizar
esta operación, que me recomendais?? gracias.

Hola Marta:
Si cuando te refieres a "fórmula sencilla" incluye al saber crear un botón
de comando,
entonces:
1º.- A la hoja resumen la llamas RESUMEN
2º.- Crea un botón de comando y ponle este código:


Private Sub CommandButton1_Click()
Dim Nom_Hoj As String
Dim Hoja As Worksheet
Dim i As Integer
i = 1
For Each Hoja In Sheets
Nom_Hoj = Hoja.Name
If Nom_Hoj = "RESUMEN" Then GoTo 20
i = i + 1
Sheets("RESUMEN").Range("A" & i).Value = Nom_Hoj
20:
Next
End Sub

Al pulsarlo te hará una lista vertical en la hoja RESUMEN desde A2 hasta ...
con los nombres de las hojas que tenga tu libro excluida la hoja RESUMEN.

Saludos.
"Marta" escribió en el mensaje de noticias
news:

Hola,
Tengo un libro con 35 hojas, todas ellas nombradas. La estructura de cada
una de ellas es idéntica. Ahora quiero hacer una nueva hoja con el resumen
de
estas 35 hojas, pero no encuentro la manera de listar los nombres de
manera
sencilla, sin tener que escribirlo a mano.
Soy un poco novata, asi que si existe una formula sencilla para realizar
esta operación, que me recomendais?? gracias.

hola, Marta !

Tengo un libro con 35 hojas, todas ellas nombradas. La estructura de cada una de ellas es identica.
Ahora quiero hacer una nueva hoja con el resumen de estas 35 hojas
pero no encuentro la manera de listar los nombres de manera sencilla, sin tener que escribirlo a mano.
Soy un poco novata, asi que si existe una formula sencilla para realizar esta operacion, que me recomendais?

1) asegurate que la hoja para el resumen sea la primera en el orden (o indice) de las hojas en el libro

2) pon algun titulo en la celda A1 de esa hoja (ya lo modificaras segun sea necesario)
[A1] -> Lista de hojas en el libro

3) define el siguiente nombre (menu: insertar / nombres / definir...)
nombre se refiere a:
Hojas =indicar.libro(1+0*hoy())

4) escribe las siguientes formulas:
[A2] =elegir(1+(fila()>contara(hojas)),extrae(indice(hojas,fila()),encontrar("]",indice(hojas,1))+1,31),"")

5) copia/arrastra/... la formula de A2 n_filas hacia abajo (segun hojas existan o necesites dejar preparadas)

solo toma en cuenta que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';' :D
y... si tu excel es en ingles, modifica la formula del nombre (Hojas)...
de -> =indicar.libro(1+0*hoy())
a -> =get.workbook(1+0*now())