Saturday, April 20, 2019

To hide column base on cellvalue or range if equall to specific value


Sub HideColumn()
If Sheets("Input Sheet").Range("q8").Value = "1 to 15" Or Sheets("Input Sheet").Range("q8").Value = "10 to 26" Then
        Sheets("Sheet2").Columns("K:M").EntireColumn.Hidden = False
        Sheets("Sheet2").Columns("N:N").EntireColumn.Hidden = True
       
    Else
      Sheets("Sheet2").Columns("K:M").EntireColumn.Hidden = True
        Sheets("Sheet2").Columns("N:O").EntireColumn.Hidden = False
       
    End If
End Sub

No comments:

Post a Comment