Ver solo una Ceja

20/11/2009 - 03:58 por Pepe Grillo | Informe spam
Tengo 12 hojas y una caratula con relaciones, pero quiero que cuando invoque
una sola hoja dede la caratula solo apresca la ceja de esa hoja. alquien sabe
algo al respecto
 

Leer las respuestas

#1 De_Corando.
20/11/2009 - 05:05 | Informe spam
Buenas Noches, Pepe Grillo

Tengo 12 hojas y una caratula con relaciones, pero quiero que cuando invoque
una sola hoja dede la caratula solo apresca la ceja de esa hoja. alquien sabe
algo al respecto



Suponiendo que en la Hoja 1 debe de estar la CARATULA. y tus
Relaciones (representados por/en algun Objeto)
Deberas a cada OBJETO(Relaciones) asignar un MACRO o CODIGO segun el
Num de Hoja.
y el de MENU debera de estar en todas y cada una de las Hojas.

En el MODULO de la Hoja 1 debes poner el siguiente codigo:

Private Sub Worksheet_Activate()
For R = 2 To 13
Sheets(R).Visible = xlSheetVeryHidden
Next
End Sub


Dentro de un Modulo, Inserta el siguiente MACRO(s) o codigo(s):

Sub Menu()
Sheet1.Visible = True:: Sheet1.Activate
End Sub

Sub Hoja2()
Sheet2.Visible = True:: Sheet2.Activate
Sheet1.Visible = False
End Sub

Sub Hoja3()
Sheet3.Visible = True:: Sheet3.Activate
Sheet1.Visible = False
End Sub

Sub Hoja4()
Sheet4.Visible = True:: Sheet4.Activate
Sheet1.Visible = False
End Sub

NOTA: Tus Relaciones a cada Hoja NO deben ser HYPERLINK o
hiperenlaces, sino asignacion a MACROS.

Envia cualquier duda o comentario

Corando

Preguntas similares