OCULTAR VARIAS HOJAS xlveryhidden

12/01/2011 - 20:00 por Pepito | Informe spam
Hola Foro:
Tengo un archivo de Excel que tiene 7 hojas, nombradas
"Captura","Total","hoja1",Hoja2","Hoja3,"hoja4" y "Hoja5", quiero que
con una macro me Oculte las Hojas de la 1 a la 5 y solo me deje
visible las hojas "Captura" y "total"

Gracias por tiempo

Preguntas similare

Leer las respuestas

#1 jalexgarcia[ arroba ]gmail.com
13/01/2011 - 15:24 | Informe spam
On 12 ene, 14:00, Pepito wrote:
Hola Foro:
Tengo un archivo de Excel que tiene 7 hojas, nombradas
"Captura","Total","hoja1",Hoja2","Hoja3,"hoja4" y "Hoja5", quiero que
con una macro me Oculte las Hojas de la 1 a la 5 y solo me deje
visible las hojas  "Captura" y "total"

Gracias por tiempo



Hola.

Espero te sirva este código

Sub ocultar()
Dim hoja As Worksheet
For Each hoja In Worksheets
If Mid(hoja.Name, 1, 4) = "Hoja" Then
hoja.Visible = xlSheetHidden
End If
Next hoja
End Sub


Respuesta Responder a este mensaje
#2 Pepito
13/01/2011 - 16:07 | Informe spam
On 13 ene, 08:24, "jalexgarcia[ arroba ]gmail.com"
wrote:
On 12 ene, 14:00, Pepito wrote:

> Hola Foro:
> Tengo un archivo de Excel que tiene 7 hojas, nombradas
> "Captura","Total","hoja1",Hoja2","Hoja3,"hoja4" y "Hoja5", quiero que
> con una macro me Oculte las Hojas de la 1 a la 5 y solo me deje
> visible las hojas  "Captura" y "total"

> Gracias por tiempo

Hola.

Espero te sirva este código

Sub ocultar()
Dim hoja As Worksheet
For Each hoja In Worksheets
    If Mid(hoja.Name, 1, 4) = "Hoja" Then
        hoja.Visible = xlSheetHidden
    End If
Next hoja
End Sub





He probado el codigo que propones y funciona de maravilla mil gracias
por tu apoyo.

Saludos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida