Ayuda con este codigo

13/08/2003 - 16:31 por Mario Alberto | Informe spam

Tengo el siguiente codigo para ocultar una hoja del libro cuando selecciono
otra, hace poco agrege dos hojas y quiero que verifique si alguna de las
tres o las tres están abiertas y cuando seleccione la hoja "Portada" oculte
las otras que esten visibles.

Saludos

Mario Alberto

If WorkbookName = FullBookName Then
If ActiveSheet.Name <> Portada Then
If Cloak_Next = True And Cloak = True Then
Sheets(Auditores).Visible = False
' Trate de utilizar un array pero no me funciona
' Sheets(Array(Auditores, Compañias, Trabajos)).Visible = True

Cloak_Next = False
End If
Else
Cloak_Next = True
End If
End If

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

14/08/2003 - 09:38 | Informe spam

Hola, Mario Alberto !

... codigo para ocultar una hoja ... cuando selecciono otra
... agregue dos hojas ... que verifique ... y cuando seleccione la hoja "Portada" oculte las otras que esten visibles.
Trate de utilizar un array pero no me funciona Sheets(Array(Auditores, Compañias, Trabajos)).Visible = True

==> Por la forma en que haces referencia a los nombres de las hojas ("asumo" que) los "asignas" a variables "String" (???)
La propiedad "Visible" en matrices de objetos "funcionara" SI la aplicas de manera "individual" (p.e.):
Si copias las siguientes lineas en el modulo de codigo de tu hoja "Portada", hara lo que solicitas:
=Private Sub Worksheet_Activate()
Dim Hoja As Sheet
For Each Hoja In Sheets(Array(Auditores, Compañias, Trabajos))
If Hoja.Visible Then Hoja.Visible = False
Next
End Sub

==> Otra opcion seria con el siguiente codigo en los modulos de las hojas "ocultables"
Private Sub Worksheet_Deactivate()
Me.Visible = False
End Sub
_______
Saludos,
Héctor.
MS-MVP

Responder a este mensaje

#2 Mario Alberto

14/08/2003 - 20:27 | Informe spam

Gracias por la ayuda.

Aprendí algo más y solucione el problema.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida