pauze van 2 seconden tussen elke Calculate

[BOUKES]

Graag wil ik dat de macro na elke "Calculate" 2 seconden pauzeert. Hoe krijg ik dat voor elkaar?


Sub schudden()
'
schudden Macro
'

'
Calculate
Calculate
Calculate
Calculate
Calculate




End Sub

 

[Ginger]

Ehhh... Na de eerste calculate, hebben de volgende toch geen zin meer? Dan is alles al herberekend namelijk en zijn de volgende stappen overbodig. Wat zou je hier mee willen bereiken?

 

[edmoor]

Zo:

Application.Wait (Now + TimeValue("0:00:02"))

 

[BOUKES]

tnx

Dank voor de snelle reactie

Kan de macro ook constant "Calculate" met een pauze zoals je net liet zien EN PAS STOPT ALS IK WEER OP DE KNOP DRUK.

Sub startloting()
'
' startloting Macro
'

'
Calculate
End Sub
Sub vijfkeerschudden()
'
' vijfkeerschudden Macro
'

'
Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Calculate
End Sub

 

[edmoor]

Kijk dan naar Application.OnTime:
http://www.snb-vba.eu/VBA_Application.OnTime.html

En voor je voorbeeld in #4:

For i = 1 to 5
    Calculate
    Application.Wait (Now + TimeValue("0:00:01"))
Next i

 

[BOUKES]

En waar plaats ik dit dan?

 

[Ginger]

Ik begin toch steeds nieuwsgieriger te worden wat je nu toch wilt bereiken. Je procedure heet "5x schudden", dus ik gok dat je steeds een set nummers toont via een andere procedure en dat dan 2 seconden aan een gebruiker wilt laten zien?

 

[BOUKES]

Daar komt het wel op nneer.Een loting waarbij getallen bewegen en stoppen wanneer op een knop wordt gedrukt. Beetje bingo

 

[edmoor]

En waar plaats ik dit dan?

Ik zou zeggen, bestudeer het eens.
Je kan nooit in een kwartiertje die hele pagina hebben doorgenomen en begrijpen wat de bedoeling is.

 

[VenA]

Zonder enige timer.

Sub VenA()
  Do While b = False
    If MsgBox("doorgaan?", vbYesNo) = vbYes Then Calculate Else b = True
  Loop
End Sub