Laatste regel in een lijst

[robdgr]

Met

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

ga ik naar de laatste regel in een lijst.

ActiveWindow.SmallScroll Down:=123

heb ik toegevoegd, omdat de code zonder die regel wel de laatste regel markeert, maar er niet heengaat.

Is er een charmantere oplossing die ik onder een knop kan zetten?

 

[Roncancio]

Is er een charmantere oplossing die ik onder een knop kan zetten?

Bedoel je dit:

ActiveSheet.Range("A65536").End(xlUp).Activate

Met vriendelijke groet,


Roncancio

 

[robdgr]

Roncancio,

Dat is 'm, inderdaad. Het vreemde is dat

Sub laatste_regel()
'
' laatste_regel Macro


'
Application.ScreenUpdating = False
    ActiveSheet.Range("A65536").End(xlUp).Activate
Application.ScreenUpdating = True
End Sub

niet werkt, maar

Sub laatste_regel()
'
' laatste_regel Macro


'
    ActiveSheet.Range("A65536").End(xlUp).Activate
End Sub

wel, dus de screenupdating hindert de uitvoer. Dat geldt ook voor

Cells.Find(What:="dit is de volgende beschikbare regel", After:=ActiveCell _
, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate

Omdat ik één regel boven de laatste wil zitten, vond ik:

Sub laatste_regel()
'
Dim iRij As Integer
    iRij = Range("A65536").End(xlUp).Row
    Range("A" & iRij - 1).Select
End Sub