Tijd

[Hoornvan]

Hallo,

Ik heb een programma verjaardaskalender gedownload en nu wil ik de macro zo aan passen dat hij na b.v.b. 5 sec. naar een volgend blad ga.
Onder in de macro Auto open heb ik de regel: Sheets("Verjaardagsagenda").Activate gezet, maar dan schakeld het te snel.
Weet iemand wat ik er voor moet plaatsen?

Al vast bedankt

 

[Hoornvan]

Hallo,

Het gaat dus eigenlijk om een regel waarin je kan zetten hoe lang het moet duren voordat het overschakeld naar een ander blad.
Ik weet niet of zo iets mogenlijk is met een macro.
Je kunt ook gewoon op het andere blad klikken, maar het leek mij leuk als dit van zelf ging na 5 of 10 sec.

Alvast bedankt

 

[Jhon van der Bo]

Zie bijgevoegd voorbeeld. Na 5 seconden ga je naar Sheet2.

 

[Jhon van der Bo]

Voorbeeld

 

[Hoornvan]

Hallo Jhon,

Ik heb jouw voorbeeld uitgeprobeerd en dat werkt goed.
Helaas bij mij doet hij het niet in die macro van dat programma, hoe dit kan weet ik niet.

Bedankt voor de moeite

 

[Jhon van der Bo]

Ik heb het vermoeden dan de naam van je tabblad niet overeenkomt met die in de macro. Zet op de plaats van "Sheet2" de naam van jou tabblad

Sub AnderTabblad()
Sheets("NAAM TABBLAD").Select
Range("C1").Select
End Sub

 

[Hoornvan]

Hallo Jhon,

Volgens mij had ik dit ook gedaan, maar voor de zekerheid heb ik het nog eens gedaan.
Maar helaas het werkt niet.

Groetjes

 

[Jhon van der Bo]

Plaats deze code in "This Workbook":

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "AnderTabblad"
End Sub

en onderstaande code in een module:

Sub AnderTabblad()
Sheets("NAAM TABBLAD").Select
Range("C1").Select
End Sub

Mocht het nu nog niet werken dan moet ik passen. Ik weet dan even niet wat er mis gaat.

Jhon

 

[Hoornvan]

hallo Jhon,

Ik heb je uitleg opgevolgt en ja hoor het werkt.

Hartstikke bedankt.

 

[Ingrid B]

In plaats van OnTime kan je hier ook gebruik maken van Wait. De code in ThisWorkbook wordt dan:

Private Sub Workbook_Open() 
  Application.Wait (Now + TimeValue("00:00:05"))
  Sheets("Blad2").Select
End Sub