hide columns based on dates

[domtrump]

I have a report with dates as column headings. How would I write VBA to Hide all columns in a range that were

a. more than two days in the past from today AND
b. more than 30 days in the future from today

Trying to produce a snapshot for management and hide the rest.

Any ideas?

Thanks.

 

[Gday Bruce]

There's probably many cleaner ways of doing this but try;

Sub hide_Columns()

history_date = Format(Now() - 2, "d/mm/yyyy")
future_date = Format(Now() + 30, "d/mm/yyyy")

For Each date_column In Me.Range("A1:BB1")
   If DateValue(date_column) < DateValue(history_date) _
   Or DateValue(date_column) > DateValue(future_date) Then
    date_column.EntireColumn.Hidden = True
   Else
    date_column.EntireColumn.Hidden = False
   End If
Next date_column

End Sub

 

[domtrump]

There's probably many cleaner ways of doing this but try;

Sub hide_Columns()
 
history_date = Format(Now() - 2, "d/mm/yyyy")
future_date = Format(Now() + 30, "d/mm/yyyy")
 
For Each date_column In Me.Range("A1:BB1")
   If DateValue(date_column) < DateValue(history_date) _
   Or DateValue(date_column) > DateValue(future_date) Then
    date_column.EntireColumn.Hidden = True
   Else
    date_column.EntireColumn.Hidden = False
   End If
Next date_column
 
End Sub

Thanks - I'll give it a try!