Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo ocultar u ocultar una hoja de trabajo específica basada en el valor de celda en otra hoja?

¿Hay algún método para que ocultemos u ocultemos una pestaña específica de la hoja de trabajo basada en el contenido de una celda en otra hoja? Por ejemplo, cuando ingreso el texto "Sí" en la celda G1 de Sheet2, quiero que la Sheet1 se oculte, y cuando ingreso "No", la Sheet1 se muestre de una vez. ¿Cómo podría resolver este problema en Excel?

Ocultar o mostrar una pestaña específica de la hoja de cálculo basada en el valor de la celda con el código VBA

Ocultar o mostrar todas las demás hojas de cálculo, excepto la activa con Kutools para Excel


flecha azul burbuja derecha Ocultar o mostrar una pestaña específica de la hoja de cálculo basada en el valor de la celda con el código VBA


Para ocultar u ocultar una pestaña específica de la hoja de cálculo basada en un valor de celda en otra hoja de trabajo, el siguiente código VBA puede hacerle un favor, haga lo siguiente:

1. Vaya a la hoja de trabajo que contiene el valor de la celda sobre la que desea ocultar otra hoja.

2. Haga clic con el botón derecho en la pestaña de la hoja y seleccione Ver código, en el reventado Microsoft Visual Basic para aplicaciones ventana, copie y pegue el siguiente código en la ventana del Módulo en blanco, vea la captura de pantalla:

Código de VBA: Oculte u oculte una pestaña de la hoja de trabajo en función del valor de la celda:

Private Sub Worksheet_Change(ByVal Target As Range)
If [G1] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
End Sub

doc ocultar pestaña basada en el valor de celda 1

Nota: En el código anterior, G1 y Sí son el contenido de celda y celda en el que desea basar, y Sheet1 es la hoja específica que desea ocultar o mostrar. Puede cambiarlos a su necesidad.

3. Luego guarde y cierre este código, cuando ingrese "No" u otro texto en la celda G1, Sheet1 estará oculto, pero si ingresa "Sí" en la celda, se mostrará Sheet1 de una vez, consulte las capturas de pantalla:

doc ocultar pestaña basada en el valor de celda 2
 1
doc ocultar pestaña basada en el valor de celda 3

flecha azul burbuja derecha Ocultar o mostrar todas las demás hojas de cálculo, excepto la activa con Kutools para Excel

En Excel, es posible que necesite ocultar todas las demás pestañas de la hoja de trabajo y solo deje la hoja de visualización activa, ocultarlas una por una no será una buena opción, aquí, puedo recomendar una herramienta útil:Kutools for Excel, Con su Ocultar hojas no seleccionadas utilidad, puede ocultar todas las demás hojas de cálculo excepto la activa con un solo clic.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente:

1. Vaya a la hoja de trabajo que desea visualizar y haga clic Kutools > Mostrar / Ocultar > Ocultar hojas no seleccionadas, mira la captura de pantalla:

doc ocultar pestaña basada en el valor de celda 4

2. Y todas las pestañas de las hojas están ocultas a la vez, excepto la activa, vea la captura de pantalla:

doc ocultar pestaña basada en el valor de celda 5

Nota: Si quieres mostrarlos, solo tienes que hacer clic Kutools > Mostrar / Ocultar > Mostrar todas las hojas para mostrar las hojas ocultas de inmediato.

doc ocultar pestaña basada en el valor de celda 6

Descarga gratuita Kutools for Excel ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Walido Lido · 8 months ago
    Hello
    Thank you for the tip. I need to do the same scenario but not on one cell only (G1 in this case) but on all cells of column G. I have tried with "Range" but it didn't work.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("X2:X100") = "" Then
    Sheets("EU TASK BASED MEASUREMENTS").Visible = False
    Else
    Sheets("EU TASK BASED MEASUREMENTS").Visible = True
    End If
    End Sub


    Thank you in advance