rij met volgende chronologisch item bovenaan plaatsen

[littlepete]

hallo,

ik heb een adressenlijst-agenda met alle gegevens van familie en vrienden.
de zes eerste kolommen zijn zichtbaar en vullen het scherm. de kolommen g tot en met by bevatten alle courante gegevens...
telkens naast de kolom van geboortedatum, overlijdensdatum, trouwdatum, ... staat een kolom die de datum in getal weergeeft: geboren op 19/4 wordt zo 04191;
overleden op 17 maart 2020 is dan 03173...

filteren en sorteren lukt prima, maar de gevraagde lijsten (bv. alle overlijdens in april,alle trouwdata in augustus,...) zijn steeds langer dan het scherm. en bovenaan
het scherm staat steeds het eerste item van de gevraagde maand.

hoe kan ik de lijst verschuiven zodat de eerst zichtbare rij bovenaan een item van vandaag of de eerstvolgende dagen is?

 

[littlepete]

inderdaad : eerst 01011 geboorte op 1 januari... 02152 getrouwd op 15 februari... tot als laatste 12316 hertrouwd op 31 december ...

 

[mart37]

Kan u de hele kolom BH eens opmaken als tekst. (Start - Getal - Getalnotatie --> Tekst)
Op welke rij begint de tabel? De rij dus onder de kolomtitels.

 

[littlepete]

hallo,

nogmaals dank voor de hulp !

de hele kolom BH is opgemaakt als tekst. de eerste rij in gebruik is 5.

thx !

 

[mart37]

Sub scrolltoday()
    Dim rng As Range
    Dim c As Range
    Dim firstrow As Long
    Dim lastrow As Long
    Dim foundrow As Long
    Dim searchdate As String
    firstrow = 5 'startrow for search - first cell under title
    searchdate = Format(Date, "mmdd") & "0"
    lastrow = Range("BH" & Rows.Count).End(xlUp).Row
    Set rng = Range("BH" & firstrow & ":BH" & lastrow) 'Range("BH:BH")
    foundrow = 0
    For Each c In rng
        If c.Value > searchdate And foundrow = 0 Then foundrow = c.Row
    Next
    If foundrow > 0 Then ActiveWindow.ScrollRow = rng(foundrow + 1 - firstrow).Row
End Sub

 

[littlepete]

Sub scrolltoday()
    Dim rng As Range
    Dim c As Range
    Dim firstrow As Long
    Dim lastrow As Long
    Dim foundrow As Long
    Dim searchdate As String
    firstrow = 5 'startrow for search - first cell under title
    searchdate = Format(Date, "mmdd") & "0"
    lastrow = Range("BH" & Rows.Count).End(xlUp).Row
    Set rng = Range("BH" & firstrow & ":BH" & lastrow) 'Range("BH:BH")
    foundrow = 0
    For Each c In rng
        If c.Value > searchdate And foundrow = 0 Then foundrow = c.Row
    Next
    If foundrow > 0 Then ActiveWindow.ScrollRow = rng(foundrow + 1 - firstrow).Row
End Sub

vba als hobby hebben is eigenlijk een dubbele hobby ! eerst het zoeken en puzzelen tot alle stukjes passen, en daarna: het bestuderen van de code die werkt en het resultaat juist weergeeft !

voor mij begint deel twee nu !!! hartelijk dank voor de hulp het resultaat is mooi en netjes !!! mooie dag nog !!!
nu alleen zoeken waar ik kan markeren dat het probleem is opgelost ...

dankuwel !

 

[littlepete]

ik heb een vervolgvraagje gesteld in verband met boolean variables