Ocultar hojas con vinculos

Lo que se puede hacer es crear macros que oculten/activen
las hojas y seguido se desplace hacia ellas.

Ejemplo.

Private Sub CommandButton1_Click()
With Sheets("Hoja2")
.Visible = True
End With
ActiveWorkbook.Sheets("Hoja2").Activate
End Sub

A sus órdenes.
Tec. Inf. Sergio A Campos H

Hola

Tengo un libo con 46 hojas una de ellas resume

informacion y contiene un

vinculo con cada una de ellas
estos vinculos me llevan a la hoja que quiero consultar
El problema se genera al ocultar las hojas es provoca que

los vinculos de mi

hoja de trabajo no funcionen
o que no abra la hoja seleccionada.

Mi pregunta ¿hay alguna forma de ocultar estas hojas y

abrirlas por medio

de vinculos...?
¿Como puedo hacerlo?

Gracias


.

El siguiente codigo chequea si la pagina relacionada con el
vinculo esta escondida. Si es asi, la abre (y en el codigo,
en esa parte puedes ejecutar lo que tu definas) y
posteriormente la oculta de nuevo. La fila donde vuelve a
ocultar la hoja (Visible = False) y las dos siguientes las
puedes borrar si quieres permanecer en la hoja destino,
igualmente borra la que comienza con MsgBox que solamente te
muestra que la pagina esta abierta y tambien te muestra que
puedes ejecutar algo mediante programa antes de esconderla y
regresar a la celda origen.

En tu hoja resumen, que es la que tiene los vinculos, haz
click con el boton derecho del mouse y selecciona Ver
Codigo, en la siguiente ventana pega el codigo siguiente.

Private Sub Worksheet_FollowHyperlink(ByVal Target As
Hyperlink)
Dim HojaOrigen As String, CeldaOrigen As String
Dim HojaDestino As String, CeldaDestino As String
HojaOrigen = ActiveSheet.Name
CeldaOrigen = Selection.Address
CeldaDestino = Mid(Target.SubAddress,
WorksheetFunction.Find("!", Target.SubAddress, 1) + 1, 4)

If (Target.SubAddress = ActiveSheet.Name & "!" &
ActiveCell.Address(False, False)) Then
Else
HojaDestino = Mid(Target.SubAddress, 1,
WorksheetFunction.Find("!", Target.SubAddress, 1) - 1)
Worksheets(HojaDestino).Visible = True
Worksheets(HojaDestino).Activate
ActiveSheet.Range(CeldaDestino).Select
MsgBox "Ejecuta tu codigo aqui"
Worksheets(HojaDestino).Visible = False
Worksheets(HojaOrigen).Activate
ActiveSheet.Range(CeldaOrigen).Select
End If
End Sub

Saludos,

David Canales


"eNet" wrote in message
news:

Hola

Tengo un libo con 46 hojas una de ellas resume informacion

y contiene un

vinculo con cada una de ellas
estos vinculos me llevan a la hoja que quiero consultar
El problema se genera al ocultar las hojas es provoca que

los vinculos de mi

hoja de trabajo no funcionen
o que no abra la hoja seleccionada.

Mi pregunta ¿hay alguna forma de ocultar estas hojas y

abrirlas por medio

de vinculos...?
¿Como puedo hacerlo?

Gracias

Dependiendo del programa que uses para enviar o leer estos mensajes y de su
configuracion las lineas se cortan si son muy largas y esto puede afectar al
codigo y hara que no funcione si haces copy - paste. Te envio nuevamente el
codigo con ajustes para las lineas que son muy largas.

Private Sub Worksheet_FollowHyperlink(ByVal Target As _
Hyperlink)
Dim HojaOrigen As String, CeldaOrigen As String
Dim HojaDestino As String, CeldaDestino As String
HojaOrigen = ActiveSheet.Name
CeldaOrigen = Selection.Address
CeldaDestino = Mid(Target.SubAddress, _
WorksheetFunction.Find("!", Target.SubAddress, 1) + 1, 4)

If (Target.SubAddress = ActiveSheet.Name & "!" & _
ActiveCell.Address(False, False)) Then
Else
HojaDestino = Mid(Target.SubAddress, 1, _
WorksheetFunction.Find("!", Target.SubAddress, 1) - 1)
Worksheets(HojaDestino).Visible = True
Worksheets(HojaDestino).Activate
ActiveSheet.Range(CeldaDestino).Select
MsgBox "Ejecuta tu codigo aqui"
Worksheets(HojaDestino).Visible = False
Worksheets(HojaOrigen).Activate
ActiveSheet.Range(CeldaOrigen).Select
End If
End Sub

Saludos,

David Canales


"David Canales" wrote in message
news:%

El siguiente codigo chequea si la pagina relacionada con el
vinculo esta escondida. Si es asi, la abre (y en el codigo,
en esa parte puedes ejecutar lo que tu definas) y
posteriormente la oculta de nuevo. La fila donde vuelve a
ocultar la hoja (Visible = False) y las dos siguientes las
puedes borrar si quieres permanecer en la hoja destino,
igualmente borra la que comienza con MsgBox que solamente te
muestra que la pagina esta abierta y tambien te muestra que
puedes ejecutar algo mediante programa antes de esconderla y
regresar a la celda origen.

En tu hoja resumen, que es la que tiene los vinculos, haz
click con el boton derecho del mouse y selecciona Ver
Codigo, en la siguiente ventana pega el codigo siguiente.

Private Sub Worksheet_FollowHyperlink(ByVal Target As
Hyperlink)
Dim HojaOrigen As String, CeldaOrigen As String
Dim HojaDestino As String, CeldaDestino As String
HojaOrigen = ActiveSheet.Name
CeldaOrigen = Selection.Address
CeldaDestino = Mid(Target.SubAddress,
WorksheetFunction.Find("!", Target.SubAddress, 1) + 1, 4)

If (Target.SubAddress = ActiveSheet.Name & "!" &
ActiveCell.Address(False, False)) Then
Else
HojaDestino = Mid(Target.SubAddress, 1,
WorksheetFunction.Find("!", Target.SubAddress, 1) - 1)
Worksheets(HojaDestino).Visible = True
Worksheets(HojaDestino).Activate
ActiveSheet.Range(CeldaDestino).Select
MsgBox "Ejecuta tu codigo aqui"
Worksheets(HojaDestino).Visible = False
Worksheets(HojaOrigen).Activate
ActiveSheet.Range(CeldaOrigen).Select
End If
End Sub

Saludos,

David Canales


"eNet" wrote in message
news:
> Hola
>
> Tengo un libo con 46 hojas una de ellas resume informacion
y contiene un
> vinculo con cada una de ellas
> estos vinculos me llevan a la hoja que quiero consultar
> El problema se genera al ocultar las hojas es provoca que
los vinculos de mi
> hoja de trabajo no funcionen
> o que no abra la hoja seleccionada.
>
> Mi pregunta ¿hay alguna forma de ocultar estas hojas y
abrirlas por medio
> de vinculos...?
> ¿Como puedo hacerlo?
>
> Gracias
>
>