en er zit ook nog een soort foutje in kan de macro niet zo goed stoppen en als ik ESC druk komt die met een fout
Zal altijd zo zijn, je zit in een oneindige loop.
Sub test()
Dim lastRow As Long, i As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To lastRow Step 2
Cells(i, 1).Select
ActiveWindow.SmallScroll down:=5
Application.Wait (Now + TimeValue("00:00:01"))
If i = lastRow - 2 Or i = lastRow - 1 Then
i = 0
Cells(1, 1).Select
End If
Next i
End Sub
Hier maak ik gebruik van SmallScroll, is misschien minder schokkerig, maar je probleem blijft hetzelfde, je zit in een oneindige loop.
Excel is daarvoor helemaal niet geschikt.
Moest er wat meer duidelijkheid bestaan wat ze in het buurthuis willen bereiken, ik heb ooit eens een powerpresentatie gemaakt voor het buurthuis van mijn oma.
Dat ging van openingsuren van de kapper, kantine, welke bezigheidstherapie, noem maar op, zelfs de biljard uitslagen.