Buen día! Quiero crear una agenda electrónica, pero me estoy encontrando con el siguiente problema. Tengo un modulo con el siguiente código Sub OcultarHojas() For Each ws In Worksheets If "Agosto" <> ws.Name Then Sheets(ws.Name).Visible = false End If Next ws End Sub y dentro de la hoja donde tengo el calendario y los hipervinculos tengo lo siguiente: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim nombreHoja As String Call Módulo1.OcultarHojas nombreHoja = Target.Range Sheets(nombreHoja).Visible = True End Sub La descricpión del error dice "SubIndice fuera de interbalo" Como modifico mi archivo para que al darle click al hipervinculo del numero 1 esconda las demás hojas exceptuando la hoja Agosto y sucesivamente para los demás hipervinculos que voy a crear para enlazar a las demas hojas del resto de los días?

Macros Error 9

RobertoMadridh

New member

2 Ago 2017

Buen día!
Quiero crear una agenda electrónica, pero me estoy encontrando con el siguiente problema.

Tengo un modulo con el siguiente código

Sub OcultarHojas()

For Each ws In Worksheets
If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Bienvenido a la mayor comunidad de usuarios EXCEL

Macros Error 9

RobertoMadridh

New member

Adjuntos

Macro Antonio

Moderator

Adjuntos

Temas similares