Swith

[xbox360]

Hoi,

Ik wil een dag planning laat zien op een scherm.
maar we hebben 2 afdelingen dus ik moet 2 tabbladden gebruiken

is het nu mogelijk dat er om de 3 of 4 minuten excel van tabblad automatische kan veranderen? dus blad 1 en 3 minuten later blad 2

en kan dit ook met een button om het te kunnen starten?

Alvast Super bedankt...

 

[Markal]

Roep wissel_sheet() via een knop aan.

Sub wissel_sheet()
Do
Sheets("Sheet1").Select
wacht (1)
Sheets("Sheet2").Select
wacht (1)
Loop
End Sub

Sub wacht(wacht)
'pauzeer wacht minuten
nu = Timer
Do
DoEvents
If Timer > (nu + (wacht * 60)) Then Exit Do
Loop
End Sub

Als je een sjiekere manier dan 'ctrl-break' voor het stoppen van de code wilt hebben denk ik dat je met een 3e sheet moet werken waarin je een cel gebruikt voor het bepalen of de code moet stoppen met wisselen of wellicht heeft iemand anders een ander idee...

 

[xbox360]

Top

dit is al een begin.

ben nu thuis maar morgen op het werk zal ik het eens proberen.:thumb:

 

[snb]

gebruik hiervor de ontime methode

Private Sub knop_start_Click()
    ThisWorkbook.wissel
End Sub

Private Sub knop_stop_Click()
    Application.OnTime Now, "Thisworkbook.wissel", , False
End Sub

Sub wissel()
    Sheets(IIf(ActiveSheet.Index = 1, 2, 1)).Activate
    Application.OnTime DateAdd("s", 3, Now), "Thisworkbook.wissel"
End Sub

vanwege illustratiedoeleinden wordt hier om de 3 seconden van werkblad gewisseld.

 

[xbox360]

Werken

staat in de vba, maar hoe start die nu op :thumb:

 

[xbox360]

Vraagje

Roep wissel_sheet() via een knop aan.

Sub wissel_sheet()
Do
Sheets("Sheet1").Select
wacht (1)
Sheets("Sheet2").Select
wacht (1)
Loop
End Sub

Sub wacht(wacht)
'pauzeer wacht minuten
nu = Timer
Do
DoEvents
If Timer > (nu + (wacht * 60)) Then Exit Do
Loop
End Sub

Als je een sjiekere manier dan 'ctrl-break' voor het stoppen van de code wilt hebben denk ik dat je met een 3e sheet moet werken waarin je een cel gebruikt voor het bepalen of de code moet stoppen met wisselen of wellicht heeft iemand anders een ander idee...

en hoe krijg je hem draaiende? :thumb:
staat in de vba maar moet je dan nog iets apparts doen

 

[snb]

Alt -F8

kijk ook eens in de hulpfunktie van Excel (F1) of een boek over Excel.

 

[xbox360]

Toppie

Het werkt....bedankt :thumb:

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost