Macro Wait

Status
Niet open voor verdere reacties.
Q

quirijn89

Gebruiker
Lid geworden
11 dec 2008
Berichten
11
Beste mensen,

Ik heb een macro waar een wachttijd ingebouwd moet worden. Het is een macro voor het vernieuwen van een draaitabel, die gebaseerd is op gegevens uit een Access bestand. De macro wordt nu al uitgevoerd voordat de gegevens vernieuwd zijn.

Wat ik nu nodig heb is (Application.Wait (Now + TimeValue("0:00:03"))) zoiets achtigs alleen dan niet voor de application maar voor de macro.

Dit is de code die ik tot nu toe heb:

Code: 
Sub Worksheet_Change(ByVal Target As Range)

Dim pt As PivotTable
Dim ws As Worksheet
    
    If Target.Address = "$B$1" Then
    
        For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
                pt.RefreshTable
            Next
        Next
End If

End Sub

Cel B1 is de cel waarin het nummer staat waarop gezocht moet worden in access.

Groet
 
quirijn89,


Ik weet er ook niet veel van, zou dit werken.
Code: 
.Wait (Now + TimeValue("0:00:10"))
 
quirijn89,

Ik heb nog even gezocht maar niets gevonden.
 
quirijn89,

Dit vond ik net in helpmij, misschien heb je er wat aan.

Ik wil toch nog even melden (misschien handig voor overige gebruikers) dat ik iets heb gevonden. Hier http://www.helpmij.nl/forum/showthre...hlight=wachten heb ik een goede/werkende oplossing gevonden.
Het gaat om dit stukje:

Quote:
Voeg bovenaan je programma de volgende regel toe:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

En daar waar jij een moment wilt wachten de volgende regel:
Sleep(1000) 'voor 1 seconde
Sleep(2000) 'voor 2 seconden (etc)

Hierdoor "slaapt" de macro een ingegeven tijd (bij mij 100msec.)
De CPU staat nu niet meer al de tijd op 100%.
Klik om te vergroten...
 
Weg met die haken

Code: 
Application.Wait Now + TimeValue("00:00:03")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan