Moderatori: Anthony47, Flash30005
[L’estensione rar è stata disattivata e non puó essere visualizzata.]
CurTime = Time 'orario di sistema
If CurTime < Range("Inizio").Value Then GoTo esci 'Non copiare, ma rimani attivo
If CurTime > Range("Fine").Value Then GoTo esci 'Non copiare, ma rimani attivo
Sub Restarta()
CellaFlag = "M1" '<<<-- Cambiare se necessario
DeltaT = "00:01:00" '<<< restart ogni 60 Secondi; cambiare se necessario
ddedati = "A2:E2" '<<< Area da copiare
TWS = "Foglio2" '<<< Foglio su cui storicizzare
'
'Calculate
SWS = ActiveSheet.Name
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 '<<< +1 a ogni esecuzione
'Calculate
CurTime = Time 'orario di sistema
If CurTime < Range("M2").Value Then exit sub 'Non copiare, ma rimani attivo <<<< in M2 orario di inizio storicizzaz.
If CurTime > Range("M3").Value Then exit sub 'Non copiare, ma rimani attivo <<<< in M3 orario di fine storicizzaz
'
'copia e storicizza
Range(ddedati).Copy
Sheets(TWS).Select
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets(SWS).Select
End Sub
Sub Restarta()
SWS = "Foglio1" '<<<-- foglio con i dati dde
Sheets(SWS).select
'Application.ScreenUpdating = False '<<<< evita lo "sfarfallamento" durante la macro
CellaFlag = "M1" '<<<-- Cambiare se necessario
limba864 ha scritto:- in M2 ho usato 9.00 AM e in M3 5.25 PM;
Anthony47 ha scritto:Ho usato M2 ed M3 per impostare l' orario di inizio storicizzazione e quello di fine (metti in queste celle il valore in formato orario, es 09:00
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 35 ospiti