Macro copie los nombres de las hojas del libro
Hola necesito si se puede una macro que copie el nombre de todas las hojas de un libro y las pegue en la hoja 1
por ej: tengo un libro con tres hojas "Juan" ,"Pedro" ,"Luis", "hoja1" y quiero que al ejecutar la macro en la hoja 1 me ponga :
columna A
Juan
Pedro
Luis
Estaba usando este código
Dim Libro As Workbook
Dim HojaActiva As Worksheet, hoja As Worksheet
Dim intFila, intColumna As Integer
Set Libro = ActiveWorkbook
Set HojaActiva = ActiveSheet
Set HojaActiva = ActiveSheet
fila = 2
Columna = 1
For Each hoja In Libro.Worksheets
If hoja.Name = "CLIENTES" Then GoTo ProxHoja
If hoja.Name <> HojaActiva.Name And hoja.Name Then
HojaActiva.Hyperlinks.Add HojaActiva.Cells(fila, Columna), _
"", SubAddress:="'" & hoja.Name & "'!A2", TextToDisplay:=hoja.Name
fila = fila + 1
End If
ProxHoja:
Next hoja
pero hacia hipervínculos de los nombres con sus respectivas hojas, ahora quiero solo los nombres sin hipervínculos
No se que borra para evitar los hipervínculos
muchas gracias
1 respuesta
Si solo necesitas la lista de hojas podes usarla así:
Sub listaHojas()
'x Elsamatilde
Dim hoja As Worksheet
Dim fila As Integer
'Hoja donde se coloca la lista
Sheets("Hoja1").select
'1ra fila destino
fila = 2
For Each hoja In Activeworkbook.Worksheets
If hoja.Name <> "CLIENTES" Then
cells(fila,1) = hoja.name
fila = fila + 1
End If
Next hoja
End SubProbala y comentame.
Muchas gracias, lo que me falto decir era que a determinadas hojas no las copie pero con el código que me diste mas el que tenia yo quedo perfecto.
Gracias nuevamente
