Hide/Unhide Column Range

Hi All,

I am new here and was hoping that someone might be able to help me with a VBA issue I am having. I just started learning VBA and can't seem to get this to work.


I have a list of days in Column A , and a Total in column B.



What I need is for a macro to look at C3:C25 and if this is = 0 Or IsEmpty then to Hide the entire column C. Then for this to Loop to (D3:25) and (E3:E25) and so on untill the end of the sheet. (up to column JA)

Once new information is pasted to the sheet on the following day, eg. Day 6. Then for the column to unhide if there is an integer (that is not zero) now present in the Range.

Can anyone help me with this problem? It would be greatly appreciated.

I have attached an example sheet with a scaled down version of what my sheet looks like.Example Sheet.xlsm

Thank you very much.

Maybe:

Please Login or Register  to view this content.

Hi,

Thank you very much for your reply. I used your 'helper cell' idea and got the macro as below.

Do you know if there is an easy way to unhide all columns too? So I can put a button on it for that too?

Thank you again for your help.





Sub HideColumns()

Dim rng As Range, cell As Range

Set rng = Range("A26:CA26")

Range("C26:CA26").EntireColumn.Hidden = False

For Each cell In rng

If cell.Value = "Hide" Then cell.EntireColumn.Hidden = True

Next cell

Application.ScreenUpdating = False

End Sub

This one line will unhide:

Please Login or Register  to view this content.

Thank you!