Hide Columns Macro

[SoulSeeker]

Hello,

I'm looking for some help with a macro code. I need to hide columns depending on the actual time. Here's what i have:

<table border="1"><tbody><tr><td>08:00</td><td>09:00</td><td>10:00</td><td>11:00</td><td>12:00</td><td>13:00</td></tr></tbody></table>

And so on, and depending on the actual time i want to hide the rest of the columns. If for example the actual time is 10:30 AM i want to hide column D, E and F. Any help would be greatly appreciated. Thanks

 

[John Davis]

Hello,

I'm looking for some help with a macro code. I need to hide columns depending on the actual time. Here's what i have:

<table border="1"><tbody><tr><td>08:00</td><td>09:00</td><td>10:00</td><td>11:00</td><td>12:00</td><td>13:00</td></tr></tbody></table>

And so on, and depending on the actual time i want to hide the rest of the columns. If for example the actual time is 10:30 AM i want to hide column D, E and F. Any help would be greatly appreciated. Thanks

Maybe something like this?

Sub SoulSeeker()

'If Range("A1") holds the time value NOW

Select Case Range("A1").Value

Case Is = #10:00:00 AM#

    Cells.Columns.Hidden = False
    Columns("A:A").Hidden = True
    
Case Is = #10:30:00 AM#

    Cells.Columns.Hidden = False
    Columns("D:F").Hidden = True
    
End Select


End Sub

 

[jmthompson]

Or this...assuming your column headers are in row 1

Sub hideme()
Dim c As Range
Dim MyTime As Long
MyTime = Format(Hour(Now()), "####")
For Each c In Range("A1:H1")
    If Format(Hour(c), "####") > MyTime Then
    c.EntireColumn.Hidden = True
    End If
Next c
End Sub

 

[SoulSeeker]

I like that one jmthompson, it actually works perfectly. The issue is that i want to hide columns using that as a reference. So i have the hours of the day in range AA2:AQ2 because I'm doing calculations that require to have them in a single row, but what i really want to hide is what is what is on D1:S1 based on the actual time.

 

[jmthompson]

So what are the values in D1-S1?