Verbergen/tonen kolom

[martijnbos]

Beste allemaal,

Met onderstaande code wil ik kolommen verbergen of zichtbaar maken.
Dit werkt prima.
Maar nu wil dat als de range QTYCALCON wordt getoond, rij I wordt verborgen.
Heb al een uur zitten stoeien met het omdraaien van .hidden en not.hidden, maar tot dusver geen resultaat

Iemand enig idee of dit uberhaupt in een actie kan en zo ja hoe

Alvast dank.

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

 

[WHER]

Probeer deze eens:

Sub verbergen_tonen()
With Range("QTYCALCON").EntireColumn
  If .Hidden = False Then
   Range("I:I").EntireColumn.Hidden = True
  Else
   Range("I:I").EntireColumn.Hidden = False
  End If
End With
End Sub

 

[martijnbos]

Thxs.

Dit werkt prima!!