1
Excel / Re: Bestand voor genealogie
« Laatste bericht door mvdvlist Gepost op Vandaag om 13:03:37 »Ik gaf ook alleen maar een aanzetje hoe je de loopjes moet formuleren. Verder heb je al veel helpers. Misschien kun je er dus iets mee...
Zal altijd zo zijn, je zit in een oneindige loop.
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
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 foutZal 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.For A = 1 to 12
Me.Controls("T"& A).Value = A
Next A
For A = 1 to 12
Me.Controls("Label" & A).Caption = Sheets("HUP").Cells(1,A).Value
Next A[
Probeer eens: Me.Controls("T" & x)
For x = 1 to ... (hier dan nog iets maar geen idee)
if me.controls("T" & x). text ( hier dan weer een aanvulling)
else
me.controls("T" & x)= ( wat hier dan?)
end if
(maar hier moet toch een heel stuk code komen die alle namen controleert en indien nodig aanvult met de ontbrekende naam?
next x