71
Excel / Re: ScrollRow
« Laatste bericht door SoftAid Gepost op 01 mei 2024, 21:36:54 »Zal altijd zo zijn, je zit in een oneindige loop.
Kan er geen tweede knop geplaatst worden, die een macro "Stoppen" triggert.
Ik zal de moelijke manier nemen....
Die macro "stoppen" zet de inhoud vaneen cel op "stop".
De macro "Start", kijkt bij elke loop of betreffende cel "stop" bevat.
Zo ja, Exit Sub
Wat het probleem bij het scrollen !!kan!!! zijn is 32bit api's die in een 64bit omgeving niet goed werken.
Die moet je dan declareren.....
Code: [Selecteer]
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public inc As Integer
Sub ScrollNow()
Dim lastRow As Long, nextRow As Long
Application.ScreenUpdating = True
lastRow = ActiveSheet.UsedRange.Rows.Count
If inc <> 1 Or inc <> -1 Then
If ActiveCell.Row = lastRow Then
inc = -1
Else: inc = 1
End If
End If
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
Application.StatusBar = "To End: ESC, Ctrl+Break"
Do While 1 = 1 'infinite loop
If inc = 1 And lastRow = ActiveCell.Row Then inc = -1
If inc = -1 And ActiveCell.Row = 1 Then inc = 1
nextRow = ActiveCell.Row + inc
Application.Goto Range("A" & nextRow), True
Sleep 400
Loop
handleCancel:
Application.StatusBar = False
End Sub
Bron
SoftAid