Como posso ocultar a coluna quando o intervalo é mostrado (não oculto) no Excel

Question

Estou procurando uma maneira de ocultar a linha "I" se o intervalo: QTYCALCON for exibido.

Até agora eu vim com isso.

Sub Hide_Show()
 With Range("QTYCALCON").EntireColumn
  .Hidden = Not .Hidden
 End With
End Sub

    

Answer 1

Assumi que "eu" era uma coluna e você deseja que o código funcione nos dois sentidos, dependendo de qual coluna está oculta. Então, aqui está o código que eu usaria.

Sub Hide_Show()
    If Range("QTYCALCON").EntireColumn.Hidden = False Then
        Columns("I").Hidden = True
    ElseIf Range("QTYCALCON").EntireColumn.Hidden = True Then
        Columns("I").Hidden = False
    End If
End Sub

Sempre que você executá-lo, ele verificará se "QTYCALCON" está oculto. Se não, esconderá "eu". Se "QTYCALCON" estiver oculto, isso mostrará "I".

    

Answer 2

Isso deve ser postado no Stack Overflow. No entanto, aqui vai por esconder coluna I :

Sub Hide_Show()
With Range("QTYCALCON").EntireColumn
    If Not .Hidden Then
        Range("I:I").EntireColumn.Hidden= True
    End If
End With
End Sub