vba vind de eerste datum in lolom

[userJan]

Hallo, dames en heren,
ik heb een code die vind en gaat naar de nieuwste datum.

Sub jump_rekeningen_rij_laagste_datum()
Range("H31").End(xlDown).Select
end sub
Ik zou graag ook andersom willen dus de oudste datum, met Up ipv Down werkt niet.
Wie kan mij helpen?
mvg Jan

 

[edmoor]

Plaats een voorbeeld documentje.

 

[snb]

test:

cells(31,8).select

 

[userJan]

Bedankt, het werkt echter als het autofilter geactiveerd wordt dan niet meer, logisch want rij 31 is er niet meer.
mvg Jan

 

[userJan]

Ik had het anders moet formuleren, namelijk ga naar de oudste datum en selecteer de oudste datum ondanks dat het autofilter is gebruikt.
mvg Jan

 

[jverkerk]

Ben geen vba deskundige.
Zal beter kunnen.

 

[HSV]

Ook indien niet gesorteerd.

Sub hsv()
 ActiveSheet.AutoFilter.Range.Find(CDate(Application.Min(Range("H30").CurrentRegion.SpecialCells(12)))).Select
End Sub

 

[userJan]

Allen, ik ben U zeer erkentelijk. Dankjewel.
mvg Jan

 

[userJan]

Goedemorgen HSV, deze code loopt vast.

 

[emields]

plaats hem in een voorbeeldbestandje, niet iedereen heeft zin er zelf een te maken.
gebruik knoppen om een macro aan te sturen, tekeningen zijn voor een kleurboek.

 

[edmoor]

Goedemorgen HSV, deze code loopt vast.
Bekijk bijlage 375963

Dan heb je ook een foutmelding gekregen.

 

[HSV]

Hier niet.