"Dé grootste en gratis computerhelpdesk van Nederland"
-
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.
Openen op datum
- Onderwerp starter fransol1
- Startdatum
- Status
edmoor
Inventaris
- Lid geworden
- 8 sep 2000
- Berichten
- 39.746
- Besturingssysteem
- Windows XP, 7, 10, 11-23H2
- Office versie
- Office 365
Probeer het eens met deze:
Bekijk bijlage Kopie van Weekplanning.xlsm
Bekijk bijlage Kopie van Weekplanning.xlsm
Frans, misschien ben je hier iets mee.
File opent altijd in de huidige week.
Datums worden automatisch berekend, dus file kan voor alle jaren gebruikt worden.
De lay-out is wel anders dan in jouw voorbeeld, maar misschien ben je er iets mee.
File opent altijd in de huidige week.
Datums worden automatisch berekend, dus file kan voor alle jaren gebruikt worden.
De lay-out is wel anders dan in jouw voorbeeld, maar misschien ben je er iets mee.
Frans, ik heb de nodige aanpassingen gedaan.
1. Bestand opent in de huidige week.
2. Met de ComboBox kies je welke week je wilt zien.
3. Met de groene knop kan je daarna weer naar de huidige week gaan.
MAAR, ik krijg het maar niet klaar, dat wanneer je met de groene knop terug naar de huidige week gaat,
dat er dan in de ComboBox niets meer te zien is.
Ik dacht dat dit voldoende was:
Maar die code-regel doet niet wat ik hoopte.
Misschien kunnen de echte kenners dit oplossen.
Grtn Wieter
1. Bestand opent in de huidige week.
2. Met de ComboBox kies je welke week je wilt zien.
3. Met de groene knop kan je daarna weer naar de huidige week gaan.
MAAR, ik krijg het maar niet klaar, dat wanneer je met de groene knop terug naar de huidige week gaat,
dat er dan in de ComboBox niets meer te zien is.
Ik dacht dat dit voldoende was:
Code:
Sheets(1).ComboBox1.ListIndex = -1Misschien kunnen de echte kenners dit oplossen.
Grtn Wieter
Vooraf:De gebruikte code in het bestand is van vba-guru SNB.
Ondanks de reactie van TS in post 4, blijkt het toch niet de juiste oplossing te zijn op zijn vraag.
Toch heb ik nog enkele aardigheidjes aangebracht (voor event. geïnteresseerden).
1. De huidige dag krijgt een kleurtje.
2. De weekends worden gekleurd.
3. De feestdagen(Belgische) krijgen een kleurtje.
4. Uiteraard moet men bij de start van een nieuw jaar, de planning kunnen leeg maken.
Ondanks de reactie van TS in post 4, blijkt het toch niet de juiste oplossing te zijn op zijn vraag.
Toch heb ik nog enkele aardigheidjes aangebracht (voor event. geïnteresseerden).
1. De huidige dag krijgt een kleurtje.
2. De weekends worden gekleurd.
3. De feestdagen(Belgische) krijgen een kleurtje.
4. Uiteraard moet men bij de start van een nieuw jaar, de planning kunnen leeg maken.
Via een mail stelde Fransol1 me nog enkele vragen over het bestand.
1. Een datum kunnen zoeken.
2. Een gevraagde week printen.
Het beantwoorden van die vragen doe ik liever op het forum (Daarvoor bestaat een forum toch!!!).
Vraag 1 heb ik opgelost.
Met vraag 2(Een week printen) ga ik helemaal de mist in.
De code voor de knop [Printen] doet niet wat ik hoopte.
Wie kan Frans verder helpen?
1. Een datum kunnen zoeken.
2. Een gevraagde week printen.
Het beantwoorden van die vragen doe ik liever op het forum (Daarvoor bestaat een forum toch!!!).
Vraag 1 heb ik opgelost.
Met vraag 2(Een week printen) ga ik helemaal de mist in.
De code voor de knop [Printen] doet niet wat ik hoopte.
Code:
Private Sub CommandButton3_Click() 'Week van ComboBox1 printen
'Dim Week As String
'Dim Kolom As Long
'Kolom = 2
'Week = ComboBox1.Value
'Do Until Cells(2, Kolom).Value = Week
'Kolom = Kolom + 1
'Loop
' With ActiveSheet.PageSetup
' .PrintArea = Range(Columns(2), Columns(Kolom)).Address
' End With
' ActiveWindow.SelectedSheets.PrintPreview'PrintOut
End Sub- Status
