Ayuda Excel. Hipervínculo a hojas ocultas

6 envíos / 0 nuevos
Último envío
porrompo
Imagen de porrompo
Offline
última acción: Hace 2 semanas 12 horas
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 20 horas 52 mins
alta: 01/02/2018 - 19:53
Puntos: 155
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 2 semanas 12 horas
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 2 semanas 12 horas
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 20 horas 52 mins
alta: 01/02/2018 - 19:53
Puntos: 155
Ayuda Excel. Hipervínculo a hojas ocultas

Hola de nuevo

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 2 semanas 12 horas
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