Macro MOSTRAR HOJAS Ocultas

Formato / Hoja / Mostrar ?

"HMS" escribió en el mensaje
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

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

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

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

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