Ayuda Excel. Hipervínculo a hojas ocultas

9 envíos / 0 nuevos
Último envío
porrompo
Imagen de porrompo
Offline
última acción: Hace 4 meses 3 semanas
alta: 26/02/2020 - 15:31
Puntos: 55
Ayuda Excel. Hipervínculo a hojas ocultas

Buenas tardes, soy nuevo en esto de la programacion VBA y las macros. Os comento mi problema, espero que alguien pueda ayudarme. 

Necesito crear hipervínculos a hojas ocultas. El caso es que en el momento que la hoja está oculta, el hipervínculo deja de funcionar. 

Muchas gracias de antemano. 

Etiquetas: 

FernandoML
Imagen de FernandoML
Offline
última acción: Hace 4 días 12 horas
alta: 01/02/2018 - 19:53
Puntos: 165
Ayuda Excel. Hipervínculo a hojas ocultas

Hola:

En thisworkbook, inserta el siguiente código y nos comentas que tal te ha funcionado.

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    If Sheets(Target.Name).Visible = False Then
        Sheets(Target.Name).Visible = True
        Sheets(Target.Name).Activate
    End If
End Sub

Espero te sirva

Un saludo

FernandoML

porrompo
Imagen de porrompo
Offline
última acción: Hace 4 meses 3 semanas
alta: 26/02/2020 - 15:31
Puntos: 55
Gracias

Muchas gracias. Lo pruebo y te digo 

porrompo
Imagen de porrompo
Offline
última acción: Hace 4 meses 3 semanas
alta: 26/02/2020 - 15:31
Puntos: 55
No me sale :(

Buenos días, lo he probado y no me funciona. Seguramente será porque no lo he puesto bien. 

Lo que yo quiero es que todas las hojas de un documento estén ocultas y los hipervínculos están en la primera hoja. Y cuando voy entrando a los hipervínculos, estas hojas se muestren, y cuando salgamos de ellas, se vuelvan a ocultar. No se si me he explicado bien. 

Si podría darme indicaciones de como hacerlo, teniendo en cuenta que no soy ningún experto en la materia, se lo agradecería. 

FernandoML
Imagen de FernandoML
Offline
última acción: Hace 4 días 12 horas
alta: 01/02/2018 - 19:53
Puntos: 165
Ayuda Excel. Hipervínculo a hojas ocultas

Hola de nuevo porrompo

Prueba el siguiente código insertandolo en thiswokbook

Espero que esta vez vaya todo mejor

Cualquier problema o duda aqui estamos todos

 

Dim DirLink As String   'DIRECCION DEL HIPERVINCULO SELECCIONADO

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
   
    DirLink = ActiveCell.Hyperlinks(1).SubAddress
    DirLink = Left(DirLink, InStr(1, DirLink, "!", vbTextCompare) - 1)
   
    If Sheets(DirLink).Visible = False Then
        Sheets(DirLink).Visible = True
        Sheets(DirLink).Activate
        Sheets(DirLink).Range("A1").Select
    End If
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Menu" Then Sheets(Sh.Name).Visible = False
End Sub

Te envio un ejemplo

Un Saludo

Fernando

AdjuntoTamaño
File ocultar_libros.xlsm23.36 KB
porrompo
Imagen de porrompo
Offline
última acción: Hace 4 meses 3 semanas
alta: 26/02/2020 - 15:31
Puntos: 55
Ayuda Excel. Hipervínculo a hojas ocultas

Buenas tardes, vamos avanzando :D 

Es algo muy parecido a esto, pero no todas las hojas tienen que estar ocultas. 

Te adjunto un documento donde se refleja a grandes rasgos lo que me interesa. Hay algunas hojas que tienen que estar ocultas y solo se muestren cuando se muestren. Hay otras hojas que siempre tienen que estar presentes como son PYG, Balance... 

Gracias de antemano 

AdjuntoTamaño
File prueba_vba.xlsx12.7 KB
ALONDRA GALLEGO...
Imagen de ALONDRA GALLEGOS ROJAS
Offline
última acción: Hace 4 meses 1 semana
alta: 02/04/2020 - 16:39
Puntos: 10
ERROR EN TIEMPO DE EJECUCIÓN

Hola buen día, 

Disculpa Fernando, revisé tu archivo y es justo lo que necesito. Sin embargo, cuando trato de validar la funcionabilidad de éste me aparece el sigueinte error:

"Se ha producido el error '9' en tiempo de ejecución:

Subíndice fuera de intervalo" 

¿Me pudieras ayudar a resolverlos por favor? Soy nueva con esto de macros y VBA. Te lo agradecería muchísimo. 

Saludos

AdjuntoTamaño
Image icon error.png5.24 KB
FernandoML
Imagen de FernandoML
Offline
última acción: Hace 4 días 12 horas
alta: 01/02/2018 - 19:53
Puntos: 165
Ayuda Excel. Hipervínculo a hojas ocultas

Buenas tardes:

Disculpa la demora, he estado enfermo y no he podido contestar antes

Prueba el siguiente codigo a ver si es lo que necesitas.

 

Dim DirLink As String   'DIRECCION DEL HIPERVINCULO SELECCIONADO

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    DirLink = ActiveCell.Hyperlinks(1).SubAddress
    DirLink = Left(DirLink, InStr(1, DirLink, "!", vbTextCompare) - 1)
   
    If Sheets(DirLink).Visible = False Then
        Sheets(DirLink).Visible = True
        Sheets(DirLink).Activate
        Sheets(DirLink).Range("A1").Select
    End If

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Select Case Sh.Name
        Case "Menu", "Hoja3", "Hoja4", "Hoja5": Exit Sub
        Case Else
            If Sh.Name <> "Menu" Then Sheets(Sh.Name).Visible = False
    End Select
End Sub

He echo alguna modificación. Copia el código en thisworkbook.

Comprueba si es lo que necesitas

Un saludo

AdjuntoTamaño
File copia_de_ocultar_libros.xlsm24.6 KB
visitante (no verificado)
Imagen de visitante
Buenos días. Lo pruebo y te

Buenos días. Lo pruebo y te digo. Ya siento responder tan tarde, pero llevo muchisimo lio encima. 

Muchas gracias de antemano.