Venster scrollen met VBA

[HSV]

Bedankt voor het delen van je probleem Anton.

Vreemd dat dat invloed kan hebben.
Staat het scherm niet op de juiste resolutie?
Misschien is er een oplossing voor je probleem in de afgehandelde vragen op Helpmij.nl.

Succes, en laat het even weten als er nog iets uitkomt.


edit:
Je hebt je bericht aangepast zie ik.
Als de datum uit beeld is gaat het fout?

 

[anton44]

Bedankt voor het delen van je probleem Anton.

Vreemd dat dat invloed kan hebben.
Staat het scherm niet op de juiste resolutie?
Misschien is er een oplossing voor je probleem in de afgehandelde vragen op Helpmij.nl.

Succes, en laat het even weten als er nog iets uitkomt.


edit:
Je hebt je bericht aangepast zie ik.
Als de datum uit beeld is gaat het fout?

Het houdt je blijkbaar ook nog flink bezig
Inderdaad, zodra de datum uit beeld ligt is het mis. Door de zoom te wijzigen zodat die weer in beeld komt gaat het goed.

 

[anton44]

Stof tot nadenken:
#80 Als de code 110 t/m 170 overgeslagen worden gaat de cursor naar AO6 bepaald door de waarde 3 in .Offset

90      Application.Goto .Rows(3).Find(wk, , xlValues, xlWhole).Offset(3, -8), True

Door de .Offset waarde te vergroten scrollt het scherm zodat de actieve cel als 1e staat in kolom AO van het splitscreen.

Gedachtegang:
In cel D1 kan de waarde bepaald worden van de jongste datum (=MIN(D6 : D31)). Als nu in cel E1 de rij bepaald kan worden waar die min.waarde staat zou die kunnen dienen als input voor de .Offset. De cursor staat dan weliswaar niet op de cel met de jongste datum maar wel op de juiste rij en 2 smalle kolommen naar rechts.
Is dit misschien een optie die met VBA gerealiseerd kan worden ?

 

[anton44]

Met gebruikmaking van formules:
In D1 opzoeken van locatie jongste datum:

=ALS((VERGELIJKEN(MIN(D6:D38);D6:D38;-1)-D2)>D2;VERGELIJKEN(MIN(D6:D38);D6:D38;0)-D2;VERGELIJKEN(MIN(D6:D38);D6:D38;-1))

In D2 een waarde om de uitkomst van D1 aan te passen om de geselecteerde cel op een visueel wenselijke hoogte te krijgen.
Aangepaste macro in This Workbook om de offset in regel 90 variabel te krijgen.

Sub Workbook_Open()

10  Dim lLaatsteRij As Long
20  Dim wk As Long

30  wk = DatePart("ww", Date, vbMonday, vbFirstFourDays)
40  With Sheets("Planning")
50     Columns("D:E").ColumnWidth = 8.12
60    If .Range("F3") = wk Then
70       Application.Goto .Range("F7"), True
80    Else
90      Application.Goto .Rows(3).Find(wk, , xlValues, xlWhole).Offset(.Range("D1"), -7), True
100   End If

110   lLaatsteRij = Range("A7").End(xlDown).Row
120   Set c = .Range("D7:D" & lLaatsteRij + 1).Find(CDate(Application.Min(.Range("D7:D" & lLaatsteRij + 1))))
130   If Not c Is Nothing Then
140     Application.Goto c
150    Else
 End If
End With

Opm:
Als voor de waarde in cel D2 een voorkeurswaarde gevonden is kan die in de formule van D1 verwerkt worden en cel D2 leeggemaakt.
De Als-voorwaarde in D1 is noodzakelijk als de gevonden rij hoger ligt dan de waarde in D2.

Mogelijk ligt hiermee nog een uitdaging dit te realiseren in VBA