Indice de hojas
Hola
es posible con un indice de hojas poder decidir en que columnas se guardan y con que horden
Sub Macro2()
Dim fill As Long, w As Worksheet, soja As String
fill = 5
For Each w In ThisWorkbook.Worksheets
soja = w.Name
Cells(fill, 2).FormulaR1C1 = soja
ActiveSheet.Hyperlinks.Add Anchor:=Cells(fill, 2), Address:="", _
SubAddress:=soja & "!A1", TextToDisplay:=soja
fill = fill + 1
Next w
End Sub
ej. De la 1 a la 10 en la colunan a de la 11 a la 20 en la c y si puede ser por orden alfavetico
gracias
1 Respuesta
Te mando la solución, sigue mis pasos:
Crea una pestaña nueva y la pones la primera con el nombre MENU. En esta pestaña tendremos los hipervínculos de las otras. Es importante que esta pestaña llamada MENU esté situada en la primera posición, la primera. Después, estando situado en la hoja MENU solo tienes que ejecutar esta macro:
Sub lista_hojas()
On Error Resume Next
For Each hoja In Sheets
For x = 2 To Sheets.Count
If UCase(Sheets(x).Name) > UCase(Sheets(x + 1).Name) Then
Sheets(x + 1).Move before:=Sheets(x)
End If
Next
Next
Sheets("menu").Select
Range("a1").Select
For m = 2 To Sheets.Count
ActiveSheet.Hyperlinks.Add anchor:=ActiveCell, Address:="", SubAddress:=Sheets(m).Name & "!a1", TextToDisplay:=Sheets(m).Name
ActiveCell.Offset(1, 0).Select
If ActiveCell.Row = 11 Then
Cells(1, ActiveCell.Column + 1).Select
End If
Next
End Subrecuerda finalizar y puntuar
