Listar nombres de las hojas

15/02/2010 - 13:46 por Marta | Informe spam
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.

Preguntas similare

Leer las respuestas

#1 Gabriel Raigosa
15/02/2010 - 15:33 | Informe spam
Saludos,

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

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

Gabriel

Marta escribió:
Mostrar la cita
#2 Juan Español
15/02/2010 - 17:08 | Informe spam
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:
Mostrar la cita
#3 Héctor Miguel
15/02/2010 - 22:31 | Informe spam
hola, Marta !

Mostrar la cita
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())
Ads by Google
Search Busqueda sugerida