VBA Hide Columns

[APML]

Hi all, I'm not so great at VBA so hoping someone can help with the following.
I'm after a simple macro.
When cell A1 = 1, Columns H:L are hidden,
When cell A1 = 2, Column H:L are unhidden

A1 is the result of a formula (i.e 1 or 2 isn't directly entered into A1).
A1 is the result of a formula, i.e A1=K15

I only want this to apply to the worksheet named "Intra"
Cell A1 is on the worksheet named "Intra"

 

[rollis13]

This will do what you are asking for, but, how is K15 updated ? If itself isn't a formula, once the columns H: L are hidden, how do you access it ?
The event macro needs to be pasted in the "Intra"'s sheet module.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Range("A1")
        Case 1
            Range("H:L").EntireColumn.Hidden = True
        Case 2
            Range("H:L").EntireColumn.Hidden = False
    End Select
End Sub

 

[breynolds0431]

You could also consider a Worksheet_Calculate() event such as the below, which would be in the Intra sheet's module.

Private Sub Worksheet_Calculate()

Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim kcell As Range: Set kcell = ws.Range("A1")

If kcell.Value = "1" Then
    ws.Range("H:L").EntireColumn.Hidden = True
ElseIf kcell.Value = "2" Then
    ws.Range("H:L").EntireColumn.Hidden = False
End If

End Sub

 

[APML]

Thx so much, the last code (worksheet calculate) solved the problem. I reeally appreciate your help

 

[rollis13]

the last code (worksheet calculate) solved the problem

Does this mean that my suggestion didn't solve your problem ? Don't you think that I tested it before posting ?!! Maybe you didn't expose everything that was necessary.

 

[APML]

Does this mean that my suggestion didn't solve your problem ? Don't you think that I tested it before posting ?!!

I tried it but it didn't work on my sheet but honestly, I really appreciate the help. I'm not very good at VBA so I guess there could've been something else I was doing wrong that prevented it from working

 

[Peter_SSs]

Duplicate to: Hide / Unhide Columns

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.