Como ocultar y mostrar hoja de calculo
Hola tengo una duda, buscando buscando encontré este macro que es ideal para lo que yo lo necesito no tengo experiencia en el área, pero copie el código lo malo es que tengo más de cuatro hojas, Pregunta. Como hago para que me esconda las demás y solo se active laq he seleccionado. Este ejemplo es solo para dos hojas y yo tengo más de 4 repito.
De antemano os doi las gracias a todo los que colaboran para el desarrollo de las personas interesadas como yo
Sub Macro2()
Sheets("Hoja2").Visible = True
Sheets("Hoja2").Select
Sheets("Indice").Visible = False
End Sub
Sub Macro3()
Sheets("Indice").Visible = True
Sheets("Indice").Select
Sheets("Hoja2").Visible = False
End Sub
De antemano os doi las gracias a todo los que colaboran para el desarrollo de las personas interesadas como yo
Sub Macro2()
Sheets("Hoja2").Visible = True
Sheets("Hoja2").Select
Sheets("Indice").Visible = False
End Sub
Sub Macro3()
Sheets("Indice").Visible = True
Sheets("Indice").Select
Sheets("Hoja2").Visible = False
End Sub
1 Respuesta
Respuesta de Elsa Matilde
1
Como no indicas la cantidad y me temo que hacerlo 1 x 1 sera algo tedioso, te dejo un bucle.
Sub ocultahojas()
for each sh in sheets
if sh.name <> activesheet.name then sh.visible = false
next
end sub
La misma rutina pero con valor = true volverá a mostrar las hojas
Sdos
Elsa
PD) Los mejores manuales de programación VBA los encontraras aquí:
Sub ocultahojas()
for each sh in sheets
if sh.name <> activesheet.name then sh.visible = false
next
end sub
La misma rutina pero con valor = true volverá a mostrar las hojas
Sdos
Elsa
PD) Los mejores manuales de programación VBA los encontraras aquí:
