• 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.

Bestand in huidige maand opstarten

Status
Niet open voor verdere reacties.
R

Roma

Gebruiker
Lid geworden
7 sep 2013
Berichten
515
Beste allemaal,
Ik heb een bestand van 20 tabbladen waarvan 12 tabbladen met de maanden zijn.
Ik ben op zoek naar een juiste code om bij het openen van het bestand de juiste maand opstart.
Wie kan mij helpen
 
"met de maanden" geeft weer zoveel mogelijkheden dat een voorbeeld document niet mag ontbreken.
 
Hierbij een voorbeeld
 

Bijlagen

  • opslaan in juiste maand.xlsm
    40,7 KB · Weergaven: 41
Probeer deze eens in de ThisWorkbook sectie:
Code: 
Private Sub Workbook_Open()
    Sheets(StrConv(Format(Date, "mmmm"), vbProperCase)).Activate
End Sub
 
Edmoor,
Je bent super
bedankt voor je snelle reactie
 
Mij lijkt strconv overbodig: er kunnen geen twee werkbladen met resp. de naam mrt en Mrt in 1 werkboek voorkomen.
 
Nee, maar Format geeft wel alles in kleine letters terug en de blad namen beginnen met een hoofdletter.
Het is niet echt nodig inderdaad, maar wel om compleet te zijn :)
 
Bijna compleet: Niet openen in een niet nederlandse excel-versie :p ;)
 
Ook helemaal waar :D
 
:d

Code: 
Private Sub Workbook_Open()
    Sheets(StrConv(Application.Text(Date, "[$-413]mmmm"), vbProperCase)).Activate
End Sub
 
Code: 
Sub M_snb()
  sheets(Application.GetCustomListContents(3)(Month(Date))).activate
  sheets(MonthName(Month(Date))).activate
End Sub
 
Beste,
Sorry voor mijn late reactie maar allemaal bedankt voor jullie medewerking voor het oplossen van mijn vraag
BEDANKT
 
Er leiden meerdere wegen naar Roma :p
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan