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

Datepicker automatisch naar de vandaag zetten

Status
Niet open voor verdere reacties.

Jay305

Gebruiker
Lid geworden
6 nov 2018
Berichten
76
Ik heb een excel bestand met daarin een userform en op dat userform staat een datepicker maar deze blijft staan bij de datum wanneer ik het bestand gemaakt heb dus moet ik telkens gaan zoeken naar de datum van vandaag, maar hoe word dit automatisch aangepast.Bekijk bijlage Storingen Technische Dienst.xlsm
 
Lastig iets van te zeggen voor personen die het betreffende object niet op hun PC hebben staan.
 
Als je de datepicker gebruikt.
In UserForm_Initialize()
Code:
Private Sub UserForm_Initialize()
T_00.Value = Format(Date, "dd-mm-yyyy")
T_02.Value = Format(Date, "dd-mm-yyyy")
T_04.Value = Format(Date, "dd-mm-yyyy")
etc....
End Sub
(ik zie niet direct een andere oplossing)
 
Die van snb doet het prima. Dan gebruik je die toch?
Zit je ook niet vast aan een object dat er niet standaard is. (mscal.ocx)
 
1. in het userform heb je geen Multipage nodig.
2. met een combobox met alle afdelingen kun je kiezen over welke afdeling het gaat
3. de ochtend/avond kun je eenvoudiger vastleggen met 2 keuzerondjes
4. de code van het userform blijft dan erg beperkt
5. ik vermoed dat je bij datum hooguit vandaag of gisteren wil hebben; ook dat kan met 2 keuzerondjes
; dan is een eeuwigdurende kalender wel erg veel van het goede.
 

Bijlagen

  • __Storingen.xlsb
    1,5 MB · Weergaven: 45
Laatst bewerkt:
In UserForm_Initialize()
Code:
DTPicker1.Value = Date
 
@ Jack Nouws, wat is het verschil met mijn postje #4 buiten de format?
 
@ Dotchie, verander de format eens en maak er maar eens... dinsdag van ofzo
 
Laatst bewerkt:
Naar mijn bevindingen kom ik hier op uit. (om zomaar een voorbeeld te geven)
Code:
  With T_00
    .Value = Date
    .Format = dtpCustom
    .CustomFormat = "dddd dd MMM, yyyy"
  End With
 
Zoals in #2 staat gebruik dat ellendige element niet. Het is in geen van de nieuwere versies van Excel beschikbaar of je moet de kennis hebben om er via omwegen aan te komen. Voor iedere passant op dit forum die het bestandje opent, en deze kennis niet heeft, bestaat de kans dat de hele zaak vastloopt met alle gevolgen voor de bestanden die in dezelfde sessie openstaan.:shocked:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan