Macro written but Columns wont auto unhide but rows will,

[mistatasty]

I need to hide certain columns based on certain cells being 0 as well as hide certain rows when certain cells are 0. I had a previous code to auto hide/unhide the rows based on the reference cell changing from 0. It worked fine and when the 0 changed the row would automatically unhide. However, I tried to input the same sort of macro to hide columns, but now the columns wont unhide automatically when the reference cell changes from 0, it has to be done manually. What is wrong here?

Private Sub Worksheet_Calculate()
Dim c As Range

Application.EnableEvents = False

For Each c In Range("A26:A247")

If c.Value = "0" Then
Rows(c.Row & ":" & c.Row).EntireRow.Hidden = True
Else
Range(c.Row & ":" & c.Row).EntireRow.Hidden = False

End If
Next
Application.EnableEvents = True
End Sub

Sub Hide_Columns_Containing_Value()
Dim c As Range
Application.EnableEvents = False

For Each c In Range("e25:an25").Cells
If c.Value = "0" Then
c.EntireColumn.Hidden = True
Else
c.EntireColumn.Hidden = False
End If
Next
Application.EnableEvents = True

End Sub

 

[Joe4]

VBA code placed in "Worksheet_Calculate" event procedures run automatically upon a calculation happening in the sheet.
(Event Procedure VBA code is VBA code that runs automatically upon some event happening - they must be placed in the correct place and must be named a certain way).

Your second procedure (the one that hides the columns) is not event procedure VBA code, so it will not run automatically.
You would need to place this code in the "Worksheet_Calculate" event procedure also, under the other code.

 

[mistatasty]

VBA code placed in "Worksheet_Calculate" event procedures run automatically upon a calculation happening in the sheet.
(Event Procedure VBA code is VBA code that runs automatically upon some event happening - they must be placed in the correct place and must be named a certain way).

Your second procedure (the one that hides the columns) is not event procedure VBA code, so it will not run automatically.
You would need to place this code in the "Worksheet_Calculate" event procedure also, under the other code.

haha figured it out a minute before you replied. thank you though

 

[Joe4]

haha figured it out a minute before you replied. thank you though

Ok, that's good to hear.

Also, in the future, please use the Code Tags when posting your code. It makes it much more readable!
See: How to Post Your VBA Code