Automatisch naar weekdatum gaan dmv gegeven in B5.

[danny147]

Beste,

Ik geraak er niet aan uit om naar een bepaalde week te gaan met ingegeven weeknummer in cel B5 via besturingselement.

Heb code geschreven maar het lukt niet, waarschijnlijk iets over het hoofd gezien.

Private Sub Workbook_SelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.Goto Sheets("Controlerooster 2011").Range("G6:G421").Find([B5].Value, , xlValues, xlWhole), Scroll:=True
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Groetjes Danny. :thumb:

 

[HSV]

Hierbij met een spinbutton Danny.

 

[Thoralf]

Voeg nog even de volgende regel in voor de regel met End Sub

ActiveWindow.ScrollRow = Rij

en je hebt ook de betreffende week voor staan.

 

[HSV]

Bedankt voor je aanvulling Thoralf.

 

[Warme bakkertje]

Wijs onderstaande toe aan het besturingselement in B5

Sub tst()
    With Sheets("Controlerooster 2011")
        FoundRow = .Columns(7).Find(.[B5].Value, , xlValues, xlWhole).Row
        Application.Goto Range(.Cells(FoundRow, 1).Address), Scroll:=True
    End With
End Sub

 

[danny147]

Beste HSV, Thoralf en warme bakkertje,

@ HSV en Thoralf

Hij springt telkens naar het midden van de week ipv dat maandag als eerste zichtbaar moet zijn.

@ warme bakkertje

Bij jou werkt het perfect.

Allen,

Heb nu een aanpassing gedaan aan het bijgevoegd bestandje.

Als je op de knop GA NAAR klikt, dan moet je de weeknummer invullen en hij springt dan naar het gewenste weeknummer.

Als je op de knop ZOEKEN LK's klikt moet je een LK+nr invullen.
Wat ik nu wil is dat hij de datums opgeeft met eventueel het weeknummer erbij in een listbox toont.

VB. ik typ LK405 in en hij geeft mij in de listbox het volgende weer:

LK.------WeekNr.------Datum.
-----------------------------------
LK405-------2--------11-1-2011
LK405-------5---------1-2-2011

Alvast bedankt voor jullie meedenken. :thumb:

Groetjes Danny :thumb:

 

[HSV]

Je vorige vraag dacht ik dat je naar de weeknummer moest gaan in het zwart gemarkeerde blok.

Hoop dat ik het zo een beetje goed maak met deze bij(dr)(l)age.

 

[Warme bakkertje]

De reden dat ik mijn bestandje toch post is omdat Harry kolom 8 vol weekcijfers heeft geplaatst en ik gebruik maak van een functie in module1 om het weeknummer op te halen in de Listbox. Door de samengevoegde cellen evil is het enkel mogelijk bij de eerste rij van elke week om het weeknummer rechtstreeks op te halen en moest er dus een workaround komen.

 

[danny147]

Beste HSV en warme bakkertje.

@ HSV, je hoeft je niet te verantwoorden dat je het misverstaan had :d
Ik probeer het hiermee recht te zetten en opteren voor jouw voorbeeld.
Heb mijn samengevoegde cellen veranderd.

@ warme bakkertje, ik ga akkoord met hetgeen je zegt over de samengevoegde cellen.

HSV heeft er een extraatje bijgevoegd van zodra je niets invult dat hij dan ook een melding geeft 'Niets gevonden", daarom gaat mijn keuze naar zijn voorbeeld.

Daarbij is het nu hoop ik een gelijke stand, wat betreft de reacties. :d

Zie aangepast bestandje.

Groetjes Danny. :thumb:

 

[HSV]

Hoi Danny,

Misschien moet je kolom H nog even weer leeg maken.
Had ik ingevuld om de samengevoegde cellen te omzeilen.

Succes ermee. :thumb:

 

[danny147]

Beste HSV

Heb ik in mijn bestandje gedaan.

Allen bedankt voor de oplossingen.

Groetjes Danny. :thumb: