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

 

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

 

Hola Luis,

gracias, funciona a la perfección.