ho una cartella excell con alcuni fogli di lavoro , in uno di questi lavora un file che si aggiorna in automatico ogni x tempo, preleva alcuni dati(da celle collegate in DDE) e li incolonna per costruire un grafico, risultato di veri giri su internet , sembra tutto ok ,
il grosso problema che ho è che ogni volta che aggiorna i dati se sto lavorando su altri fogli della cartella , mi riporta sempre al foglio che si aggiorna , per esempio la cartella ha una decina di fogli su ogni foglio posso fare cose differenti , il foglio 7 (chiamato "vola") è quello con l'aggiornamento in automatico, se sto lavorando o anche se ho solo aperto il foglio 2 , quando si aggiorna mi riapre in automatico il foglio 7 impedendomi di continuare a lavorare sul foglio dove stavo in precedenza . allego il file in oggetto in attesa di suggerimenti grazie ovviamente vorrei che il foglio con l'aggiornamento in automatico , continuasse ad aggiornarsi , senza riportarmi ogni volta al foglio stesso.
- Codice: Seleziona tutto
Public Esegui As Double
Public Const Temp = "MiaMacro"
Sub Timer()
Sheets("vola").Activate
Range("a6").Interior.ColorIndex = 10
Range("a6").Select
Range("a6") = "ATTIVO"
Esegui = Now + TimeValue("00:00:20")
Application.OnTime earliesttime:=Esegui, procedure:=Temp, schedule:=True
End Sub
Sub MiaMacro()
Application.Calculate
Range("C" & Range("C" & Rows.Count).End(xlUp).Offset(1).Row) = Range("A4")
Range("D" & Range("D" & Rows.Count).End(xlUp).Offset(1).Row) = Range("A1")
Range("E" & Range("E" & Rows.Count).End(xlUp).Offset(1).Row) = Range("A2")
Call Timer
End Sub
Sub StopTimer()
On Error Resume Next
Sheets("vola").Activate
Range("a6").Interior.ColorIndex = 0
Range("a6").Select
Range("a6") = "FERMO"
Application.OnTime earliesttime:=Esegui, procedure:=Temp, schedule:=False
End Sub