La macro e' questa:
- Codice: Seleziona tutto
Sub Restarta()
Sheets("Foglio1").activate '<<< Il foglio dove si trovano i dati DDE
CellaFlag = "M1" '<<<-- Cambiare se necessario
DeltaT = "00:15:00" '<<< restart ogni 15 minuti; cambiare se necessario
'
Range("A2:E2").copy '<<< Le celle con i dati da storicizzare
'Storicizza A2:E2 su Foglio2; cambiare se foglio diverso
Sheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
If Range(CellaFlag).Value = 0 Then
Range(CellaFlag).Interior.ColorIndex = xlNone
Exit Sub
End If
Application.OnTime Now + TimeValue(DeltaT), "Restarta"
Range(CellaFlag).Interior.ColorIndex = 3 '<<< 3=ROSSO; 4=Verde; 6=Giallo;7=Fucsia; 8=Celeste
'Range("N1").Value = Range("N1").Value + 1
End Sub
Questa presuppone che i dati dde siano in A2:E2 di Foglio1, e copia i dati in Foglio2, in coda ai dati preesistenti; puoi cambiare nella macro sia il nome del foglio di partenza che quello di destinazione, che le celle da storicizzare; basta rispettare la sintassi.
Uso:
Da excel fai Alt-F11: ti si apre l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di destra. Fai le modifiche che servono (nomi fogli, indirizzo di celle, frequenza di salvataggio).
Torna su excel; visualizza la barra degli strumenti Moduli e cerca l' icona del Pulsante. Disegna un pulsante sul tuo foglio e assegnagli la macro Restarta (ti fara' una domanda specifica mentre crei il pulsante).
Ora scrivi 1 in M1, poi premi il pulsante: la macro viene eseguita una volta e viene rischedulata per esecuzione dopo 15 minuti (magari per prova, nella macro usa DeltaT = "00:00:10", in modo da eseguirla ogni 10 secondi); vedrai la cella M1 colorata di Rosso ed N1 che incrementa ad ogni esecuzione della macro.
Quando vuoi fermare, cancella il contenuto di M1: alla prossima esecuzione il colore scomparira', per indicare che il processo e' finito.
Tutte queste prove da fare tassativamente su file di prova, che siano COPIA dei file effettivi di lavoro.
Spero che queste informazioni siano di qualche utilita'.
Ciao