Saltar al contenido

Como ocultar una columna bajo condicion


Recommended Posts

Buenas tardes,

estoy tratando de ver de que manera puedo ocultar una columna bajo la condición de una celda, no doy con la respuesta y quisiera saber si habrá alguna forma con Macro o VBA Ej;

E12=administracion turistica, se oculte la columna D.

Gracias anticipadas

 

Enlace a comentario
Compartir con otras webs

Hola,

Adjunta esta macro

 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim celda As Range

' The variable KeyCells contains the cells that will
    ' cause an alert when they are changed.
    Set celda = Range("e12:e12")

If Not Application.Intersect(celda, Range(Target.Address)) _
           Is Nothing Then
        If celda = "administracion turistica" Then
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = True
    celda.Select
        Else
    Columns("D:D").Select
    Selection.EntireColumn.Hidden = False
    Columns("D:D").EntireColumn.AutoFit
    celda.Select
        End If
End If
End Sub

 

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.