Ocultar columnas con lista desplegable
Tengo un archivo con una lista desplegable en la celda "C5" Con los datos (EA, SC, TA) y requiero que en el momento de seleccionar la opción "EA" me oculte las columnas "Q:T" y cuando seleccione la opción "SC" me oculte las columnas "U:X" pero me debe mostrar las columnas "Q:T" y al seleccionar la opción "TA" no me oculte ninguna columna.
1 Respuesta
.15/11/16
Hola, Diego
La rutina que sigue reacciona a los cambios en tu celda C5 ocultando, por ahora, las columnas indicadas
Haz click con el botón derecho del mouse sobre la pestaña de la hoja donde quieres que ocurra lo que solicitas. Elije la opción "Ver Código" y pega lo siguiente:
Private Sub Worksheet_Change(ByVal Target As Range) '---- Variables modificables ---- '=== DIEGO, modifica estos datos de acuerdo a tu proyecto: CeldaSele = "C5" ' Celda donde tienes la lista desplegable '---- fin Variables ' Set isect = Application.Intersect(Range(CeldaSele), Target) If Not isect Is Nothing Then Select Case UCase(Range(CeldaSele).Value) Case "EA", "SI" Cells.EntireColumn.Hidden = False LasCols = "Q:T" Columns(LasCols).EntireColumn.Hidden = True Case "SC", "DV" Cells.EntireColumn.Hidden = False LasCols = "U:X" Columns(LasCols).EntireColumn.Hidden = True Case "TA", "IF" Cells.EntireColumn.Hidden = False End Select End If Set isect = Nothing End Sub
Si tuvieras otra rutina asociada a un evento en la columna C, tal vez te convenga mover la celda con la lista desplegable a otra ubicación y reemplazarla en la variable que te dejé al inicio de esta rutina.
Espero que sea lo que necesitabas.
Un abrazo
Fer
.
