Kalender in registratieformulier

[Hampert]

Hallo forummers,

Ik zit al enige tijd als aspirant VBA gebruiker te stoeien met de juiste code te maken voor mijn registratieformulier.
Ik wil dit formulier graag zonder gebruik van muis invullen (dus geen Klik).
Nu zit ik met het volgende: ik wil graag een verwijzing naar een pop-up kalender maken. Dit zou als volg dienen te gebeuren;
Als Cel D is "V" dan kalender die ik d.m.v de pijl toetsen kan bedienen. Dan met Enter de datum selecteren en deze moet geplaatst worden in Cel A. Na 2e Enter zou de kalender moeten verdwijnen. Na verdwijnen van de kalender zou ik in Cel D een cijfer willen invoeren (waar dus de V niet meer mag voorkomen).
Dit moet gelden voor de kolom D cel 7 t/m 10000

Wie kan mij hiermee helpen.

Grt Hampert

 

[paulva]

Niet echt 100% wat je wenste maar misschien kan het helpen...
Bekijk bijlage datum.xls

edit: deze werkt beter
Bekijk bijlage datum2.xls

 

[Hampert]

Paulva,
Bedankt voor de reactie ik krijg alleen het bericht dat het object niet op mijn PC aanwezig is.
Ik denk dat dit de kalender zal zijn.

Ik heb op mijn pc EXL 2007

Grt Hampert

 

[Hampert]

Paulva ,

Na wat aanpassingen werkt het perfect in jou bestand. :thumb:
Ga het nu in mijn bestand invoegen en kijken of het dan ook nog functioneert.

Alvast hartelijk dank.

Ik laat weten hoe het verder gaat.

Hampert

 

[Hampert]

Net met nog enkele aanpassingen het geheel in mijn bestand geplaatst.
Ik zou toch graag de dubbele "Enter" er uit halen na selectie van de datum. Dus gelijk na datum selectie met 1x "Enter" waarde in cel "A" en kalender sluiten.
Hoe kan ik dit nog veranderen?
Verder werkt het perfect.

Hampert .

 

[paulva]

Plaats de volgende code:

Private Sub DTPicker1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
    If KeyCode = 13 Then
            Cells(MijnTarget.Row, 1).Value = DTPicker1.Value
            Cells(MijnTarget.Row, 4).Value = ""
            Cells(MijnTarget.Row, 4).Select
            Unload Me
    End If
End Sub
Private Sub UserForm_Activate()
'    volgende lijn om de cel met 'v' weer te selecteren
    MijnTarget.Select
    DTPicker1.Value = DTPicker1.Value
End Sub

in de plaats van deze code:

Dim bolOk As Boolean
Private Sub DTPicker1_Change()
'Datum wijzigt een tweede keer
    bolOk = False
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, ByVal Shift As Integer)
    If KeyCode = 13 Then
        If bolOk = True Then
        Cells(MijnTarget.Row, 4).Value = ""
        Cells(MijnTarget.Row, 4).Select
        Unload Me
        Else
            Cells(MijnTarget.Row, 1).Value = DTPicker1.Value
            bolOk = True
        End If
    End If
End Sub
Private Sub UserForm_Activate()
'    volgende lijn om de cel met 'v' weer te selecteren
    MijnTarget.Select
    DTPicker1.Value = DTPicker1.Value
End Sub

Je had die tweede enter wel zelf gevraagd, he???

 

[Hampert]

Hey Paulva,

Werkt super. Heb wel wat aanpassingen gedaan.
Bedankt voor de tweede code, ik heb het je wel onnodig lastiger gemaakt.

Ik had idd zelf om de tweede enter gevraagd.

Verder helemaal top.

Ik zet 'm nu op opgelost.

Grt Hampert