Macro conseguir lista de todas las hojas excel

Soy Ruben, necesito conseguir un listado con sus nombres de todas las hojas excel en la ultima hoja excel, que lo escriba en la columna a1 hacia abajo.

2

2 Respuestas

191.425 pts. Si de mis mayores gustos, mis disgustos han nacido,...

Prueba con esta macro

Option Base 1
Sub agregar_hojas()
contar = Worksheets.Count
ReDim matriz(contar)
x = 1
For Each hoja In Worksheets
    nombre = hoja.Name
    matriz(x) = nombre
    x = x + 1
Next hoja
Sheets(nombre).Select
Set datos = Range("a1").Resize(contar, 1)
Range(datos.Address) = WorksheetFunction.Transpose(matriz)
End Sub
4.583.925 pts. Sancho, si los perros ladran ...

Te anexo la macro:

Sub Nombres_Hojas()
    For i = 1 To Sheets.Count
        Sheets(Sheets.Count).Range("A" & i).Value = Sheets(i).Name
    Next
End Sub

[Sal u dos, no olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Resolver sistemas de ecuaciones por eliminación gaussiana excel

Tengo un código para realizar eliminación gaussiana de sistemas de ecuaciones y requiero aplicarlo en Excel pero presenta fallas Mis conocimientos de macros son mínimos, me podrían orientar cómo realizar el proceso. Gracias! Sub llamar() Function...
Sin respuestas

Alguna ruta o guía con este problema de vba

Macro con un pequeño error en comentario una guía por favor la pregunta esta en otra pregunta
1 respuesta

Problema con decimales en excel

Lo que ocurre es que, al realizar un cálculo con el código adjunto, si hay decimales me da error 1004, en cambio, si hay números enteros todo funciona perfecto. Cells(5, 6).Value = "=-1*" & Cells(5, 4).Value & "*" & Cells(4, 6).Value & "+" & Cells(5,...
1 respuesta

Como poner contraseña a una hoja de excel

Quiero que una hoja de excel tenga contraseña para que nade vea mi información de la hoja, ¿Qué puedo hacer?
2 respuestas

Formula en Excel Si es Alto = 10% pero si es Bajo =15% pero si no es alto ni bajo =0

Haber si me podéis ayudar para realizar la siguiente fórmula. Si es Alto = 10% pero si es Bajo =15% pero si no es alto ni bajo =0 En la celda A1 escribiremos Alto o Bajo o nada. En la celda B1 tiene que tener la fórmula
1 respuesta

Exportar Consulta de Access a un excel

Me gustaría saber si es posible exportar una consulta con criterio a un excel muestro el siguiente ejercicio : Tengo una botón que ejecuta una consulta por criterio de fecha: la respuesta es exitosa Mi pregunta si es posible al dar clic en el botón...
2 respuestas

Vincular campos de Access en Excel

Necesito trabajar en Excel con campos de una base de datos de Access y que estos datos se actualicen al modificar los datos de Access. No quiero importar toda la base de datos sino unos campos concretos.
1 respuesta

Macro para borrar completas desde la 1ª fila (celda A1), hasta fila cuya primera celda contiene el valor Unit ID/Número Bastidor

Necesito una macro que, en primer lugar, borre enteras desde la primera fila (celda A1), hasta la fila cuya primera celda (celda de la columna A) contiene el texto Unit ID/Número Bastidor. En segundo lugar, quisiera que borrara las filas completas,...
1 respuesta

MACRO VBA que copie datos de un excel y los pegue consecutivamente en una sola tabla que se encuentra en otro excel

Anteriormente realice una consulta donde pedía que me proporcionaran una macro que me pegara unos datos de 3 tablas excel y los concatenara en una sola tabla, ahora necesito si no es mucha molestia y me ayuden a modificar la macro PERO, que la tabla...
1 respuesta

Modelo en excel para control de horas maquina

Proprcionar algun cuadro en excel para control de horas, en equipos y maquinas
1 respuesta