Macro MOSTRAR HOJAS Ocultas

Hola HMS,

Prueba lo siguiente:

1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de la
parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Pulsa Alt+F8
7) Busca el macro MostrarHojas y haz doble clic sobre el.

'-Inicio Codigo-
Sub MostrarHojas ()
Application.ScreenUpdating=False
For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja
Application.ScreenUpdating=True
End Sub
'-Fin Codigo-

Saludos,
KL


"HMS" wrote in message
news:%23Mur$

KL, Gracias.
Pero, mira yo de macros no se mucho, o casi nada.
Copie el Macro, tal como me la enviaste.

For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja

Pero no me sirve.
Sera que debo de cambiar algunas casas?, como por ejemplo a que te
refieres con "For Each hoja In."?

Gracias de antemano
HMS

"KL" wrote in message
news:

Hola HMS,

Este codigo lo podrias tener en cualquier modulo d cualquier libro. El
unico requisito para poder usar el codigo es que el libro que lo contiene
este cargado (abierto).

Saludos,
KL

"HMS" wrote in message
news:

Gracias KL
Y podrias decirme en donde tengo que pegar el codigo, para que pueda
aplicarlo a cualquier libro que tenga abierto.

Gracias anticipadas

HMS

Ing. Héctor Montero Sobrado
HMS ENGINE VISUAL KNOWLEDGE CA PCR
Mail :
Ofic 506-2317858 Cel 506-376-9751
Skype User Name: hmonteros
San José, Costa Rica.

"KL" wrote in message
news:e$

Hola HMS,

Para mostrar todas las hojas ocultas deberia bastar con la siguiente
instruccion:

For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja

Hasta donde se no se puede seleccionar hojas ocultas. Si, en cambio, lo
que necesitas es seleccionar las hojas recien mostradas entonces
podrias hacer esto:

Sub test()
Sheet3.Visible = xlSheetVeryHidden
Dim Hojas As Variant
Dim hoja
ReDim Hojas(0)
Application.ScreenUpdating = False
For Each hoja In ActiveWorkbook.Sheets
If hoja.Visible <> True Then
Hojas(UBound(Hojas)) = hoja.Name
ReDim Preserve Hojas(UBound(Hojas) + 1)
hoja.Visible = True
End If
Next hoja
If UBound(Hojas) = 0 Then Exit Sub
ReDim Preserve Hojas(UBound(Hojas) - 1)
ActiveWorkbook.Sheets(Hojas).Select
Application.ScreenUpdating = True
End Sub


Saludos,
KL


"HMS" wrote in message
news:

Hola
Desearia saber si alguno de ustede tiene una macro, con la que pueda
MOSTRAR en forma simultanea TODAS las hojas Ocultas, o mejor aun, que
pueda seleccionar las hojas que deseo MOSTRAR.

De antemano muchas gracias.
HMS

Muy bien KL.
Gracias
HMS

"KL" wrote in message
news:%

Hola HMS,

Prueba lo siguiente:

1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de
la
parte de abajo de la ventana de Excel.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, ve al menu Insertar>Modulo
4) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.
5) Ahora pulsa Alt+F11 para volver a la hoja.
6) Pulsa Alt+F8
7) Busca el macro MostrarHojas y haz doble clic sobre el.

'-Inicio Codigo-
Sub MostrarHojas ()
Application.ScreenUpdating=False
For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja
Application.ScreenUpdating=True
End Sub
'-Fin Codigo-

Saludos,
KL


"HMS" wrote in message
news:%23Mur$

KL, Gracias.
Pero, mira yo de macros no se mucho, o casi nada.
Copie el Macro, tal como me la enviaste.

For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja

Pero no me sirve.
Sera que debo de cambiar algunas casas?, como por ejemplo a que te
refieres con "For Each hoja In."?

Gracias de antemano
HMS

"KL" wrote in message
news:

Hola HMS,

Este codigo lo podrias tener en cualquier modulo d cualquier libro. El
unico requisito para poder usar el codigo es que el libro que lo
contiene este cargado (abierto).

Saludos,
KL

"HMS" wrote in message
news:

Gracias KL
Y podrias decirme en donde tengo que pegar el codigo, para que pueda
aplicarlo a cualquier libro que tenga abierto.

Gracias anticipadas

HMS

Ing. Héctor Montero Sobrado
HMS ENGINE VISUAL KNOWLEDGE CA PCR
Mail :
Ofic 506-2317858 Cel 506-376-9751
Skype User Name: hmonteros
San José, Costa Rica.

"KL" wrote in message
news:e$

Hola HMS,

Para mostrar todas las hojas ocultas deberia bastar con la siguiente
instruccion:

For Each hoja In ActiveWorkbook.Sheets
hoja.Visible = True
Next hoja

Hasta donde se no se puede seleccionar hojas ocultas. Si, en cambio,
lo que necesitas es seleccionar las hojas recien mostradas entonces
podrias hacer esto:

Sub test()
Sheet3.Visible = xlSheetVeryHidden
Dim Hojas As Variant
Dim hoja
ReDim Hojas(0)
Application.ScreenUpdating = False
For Each hoja In ActiveWorkbook.Sheets
If hoja.Visible <> True Then
Hojas(UBound(Hojas)) = hoja.Name
ReDim Preserve Hojas(UBound(Hojas) + 1)
hoja.Visible = True
End If
Next hoja
If UBound(Hojas) = 0 Then Exit Sub
ReDim Preserve Hojas(UBound(Hojas) - 1)
ActiveWorkbook.Sheets(Hojas).Select
Application.ScreenUpdating = True
End Sub


Saludos,
KL


"HMS" wrote in message
news:

Hola
Desearia saber si alguno de ustede tiene una macro, con la que pueda
MOSTRAR en forma simultanea TODAS las hojas Ocultas, o mejor aun, que
pueda seleccionar las hojas que deseo MOSTRAR.

De antemano muchas gracias.
HMS