Geen flauw idee waarom je zoiets zou willen?
Om eens in te spelen op softaid zijn antwoord
Application.Wait Now + TimeValue("00:00:001")In plaats van 1 seconde is dit één tiende van een seconde.
Ik vermoed echter dat je een soort presentatie wilt maken net zoals in powerpoint.

En hierbij de volgende versie.

Hoi,
ik gebruik deze macro in excel om de scroll van de muis na te maken zodat excel gaat scrollen van onder en weer terug naar boven en automatisch, maar het gaat een beetje
blokkerig is er misschien iets dat het een beetje vloeiend gaat


Sub Start()
Dim min, max, kant
min = 10
max = 60
kant = 10
Application.ActiveWindow.ScrollRow = min
While Application.ActiveWindow.ScrollRow <= max
    Application.Wait Now + TimeValue("00:00:01")
        If Application.ActiveWindow.ScrollRow = min Then kant = 10
        If Application.ActiveWindow.ScrollRow = max Then kant = -10
    Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
Wend
End Sub

Goedenamiddag allen,

Als genealoog-veteraan (ben er al 25 jaar mee bezig) en zelf al enkele gepersonaliseerde excel-bestanden te automatiseren met VBA voor mijn eigen genealogie trok deze topic meteen mijn aandacht .

Ik heb niet alle berichten in dit topic gelezen omdat ik zag dat er al meteen op een goede manier geholpen werd door SoftAid en Della en er ondertussen dus al een mooi resultaat bekomen is.
Ik kan aan dat bestand zelf dus totaal niets bijdragen  ...

Maar toen ik dit :

Ik heb ook Aldfaer eens bekeken, wordt niet meer ondersteund en is zeker geen aanrader.
Maar ik bewonder het voorbeeld en de energie dat je er al ingestoken hebt.
 

las, kriebelde het toch een beetje om te reageren hierop.

@Della,
Ik gebruik zelf ook al 25 jaar Aldfaer en vraag me dus af waar juist jij gezien/gelezen hebt dat Aldfaer niet meer ondersteund zou worden?
Aldfaer is echt één van de beste programma's voor genealogie en wordt zeker en vast nog steeds ondersteund en regelmatig komen er
nieuwe updates uit.
Wél is het zo dat één van de extra opties (samenwerking met MyHeritage) niet langer ondersteund wordt maar dat heb je ook niet perse nodig.
Toen ik 25 jaar geleden gestart ben met Aldfaer was die optie er ook niet en heb ze bij de inbreng ervan ook nooit gebruikt desondanks
ik wel een account heb bij MyHeritage.

Ik wou hier dus gewoon eventjes een kleine rechtzetting maken dat Aldfaer nog steeds ondersteund wordt en dus zeker nog steeds een
aanrader is 

groetjes,
Bieke

Hoi,

Klein vraagje, met deze macro haal ik een csv op in een bepaalde dircetory

hij zet deze neer in A1

maar als ik weer de zelfde csv ophalen zet hij die niet neer in A1 maar de cel ernaast
is het mogelijk voordat ik de csv ophalen dat A1:H150 leeg wordt gemaakt en dan de macro runt en de csv ophaald

en mss nog een vraagje is het mogelijk dat excel op een bepaalde tijd de csv automatisch ophaalt

ik gebruikt de volgende macro

Sub CSV_Import()
Dim ws As Worksheet, strFile As String
 
Set ws = ActiveWorkbook.Sheets("Blad1") 'set to current worksheet name
strFile = "C:\Test\test.csv"
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
    .TextFileParseType = xlDelimited
    'geef de scheidingstekens op:
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileCommaDelimiter = False
    .Refresh
End With
End Sub
 
Private Sub Workbook_Open()
CSV_Import
End Sub
Alvast weer bedankt