tabbladen laten rouleren

[PJGMheldens]

Ik heb een programma in Excel om voetbaltoernooien bij te houden, nu zou ik graag hebben dat de tabbladen 1 t/m 3 met een macro rouleren, elke 15 seconde.
Wie kan mij hierbij helpen

alvast bedankt
Piet Heldens

 

[edmoor]

Dit in een Module:

Sub StartTimer1()
    Application.OnTime Now + TimeValue("00:00:15"), "NextTick1"
End Sub

Sub NextTick1()
    Static bld
    
    bld = IIf(bld < 3, bld + 1, 1)
    Sheets(bld).Activate
    StartTimer1
End Sub

Sub StopTimer1()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:15"), "NextTick1", , False
End Sub

En dit in de ThisWorkbook sectie:

Private Sub Workbook_Open()
    StartTimer1
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopTimer1
End Sub

 

[PJGMheldens]

dank je wel dit werkt bijna perfect

groet PJGMheldens

 

[edmoor]

Graag gedaan.
Toch de Sub NextTick1() wat aangepast.
Is netter

 

[snb]

De suggestie lijkt me niet perfekt, vanwege https://www.snb-vba.eu/VBA_Application.OnTime.html#L_2

De parameter 'earliest time' in de afsluitende macro moet exact gelijk zijn aan dezelfde parameter in de startende macro.


En zo schakel je tussen werkbladen:

Sub M_snb()
  Sheets((ActiveSheet.Index + 1) Mod Sheets.Count + 1).Activate
End Sub

 

[PJGMheldens]

Hallo snb dank voor jou reactie

Groet PJGMheldens

 

[edmoor]

Natuurlijk kan die wel stoppen zonder te verwijderen.
En starten kan ook anders.
De code blijft dan helemaal gelijk.
Maar vertel er dan wel bij wat qua starten en stoppen precies je bedoeling.

 

[PJGMheldens]

Hallo sorry voor de onduidelikjkheid. Het is de bedoeling, als er nieuwe uitslagen bekend zijn dat ik de macro kan stoppen, bijvoorbeeld door ergens in sheet te klikken dat dan de macro stopt, zodat de nieuwe uitslagen ingevuld kunnen worden, anders springt de desbetreffende sheet om en is het weer wachten. Nu blijft de macro maar doorgaan.

groet PJGMheldens

 

[snb]

Lees svp het persoonlijke bericht dat ik je stuurde.

 

[edmoor]

Je kan dat gewoon met bijvoorbeeld een knopje doen:

 

[PJGMheldens]

Dat is nu net niet de bedoeling, de wedstrijdjes duren 10 minuten, als we dan moeten kopieren en plakken dat duurt te lang en vraagt voor fouten. Wat wij willen is dat als we de uitslagen hebben ingevuld deze meteen met een macro kunnen laten rouleren op het tv scherm wat is aangeslotren op de PC. de eerste oplossing die je gaf was goed, alleen ik moet de macro op een eenvoudige manier kunnen laten stoppen en weer beginnen.

Groet Piet

 

[edmoor]

Ja, en dat is precies wat dat knopje doet.
De code is verder hetzelfde als de eerste oplossing.

 

[PJGMheldens]

Oke, bedankt Ik ga daar mee aan de gang

Groet Piet