allora, giusto un inizio...
bisogna andare di macro, supponendo che la cella da controllare sia la B2 del foglio1, aggiungi la seguente macro:
codice:
Private Sub Worksheet_Change(ByVal Target As Range)
'imposta la cella da controllare
If Target.Row = 2 And Target.Column = 2 Then
'data da controllare
data = #8/1/2008 3:00:00 PM#
Intervallo = 30 'imposta una finestra di secondi validi per registrare il dato
Intgg = 30 / 86400 'finestra di secondi in fraz
adesso = Now()
If Now() > adesso And Now < AdessoInt Then
'condizione verificata, loggare il risultato
esci = False
riga = 0
Do
If ActiveSheet.Cells(4, riga + 1) = "" Then esci = False
riga = riga + 1
Loop Until esci = False
ActiveSheet.Cells(4, riga) = Target.Value
End If
End If
End Sub
la macro si attiva ad ogni cambiamento nel foglio in cui la inserisci, se il cambiamento coinvolge la cella (2,2), ovvero la B2, controlla che la data non sia compresa tra un intervallo determinato dalla variabile data + un certo numero di secondi, ok?
nel caso sia soddisfatto logga il risultato costruendo un log in colonna C
spero funzioni
ciao
L.
Rispondi quotando
