Add/Hide Columns based on value

[Cworm]

I need an auto macro to hide columns based on a date. The date will be manually typed in at cell "End_Date7.0" .

The row that will have a date in it is row 12. I need to hide the columns that contain a date past the date entered for "End_Date7.0". The range for the columns are D-BF (the specific data is coded as "Whole_Res_7.0"). I would like this macro to update whenever someone has entered data into the "End_Date7.0" cell. So if they entered a different date, the hidden columns would re-appear.

Any help would be greatly appreciated!

 

[jmthompson]

So the cells that would indicate which columns are hidden are B12-DF12?

What cell contains the date for "End_Date7.0"?

 

[Cworm]

The "End_Date7.0 is Cell D8, it is a manual input date

 

[Cworm]

And yes, the cells that would indicate the columns hidden are B12-DF12. If in B12 the date is greater than the date in D8, I would like B column to be hidden. If it is not greater than that date, I would like the column to unhide. Make sense?

 

[jmthompson]

D8 of the same sheet where the columns are to be hidden?

If no, what is the sheet name with D8?

What is the sheet name with the columns to be hidden/unhidden?

 

[Cworm]

Yes, it is all on the same sheet... "7.0 Resource Allocation" this is the only sheet this calculation is needed for.

Thank you for your time

 

[jmthompson]

What should happen if D12 is greater than D8?

 

[Cworm]

Oh sorry...it starts at F - DF for row 12 data. I am sorry. Nothing will be hidden before column F

 

[jmthompson]

Right click on the tab, select View code and paste this in (save as a copy of your workbook)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Intersect(Range("D8"), Target) Is Nothing Then Exit Sub
Range("F:DF").EntireColumn.Hidden = False
For Each c In Range("F12:DF12")
If c.Value > Range("D8").Value Then c.EntireColumn.Hidden = True
Next c
End Sub

 

[Cworm]

Thank you so much! It is perfect for what I am looking for.

~Christina