Como puedo ocultar/mostrar hojas de calculo

He usado el siguiente  código para ocultar un Sheets al momento de introducir un dato en una celda especifica de otro sheets. 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'x Elsamatilde
If Target.Address = "$A$3" Then Sheets("Hoja3").Visible = xlVeryHidden
End Sub

Pero no se como volver a  mostrar el sheets oculto. Es la primera vez que uso Visual Basic favor detallar los pasos.

1 Respuesta

Respuesta
1

Aquí van algunos ejemplos.

- Entrá al Editor de macros, insertá un módulo y allí copiá el código siguiente ajustando el nombre de tu hoja:

Sub mostrando()
'x Elsamatilde
Sheets("Hoja3").Visible = True
End Sub

Se me fue la respuesta sin querer... sigo...

- Así como se ocultó al seleccionar la celda A3 podrías tener otra celda para mostrarla.

En ese caso el código se coloca en el objeto HOJA (no en módulo) donde vayas a seleccionar la celda.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'x Elsamatilde
If Target.Address = "$B$3" Then Sheets("Hoja3").Visible = True
End Sub

- también puede ir dentro de algún otro código . En la sección Macros de mi sitio dejo explicado el tema de cómo ejecutar alguna macro.

En el primer ejemplo podés asignarla a un botón o atajo de teclado, y en el 2do ejemplo se ejecutará cuando selecciones la celda B3

Sdos

Elsa

¡Gracias! me funciono!!

consulta, es posible hacer que se oculte la columna con una celda especifica contenta un dígito por ejemplo A3=1. de ser así confirmarme y  abro otra pregunta.

Si es posible, con una instrucción como esta:

If Range("A3") = 1 Then Range("A3").EntireColumn.Hidden = True

PD) No hace falta que abras una nueva consulta, solo cambia la valoración que creo respondo para algo más que un 'bueno o útil'.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para ocultar columnas, dependiendo del valor en una celda especifica.

Probablemente sea sencillo, pero soy novato): Las columnas X y Y están ocultas al abrir el archivo. En la celda J3, puedo tener valores del 1 al 4; si J3=1, las columnas X y Y deben permanecer ocultas, pero si J3 = 2, 3 ó 4, las columnas X y Y se...
2 respuestas

Modificar código para ocultar columnas en excel

Ya había hecho una pregunta en relación: ¿Cómo puedo ocultar COLUMNAS con macros en excel? Pero seguí buscando y encontré este código que es lo que necesito, pero quiero que haga lo contrario, en este código: Private Sub Worksheet_Change(ByVal Target...
1 respuesta

¿Cómo puedo ocultar COLUMNAS con macros en excel?

Tengo valores desde A1 a K18, son números, en A20 a K20 tengo una suma de todos los números, pero en algunos tengo valor CERO, lo que necesito es que si un valor de los que tengo en A20:K20 es igual a CERO oculte toda esa columna, por ejemplo: si en...
1 respuesta

Ocultar o mostrar hojas según valor en celda

Tengo una hoja (Hoja1) en la cual puedo introducir valores en la celda a1 y a2. Lo que quiero es que cuando introduzca en la celda a1 verdadero (viene esto de una casilla de verificación asociada a la celda A1), se oculte la Hoja2, y que cuando ponga...
1 respuesta

Proteger contra lectura una hoja del libro excel

Ya he visto como se puede proteger una hoja, mediante código y mediante la interficie de usuario, pero el problema es que no me lo protege contra lectura. A mi me gustaría tener un documento excel donde una hoja de ellas, no pudiera ser leída, a no...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

No me funciona la función Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Estoy usando Excel 2010 y no se ejecuta la función Worksheet_Change cuando cambio el valor de las celdas objetivo. Alguien me puede decir dónde está el error (el código está escrito en la Hoja1 que es donde tengo los Target. Address): Private Sub...
1 respuesta

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
1 respuesta

Como ocultar filas a través del valor de una celda

¿Tengo una tabla en la cual donde necesito que: cuando a1 sea igual a 0 oculte el rango a1:c3; y de igual forma si a4 fuera igual a 0, oculte el rango b4:c7. Para ello necesito que se ejecute la macro automáticamente, sin necesidad de incrporarle un...
1 respuesta