werkblad openen(2)

[popipipo]

http://www.helpmij.nl/forum/showthread.php/782549-werkblad-openen

Hier een gelijksoortige vraag alleen met een iets ander layout.

Hoe kan ik deze file openen op de juiste week; de overige weken moeten ingeklapt blijven.
Ook als ik via de werkblad 'start' naar de huidige maand ga moet dit gebeuren.
Ga ik naar een andere maand moeten alle kolommen ingeklapt zijn.

Kolommen A : D moeten ALTIJD zichtbaar zijn.

Vandaag is het zondag 15 september in week 37
Bij het openen van de file wil ik graag dat in tabblad 'september' de kolommen S : Y zichtbaar zijn.

Morgen is het maandag 16 september , week 38
Nu wil ik dus kolommen Z : AF geopend hebben; ook op di 17/9 tm zo 22/9 moeten deze kolommen geopend worden.

 

[snb]

Waarom niet gewoon kolommen verbergen in plaats van die in/uit-klappers ?

 

[popipipo]

Op het werk willen we papierloos (arm) gaan werken
Dit is een checklist die we nu op papier hebben. Op 1 pagina hebben we het overzicht van 1 week.
We kunnen zo snel zien of alles gecheckt is, ook van de voorgaande weken.

In principe zou verbergen ook kunnen als je tenminste eenvoudig de voorgaande weken kunt raadplegen.
Ik dacht dit te kunnen bereiken met de standaard aanwezige optie van groeperen.
Groeperen verbergt in principe ook kolommen.

 

[snb]

Dit lijkt me voldoende (verwijder de worksheet_activate events)

Sub Naar_tabblad()
   With Sheets(Application.Caller)
     With .Rows(2).Find("week " & Application.WeekNum(Date, 21), , , 1)
        .Parent.UsedRange.Offset(, 4).Columns.Hidden = True
        .Resize(, 5).EntireColumn.Hidden = False
        Application.Goto .Offset(2), True
    End With
    End With
End Sub

NB. Het ISO weeknummer in Excel 2010: =weeknum(today();21)

 

[popipipo]

Ik werk zelf met excel 2007 en op het werk gebruiken we helaas excel 2003 nog
Dan zal dit dus helaas niet werken

 

[snb]

Dan zal het hiermee wel lukken:

 

[popipipo]

De eerste testen lijken goed te gaan.
Bedankt

 

[popipipo]

Bestandje wat aangepast aan mijn wensen.
Het is nu echter oktober en nu gaat het niet goed.
Niet alleen in dit bestandje maar ook in het bestandje uit #6
Ik kom er niet achter waarom het mis gaat

 

[snb]

bij mij lukt dit:

Private Sub Workbook_Open()
   With Sheets(Format(Date, "mmmm"))
        .Unprotect
        Application.Goto .Cells(4, 7 * DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2) - DatePart("ww", Date - Day(Date) - Weekday(Date - Day(Date), 2) + 4, 2, 2))
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=False
   End With
End Sub

Maar eerlijk gezegd hou ik niet zo van het op slot zetten van werkbladen (waarom zouden ze anders zo heten ?).

In de bijlage van #6 zit geen werkblad met de naam oktober.
Als de macro daar goed zou lopen zou dat veel verontrustender zijn.

 

[popipipo]

In de bijlage van #6 zit geen werkblad met de naam oktober.

Die had ik uiteraard wel zelf toegevoegd, maar dan nog werkte hij niet.

Om de nieuwe code te testen heb ik de systeem datum(maand) van mijn pc aangepast
Bij januari tm oktober werkt hij prima.

Bij november en december krijg ik een foutmelding in de regel:

Application.Goto .Cells(4, 7 * DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2) - DatePart("ww", Date - Day(Date) - Weekday(Date - Day(Date), 2) + 4, 2, 2))

Heeft iemand hier een verklaring voor?

 

[snb]

Application.Goto .Cells(4, 7 * (DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2) - DatePart("ww", Date - Day(Date) - Weekday(Date - Day(Date), 2) + 4, 2, 2)))

Als je de code analyseert:
Bereken het aantal weken tusen vandaag en het begin van de maand van vandaag.
Ga 7 keer dat aantal weken in kolommen naar rechts.

 

[popipipo]

Nu gaan november en december ook goed.

Bedankt