Hide column base on cell value

[KIM Chanthan]

Hi,
I want to hide my columns base on number is D4, but I don't know why it doesn't work.
Can anyone help?

---------------------------------

Sub hidecol()
If Range("D4").Value = 1 Then
        Range("K:AO").EntireColumn.Hidden = True
    ElseIf Range("D4").Value = 2 Then
        Range("U:AO").EntireColumn.Hidden = True
    ElseIf Range("D4").Value = 3 Then
        Range("AE:AO").EntireColumn.Hidden = True
    Else
        Range("A:AO").EntireColumn.Hidden = False
End If
  
End Sub

 

[NARAYANK991]

Hi ,

It does work. However , the code does not unhide already hidden columns , that is the problem.

Try this revised code :

Sub hidecol()
    If Range("D4").Value = 1 Then
       Range("K:AO").EntireColumn.Hidden = True
    ElseIf Range("D4").Value = 2 Then
           Range("K:T").EntireColumn.Hidden = False
           Range("U:AO").EntireColumn.Hidden = True
        ElseIf Range("D4").Value = 3 Then
               Range("K:AD").EntireColumn.Hidden = False
               Range("AE:AO").EntireColumn.Hidden = True
            Else
               Range("A:AO").EntireColumn.Hidden = False
    End If
End Sub

Narayan

 

[KIM Chanthan]

Hi ,

It does work. However , the code does not unhide already hidden columns , that is the problem.

Try this revised code :

Sub hidecol()
    If Range("D4").Value = 1 Then
       Range("K:AO").EntireColumn.Hidden = True
    ElseIf Range("D4").Value = 2 Then
           Range("K:T").EntireColumn.Hidden = False
           Range("U:AO").EntireColumn.Hidden = True
        ElseIf Range("D4").Value = 3 Then
               Range("K:AD").EntireColumn.Hidden = False
               Range("AE:AO").EntireColumn.Hidden = True
            Else
               Range("A:AO").EntireColumn.Hidden = False
    End If
End Sub

Narayan

Got it.
Thanks very much for help.