VBA - Auto Hide or show Column based on a value

[shabz1309]

Hi

Seems like my brain isnt working this sunday

can someone please help

i want a VBA script that will auto run in the background to hide or show a column based upon a value in a cell for example

if D1 = 0 ( it should auto hide the column)
if D1 = 1 (it should auto show the column)

Any ideas oh how to do this

Thanks in advance

 

[Fluff]

How is the cell value changing?

 

[mirology]

Here are 2 options choose one that suits u :

1- auto detect using worksheet change event :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
Range("A1").EntireColumn.Hidden = True
ElseIf Range("A1") = 0 Then
Range("A:A").EntireColumn.Hidden = False
Else
Exit Sub
End If
End Sub

2- using buttons... etc
sub hideme()
If Range("A1") = 1 Then
Range("A1").EntireColumn.Hidden = True
ElseIf Range("A1") = 0 Then
Range("A:A").EntireColumn.Hidden = False
Else
Exit Sub
End If
end if

change Range("A1") with the range you want .... if needed to be variable declare your range For example :
dim rng as range
rng.entirecolumn.hidden = True / false ... and so on

 

[shabz1309]

cell in D1 will be formulated which will look at another cell
example formula in D1
IF A2=TRUE,0,1

 

[Fluff]

Try this, in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$2" Then
        Columns(4).Hidden = Range("D1").Value
    End If
    

End Sub