Hiding columns based on row 4 criteria

  • Thread starter Thread starter Pierre
  • Start date Start date
P

Pierre

Looking for a macro to hide any columns from columns "W" through "HE"
if the cell in that column in row 4 is equal to zero (a formula exists
in the row 4 cell.)

Also, I surmise, if the macro includes the word "true", I can change
that to "false", and get a macro to open all the closed columns?

Thanks for any suggestions.

Pierre
 
Hi,

Right click the sheet tab, view code and paste this in and run it. Changing
True to false unhides

Sub mariner()
Set myrange = Range("W4:HE4")
For Each c In myrange
If Not IsEmpty(c) And c.Value = 0 Then
c.EntireColumn.Hidden = True
End If
Next
End Sub

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hide columns based on row values 2
Hiding/Exposing Rows based on a cell value 10
Hiding/Unhiding Rows Automatically 1
Start adding blank rows at row 4 (vba code) 4
Summing cells based on mulitiple criteria over mulitple columns 0
Automatically hide column or row if a cell value meets criteria 3
Hide unused rows based on column info 5
Index Match on Columns and Rows 0

Back
Top