[EXCEL] passare ad un sheet diverso dopo 30 secondi

[accio1965]

ho creato questa macro (parolone)

Codice: Seleziona tutto

Sub vedi1()
'
' vedi1 Macro
'

'
    Range("E9:I9").Select
    Windows("frontend.xls").Activate
    Sheets("DONNANGELO").Select
    Sheets("Foglio2").Select
    Windows("asta di partenza.xls").Activate
    Range("E10").Select
End Sub

vorrei che si tornasse sul foglio2 dopo un numero di secondi stabilito ma non ho trovato la soluzione
se uso l'espressione Application.Wait Now + TimeValue("00:00:30")
non va bene perchè mi si blocca il lavoro su tutto excel mentre io devo continuare a lavorare su l'altro foglio aperto
grazie per l'aiuto

[alfrimpa]

Ciao accio

Salvo smentite (sempre possibili) con Wait che è un metodo dell'oggetto Application fino a che non scade il tempo Excel (che è l'oggetto Application) rimane bloccato.

Occorrerebbe trovar qualcosa per l'oggetto ThisWorkBook ad esempio quando selezioni una determinata cella di un qualsiasi soglio oppure se si modifica una cella (o altro) selezionare il foglio desiderato.

Ma sto scrivendo parole in libertã e con me non ho neanche il pc per cui al momento non so se dico castronerie nè proporre una qualche alternativa concreta.

[Anthony47]

Il problema e' probabilmente risolvibile usando una macro schedulata "OnTime", del tipo

Codice: Seleziona tutto

Sub vedi1()
'
'Codice esistente
'Codice esistente
    Windows("asta di partenza.xls").Activate
    Range("E10").Select
Application.OnTime Now + TimeSerial(0, 0, 30), "reF2"       'AGGIUNGERE
End Sub


Da aggiungere:

Codice: Seleziona tutto

Sub reF2()
    Windows("frontend.xls").Activate
    Sheets("Foglio2").Select
End Sub


Tuttavia non so quanto sara' contento l'utente che mentre lavora su Windows("asta di partenza.xls") si ritrova su Windows("frontend.xls")

Ciao