robdgr
Verenigingslid
- Lid geworden
- 8 sep 2001
- Berichten
- 4.420
- Office versie
- Microsoft 365
Met
ga ik naar de laatste regel in een lijst.
Is er een charmantere oplossing die ik onder een knop kan zetten?
Code:
Sub laatste_regel()
'
' laatste Macro
'
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=123
Range("B4").Select
Cells.Find(What:="dit is de volgende beschikbare regel", After:=ActiveCell _
, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
Application.ScreenUpdating = True
End Sub
heb ik toegevoegd, omdat de code zonder die regel wel de laatste regel markeert, maar er niet heengaat.ActiveWindow.SmallScroll Down:=123
Is er een charmantere oplossing die ik onder een knop kan zetten?