• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Naar blad van weeknummer gaan

Status
Niet open voor verdere reacties.
T

tjeerd1972

Gebruiker
Lid geworden
8 feb 2010
Berichten
19
Ik heb tabblad met week nummers. Nu wil ik als ik file opstart dat deze na de map met de huidige week nummer gaat.
Hoe kan ik laten uitvoeren?
 
Code: 
Private Sub Workbook_Open()
    Sheets(DatePart("ww", Date - Weekday(Date, 2) + 4, 2, 2)).Activate
End Sub
 
Of:
Code: 
Private Sub Workbook_Open()
    Sheets(CStr(WorksheetFunction.WeekNum(Date, 21))).Activate
End Sub
 
Zet alle gegevens in 1 werkblad: zet het 'papier'denken overboord bij automatisering.
Gebruik autofilter om de huidige week te filteren.
 
Laatst bewerkt:
@Edm

Goed gezien.:thumb:
Of 'papierdenken' ?
 
Of:
Code: 
MsgBox DatePart("ww", Date, 2, 2)
 
Misschien kun jij de vraag ontrafelen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan