Ver solo una Ceja

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

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

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