Hide columns based on cell value

[rmatenchuk]

Hi,

I am struggling to create a macro for hidding columns based on various tabs with a true or false trigger.


Below is my code... what am I doing wrong?

Probably a quick one for you guys, but tearing my hair out! Also - it is likely I can slim it down, any pointers are very welcomed.

Sub hide_master()
Application.ScreenUpdating = False

Dim rng As Range
Dim mycell As Range
Set rng = Range("A5:eY5")
Dim rng2 As Range
Dim mycell2 As Range
Set rng2 = Range("A1:eY1")
Sheets("Summary").Activate
For Each mycell In rng
If mycell.Value = "False" Then
mycell.EntireColumn.Hidden = True
End If
Next
For Each mycell In rng
If mycell.Value = "true" Then
mycell.EntireColumn.Hidden = False
End If
Next


Sheets("OWNER OCC").Activate

For Each mycell2 In rng2
If mycell2.Value = "False" Then
mycell2.EntireColumn.Hidden = True
End If
Next
For Each mycell2 In rng2
If mycell2.Value = "true" Then
mycell2.EntireColumn.Hidden = False
End If


Next

Application.ScreenUpdating = True

Sheets("Summary").Activate


End Sub

 

[skorpionkz]

Try this code:

Sub hide_master()
Application.ScreenUpdating = False

Dim wsS As Worksheet, wsOO As Worksheet
Dim iCol As Integer

Set wsS = Sheets("Summary")
Set wsOO = Sheets("OWNER OCC")

For iCol = 1 To 155 'Columns A to EY
    If wsOO.Cells(1, iCol) = "True" Then
        wsOO.Cells(1, iCol).EntireColumn.Hidden = False
    ElseIf wsOO.Cells(1, iCol) = "False" Then
        wsOO.Cells(1, iCol).EntireColumn.Hidden = True
    End If
    
    If wsS.Cells(5, iCol) = "True" Then
        wsS.Cells(5, iCol).EntireColumn.Hidden = False
    ElseIf wsS.Cells(5, iCol) = "False" Then
        wsS.Cells(5, iCol).EntireColumn.Hidden = True
    End If
Next iCol

Application.ScreenUpdating = True
wsS.Activate
End Sub

 

[rmatenchuk]

Thanks Andrew.

The "summary" page is working great, but the "Owner Occ" page is still not updating? What am i doing wrong?

Thanks for your help!

Ryan

 

[skorpionkz]

Are you sure that "false" and "true" are in row 1 in "Owner Occ"?

 

[rmatenchuk]

They are in row 1 - could there be anything else?

R