UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Crear Indice el 30/05/17, 01:08 pm

edwinjo


Estimados,
Tengo el siguiente código para crear un indice, si le digo crear un enlace de regreso, me trabaja bien, si le digo que no ya no me hace nada, por fa su ayuda, en la corrección del código:
Sub crearIndice()
Dim vbynSep
Dim hoja As Worksheet
Dim detalle As String
On Error Resume Next
Set hoja = Worksheets("Indice")
vbynSep = MsgBox(prompt:="desea crear un indice?", Buttons:=vbYesNo)
If vbynSep = vbYes Then
On Error GoTo 0
If hoja Is Nothing Then
    Worksheets.Add(before:=Worksheets(1)).Name = "Indice"
Else
        Worksheets("Indice").Cells.Clear
End If
Worksheets("Indice").Range("A1").Value = "Indice"
Dim fila As Long
Dim vinculoRegreso As String
rpta = MsgBox("¿Desea crear un enlace de regreso en cada hoja?" & Chr(13) & "Se creará en la celda A1 de cada Hoja", vbYesNo, "Gestión de Hojas - Indice")

If rpta = vbNo Then Exit Sub
If rpta = vbYes Then
fila = 2
vinculoRegreso = "A1"
 
For Each hoja In Worksheets
If hoja.Visible = xlSheetVisible Then
            detalle = hoja.Name & " - " & "Visible"
        Else
            detalle = hoja.Name & " - " & "Oculta"
        End If
    If hoja.Name <> "Indice" Then
               With Worksheets("Indice")
            .Hyperlinks.Add Anchor:=.Cells(fila, 1), _
            Address:="", _
            SubAddress:="'" & hoja.Name & "'!A1", _
            TextToDisplay:=detalle
        End With
        With hoja
            .Hyperlinks.Add Anchor:=.Range(vinculoRegreso), _
            Address:="", _
            SubAddress:="Indice!A1", _
            TextToDisplay:="Indice «<<="
        End With
        fila = fila + 1
    End If
Next
 End If
 End If
End Sub
Archivos
indice y regreso opcional.xls
No tienes los permisos para descargar los archivos.
(38 KB)

2 Que Cambio y Agrego el 05/06/17, 01:45 pm

edwinjo


Buenos Días,
Consultándoles que le cambio y que le agrego al archivo adjunto, para que me pregunte donde poner el vinculo de regreso y no me repita en el indice la ultima hoja (en las descripción)
Por su fina ayuda muchísimas Gracias
Edwinjo
Archivos
2INDICE Y REGRESO OPCIONAL.zip
No tienes los permisos para descargar los archivos.
(10 KB)

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.