91
Excel / Re: Bestand voor genealogie
« Laatste bericht door Della Jordan Gepost op 03 mei 2024, 19:06:58 »Hoi Marcel, dank voor de positieve reacties.
Maar om je vraag te beantwoorden, daarvoor heeft Excel draaitabellen uitgevonden toch.Is inderdaad een schitterende oplossing in al zijn eenvoud!!!
Hierbij volgende versie met draaitabellen in bijlage.
Veel knabbelplezier, het zijn lekkere brokjes.Puppy braaf... puppy veel plezier aan de brokjes!
Ik gebruik zelf ook al 25 jaar AldfaerBen ik wat aan het neuzen geweest en een extra knopje ingebouwd in je userform.
Private Sub CmbAldfaer_Click()
Path = "C:\Aldfaer\Aldfaer.exe"
x = Shell(Path, vbNormalFocus)
End Sub
Als je Aldfaer exe programma bij jou ergens anders staat dan moet je het pad (path) aanpassen)Bestaat er de mogelijkheid om automatisch de namen af te gaan en welke nog niet zijn opgenomen in de statistieken deze er automatisch worden aan toegevoegd?Daar had ik over gelezen. waarvoor mijn excuses.
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