DTPicker invoeren

[Stijn909]

Hallo,

Ik wil in excel in een bepaalde kolom (F) de datum in kunnen voeren aan de hand van een DTPicker. Ik ben nieuw met VBA maar heb na wat speurwerk een DTPicker kunnen linken aan cel F2.

Echter loop ik nu tegen een aantal problemen aan:

1. Als ik op cel F2 klik verschijnt mijn kalender niet automatisch, alleen als ik via de VBA tool op F5 druk...
2. De range staat nu op F2. Ik wil dat dit komt op 'actieve cel', zodat hij hem overal in kolom F kan invoeren indien de betreffende cel geselecteerd is.
3. DTPicker sluit niet automatisch wanneer een datum geselecteerd wordt. Dit kan met "closeup" zoals ik begreep, maar alle manieren die ik probeer lopen uit op errors..

Wie kan mij hierbij helpen?

Bijgevoegd voor de duidelijkheid het excel bestand.

Bekijk bijlage Locatiebeheer excel.xls

 

[Spiesse]

in bijlage een uitgewerkt bestandje...

uitleg staat in het bestand zelf...

hopende je hiermee te helpen...

groeten
spiesse

Bekijk bijlage dtpicker.xlsm

 

[Warme bakkertje]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  [COLOR="#FF0000"]Cancel = True[/COLOR]
  If Not Intersect(Target, Range("C:C")) Is Nothing Then
        UserForm1.Show
  End If
End Sub

Met deze toevoeging blijft de cursor niet in de aangeklikte cel 'steken'

 

[Spiesse]

warme bakkertje,

is dit iets wat ik kan meenemen in mijn bestand?

vermoedelijk is de rest van de opzet wat gevraagd wordt?

groeten,
spiesse

 

[Stijn909]

Spiesse, Warme Bakkertje,

Dank voor de snelle reactie. Ik heb de VBA gegevens ingevoerd in mijn excel en het werkt gelukkig! Echter krijg ik nergens in de VBA gegevens gevonden wat ik moet veranderen zodat de kalendergegevens nu niet in kolom C worden ingevuld, maar in kolom F..

Zie ik nu iets over het hoofd of zit het verborgen?

Gr.

Stijn

 

[Spiesse]

Stijn,

de code zit achter blad1

daar moet je c:c veranderen naar f:f

als je dan dubbelklikt in kolom f krijg je je dtpicker