Ik heb een exceldocument dat op basis van weeknummers automatisch doorschuift met onderstaande code.
Hoe kan ik zorgen dat niet de huidige week maar één week eerder zichtbaar blijft.
Public Sub Auto_open()
'________________________________________________________________________________
'Weeknummer worden in rij 1 genoteerd
'Weekplanning begin op kolom D
'Het ontbreken van het weeknummer wordt als het einde van de weekplanning gezien
'________________________________________________________________________________
Dim iSheet As Integer
Dim iC As Integer
Dim sWeek As String
For iSheet = 1 To Worksheets.Count
For iC = 7 To 58
sWeek = Trim$(Worksheets(iSheet).Cells(1, iC).Value)
If Len(sWeek) = 0 Then Exit For
If Not IsNumeric(sWeek) Then Exit For
If CInt(sWeek) < Format$(Now, "WW", vbMonday, vbFirstFourDays) Then
Worksheets(iSheet).Columns(iC).Hidden = True
End If
Next iC
Next iSheet
End Sub
Hoe kan ik zorgen dat niet de huidige week maar één week eerder zichtbaar blijft.
Public Sub Auto_open()
'________________________________________________________________________________
'Weeknummer worden in rij 1 genoteerd
'Weekplanning begin op kolom D
'Het ontbreken van het weeknummer wordt als het einde van de weekplanning gezien
'________________________________________________________________________________
Dim iSheet As Integer
Dim iC As Integer
Dim sWeek As String
For iSheet = 1 To Worksheets.Count
For iC = 7 To 58
sWeek = Trim$(Worksheets(iSheet).Cells(1, iC).Value)
If Len(sWeek) = 0 Then Exit For
If Not IsNumeric(sWeek) Then Exit For
If CInt(sWeek) < Format$(Now, "WW", vbMonday, vbFirstFourDays) Then
Worksheets(iSheet).Columns(iC).Hidden = True
End If
Next iC
Next iSheet
End Sub