datum zoeken

[ewezel]

Beste Helpers,

ben de laatste twee weken goed geholpen met mijn planning en snipperdagen bestand wat ik (met hulp van jullie) heb gemaakt.

Zit nu echter nog met een kleine aanvullingen die ik zo willen doen maar kom er niet uit.
Graag zou ik willen dat wanneer wij in het planningsblad op een datumcel dubbelklikken de sheet dagplanning tevoorschijn komt op de juiste datum.

is dit mogelijk en zo ja iemand suggesties.

bij voorbaat bedankt voor het kijken.

erwin

 

[Warme bakkertje]

In de bladmodule van planningsweergave

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    With Sheets("dagplanning")
        Application.Goto .Range(.Columns(1).Find(CDbl(Target.Value), , xlValues, xlWhole).Address), True
    End With
End Sub

 

[ewezel]

goedemorgen Rudi,

werkt perfect bedankt voor de hulp

groeten erwin

 

[snb]

of ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Application.Goto Sheets("dagplanning").Columns(1).Find(CDbl(Target.Value), , xlValues, 1), True
End Sub

 

[ewezel]

hoi snb

iets korter doet hetzelfde bedankt

groeten erwin