Opgelost Voorwaarden voor scrollen van venster

[anton44]

In de onderstaande Sub (zie afgemagerd werkbestand) wil ik een voorwaarde toevoegen om het scrollen aan te passen afhankelijk van een wel of niet gevulde cel $H$365.
Indien deze cel gevuld is moet niet regel
"ActiveWindow.SmallScroll Down:=-Range("H4")" actief zijn maar
"ActiveWindow.SmallScroll Down:=-Range("H3")"
Waarschijnlijk wordt dat een genest IF / Else statement.

Sub Naar_datum_vandaag()
    Application.ScreenUpdating = False
    With Sheets("Energie")
    If Range("E3") < Range("E7") Then
    Call Naar_begin

    Else
    Application.Goto Cells(Application.Match([E3], Sheets("Energie").Columns(7), 0), 8), -1
    ActiveWindow.SmallScroll Down:=-Range("H4")

    End If
    End With
    
    ActiveWindow.ScrollColumn = 5
    Application.ScreenUpdating = True   

End Sub

 

[emields]

en dat gels enkel voor cel H365?

 

[AHulpje]

Sub Naar_datum_vandaag()
    Application.ScreenUpdating = False
    If Range("E3") < Range("E7") Then
        Call Naar_begin
    Else
        Application.Goto Cells(Application.Match([E3], Sheets("Energie").Columns(7), 0), 8), -1
        If Range("H365") <> vbNullString Then
            ActiveWindow.SmallScroll Down:=-Range("H4")
        Else
            ActiveWindow.SmallScroll Down:=-Range("H3")
        End If
    End If
    ActiveWindow.ScrollColumn = 5
    Application.ScreenUpdating = True
End Sub

 

[anton44]

@AHulpje,
Perfect ! Bedankt voor deze aanvulling.
Fijne Feestdagen.