Kolommen verbergen als voldoen aan voorwaarde

[Basbrommer]

Hallo,

Voor mijn werk hebben we een planning gemaakt waarin in de kolommen een datum staat. Zodra die datum voorbij is, is het ook niet meer nodig dat hij nog in beeld is. Nu wil ik een macro maken die kolommen automatisch verbergt als de datum al geweest is. Kan iemand mij helpen om zo'n macro in elkaar te zetten?

Vriendelijke groet,
Bas Immerzeel

 

[OctaFish]

En wanneer moet die macro draaien?

 

[OctaFish]

Deze macro zou je eens kunnen proberen.

Private Sub Workbook_Open()
Dim rng As Range, i As Integer

    Set rng = Sheets("Activiteitenrooster").Range("V3")
    Do Until rng.Offset(0, i).Value >= Date
        rng.Offset(0, i).EntireColumn.Hidden = True
        i = i + 1
    Loop

End Sub

 

[Basbrommer]

Dank je wel voor de snelle reactie! Het werkt prima!

 

[VenA]

Misschien eerst even de basiskennis van Excel wat opvoeren? Uit de datum kan je de dag halen. Obv het kolomnummer kan je bepalen of het een ochtend of middag is. Hier is dus maar 1 consistente formule voor nodig bv

=UPPER(TEXT(W3;"ddd")&IF(ISEVEN(COLUMN());"o";"m"))

Over het verbergen van kolommen is wel zoveel te vinden en dat gebeurt meestal niet met een lusje.

in de module van ThisWorkbook

Private Sub Workbook_Open()
  With Sheets("Activiteitenrooster")
    x = Application.Match(CDbl(Date), .Rows(3), 0) - 2
    If IsNumeric(x) Then .Columns(2).Resize(, x).Hidden = True
  End With
End Sub