Makroda Zamanlama

[marlon2000]

Örnek dosyada yapılan makrolardaki geçişleri 5sn olarak görüntülemek istiyorum. fakat makroya zamanlama bulamadım. Örneğin Butona basıldıktan sonra High puantajlar 5 sn , sonra Good 3 puantajları 5sn, sonra Good 2 puantajları 5sn ve tekrar ana ekran görünmesini istiyorum.

Zamanlamanın nasıl yapılacağı konusunda yardımlarınıza sunarım.
Tşk.

 

[uzmanamele]

merhaba
aşağıdaki kodları dener misiniz.

Sub Oval4_Click()
On Error GoTo son
    Selection.AutoFilter Field:=2, Criteria1:="High"
      Application.Wait (Now + TimeValue("0:00:05"))
    Selection.AutoFilter Field:=2, Criteria1:="Good 3"
      Application.Wait (Now + TimeValue("0:00:05"))
    Selection.AutoFilter Field:=2, Criteria1:="Good 2"
      Application.Wait (Now + TimeValue("0:00:05"))
    Selection.AutoFilter Field:=2
son:
End Sub