[Excel] Doppio controllo di cella e valore

[mpsinf]

Il seguente ciclo mi permette di eseguire un controllo se in B2 il valore del tempo è inferiore a circa 40" e la differnza del tempo tra adesso e il valore di D1 è maggiore al minuto e mezzo circa, ma il tutto va in errore se la cella D1 per un particolare momento è vuota

Codice: Seleziona tutto

 If Range("B2").Value < 0.0005 And TimeValue(Now) - TimeValue(Range("D1").Value) > 0.001 Then
  MsgBox "estraggo"
      Call A2_Estrai_valori
  Else
  Exit For ' annulla analisi aste successive se c'è 1 aste in scadenza entro 35 sec. (0.0004)
  End If

senza mettere un altra nidificazione if come posso risolvere ?

[ricky53]

Ciao,
prima di

Codice: Seleziona tutto

    If Range("B2").Value < 0.0005 And TimeValue(Now) - TimeValue(Range("D1").Value) > 0.001 Then


inserisci

Codice: Seleziona tutto

    If Range("D1") = "" Then
        MsgBox "Inserire un valore nella cella 'D1'"
        Exit Sub ' <<<======== vedi che tipo di uscita occorre forse Exit For
    End If


[scossa]

Il seguente ciclo mi permette di eseguire un controllo se in B2 il valore del tempo è inferiore a circa 40" e la differnza del tempo tra adesso e il valore di D1 è maggiore al minuto e mezzo circa, ma il tutto va in errore se la cella D1 per un particolare momento è vuota

Codice: Seleziona tutto

 If Range("B2").Value < 0.0005 And TimeValue(Now) - TimeValue(Range("D1").Value) > 0.001 Then
  MsgBox "estraggo"
      Call A2_Estrai_valori
  Else
  Exit For ' annulla analisi aste successive se c'è 1 aste in scadenza entro 35 sec. (0.0004)
  End If

senza mettere un altra nidificazione if come posso risolvere ?

Hai postato solo un pezzo di codice, non dici cosa c'è in D1 ..... per cui azzardo, ipotizzando in D1 una data (un orario):
modifica semplicemente

Codice: Seleziona tutto

 If Range("B2").Value < 0.0005 And TimeValue(Now) - TimeValue(Range("D1").Value) > 0.001 Then

in

Codice: Seleziona tutto

If Range("B2").Value < 0.0005 And Now - Range("D1").Value > 0.001 Then

[mpsinf]

In effetti avevo sottointeso non scrivendolo che in D1 se non è vuota c'è un orario in forma stringa
23/11/2012 20:25:11
però se in un qualsiasi cella inserisco "=valore (D1)" ottengo 41236,85 quindi viene convertita in un valore corretto ecco il perchè del TimeValue...

[scossa]

In effetti avevo sottointeso non scrivendolo che in D1 se non è vuota c'è un orario in forma stringa
23/11/2012 20:25:11
però se in un qualsiasi cella inserisco "=valore (D1)" ottengo 41236,85 quindi viene convertita in un valore corretto ecco il perchè del TimeValue...

E quindi

Codice: Seleziona tutto

If Range("B2").Value < 0.0005 And Now - Range("D1").Value > 0.001 Then

come ti ho suggerito funziona, giusto?

[mpsinf]

Aggiungo questo altro problema sempre di "date valore"

Dovendo controllare la differenza di tempo tra due date se lo eseguo con comando in Excel
tipo cella G1 "=ADESSO()" in cella G2 stringa 23/11/2012 18:41:10 in cella G3 = "G1-G2" ottengo 0,63....

in vba come faccio ? visto che

If TimeValue(Range("G1").Value) - TimeValue(Range("G2).Value > 0.0001 Then

mi da un numero negativo perchè considera il valore dell'ora di adesso è 10:09 e in G" è 18:41 e non del valore assoluto rispetto alla data ?
ora provo con DateDiff

[scossa]

Aggiungo questo altro problema sempre di "date valore"

Dovendo controllare la differenza di tempo tra due date se lo eseguo con comando in Excel
tipo cella G1 "=ADESSO()" in cella G2 stringa 23/11/2012 18:41:10 in cella G3 = "G1-G2" ottengo 0,63....

in vba come faccio ? visto che

If TimeValue(Range("G1").Value) - TimeValue(Range("G2).Value > 0.0001 Then

mi da un numero negativo perchè considera il valore dell'ora di adesso è 10:09 e in G" è 18:41 e non del valore assoluto rispetto alla data ?
ho provato con DateDiff ma non capisco come interval cosa devo mettere visto che dopo va date1 e date2

Sinceramente non capisco perché ti ostini ad usare inutilmente TimeValue():

Codice: Seleziona tutto

 If Range("G1").Value - Range("G2).Value > 0.0001 Then

[Anthony47]

@Scossa:
il problema e' che in G2 c' e' una stringa.

@mpsinf
Se in G1 e G2 hai data&ora e vuoi calcolare la differenza non devi usare TimeValue, perche' questa funzione ti restituisce solo la parte oraria e ignora la parte data.
Userai invece CDate su G2, mentre G1 e' gia' una data/ora e non hai bisogno di convertirla

Codice: Seleziona tutto

If Range("G1").Value - CDate(Range("G2").Value) >0.0001 Then


Ciao a tutti

[scossa]

@Scossa:
il problema e' che in G2 c' e' una stringa.

mpsinf ha detto che "...c'è un orario in forma stringa 23/11/2012 20:25:11"

Visto che lui non ne vuole sapere di condividere il file, si tira ad indovinare.
Quindi in G2 c'è '23/11/2012 18:41:10 con l'apice davanti (così non la trasforma in data)?
In questo caso l'uso di CDate() che hai suggerito è perfetto.

[Anthony47]

Intendevo "una stringa che indica una data&ora"
In tal caso l' operazione Range("G1").Value - Range("G2").Value restituirebbe l' errore Type mismatch.

Ciao

[scossa]

Intendevo "una stringa che indica una data&ora"
In tal caso l' operazione Range("G1").Value - Range("G2").Value restituirebbe l' errore Type mismatch.

Ciao Anthony,

Il punto non è cosa intendevi TU ma cosa intendeva LUI, visto che parlava di orario.

Sinceramente, sarò limitato io, ma non vedo come possa esserci in una cella una stringa che indica una data&ora se non la stessa con l'apicetto davanti o una formula che restituisca una stringa ... tutte cose che l'OP non ha specificato.

N.B.: senza alcuna polemica.

[mpsinf]

Sinceramente, sarò limitato io, ma non vedo come possa esserci in una cella una stringa che indica una data&ora se non la stessa con l'apicetto davanti o una formula che restituisca una stringa ... tutte cose che l'OP non ha specificato.

Se acquisisci dati da web ti accorgerai che le date sono importate come stringhe

[scossa]

Sinceramente, sarò limitato io, ma non vedo come possa esserci in una cella una stringa che indica una data&ora se non la stessa con l'apicetto davanti o una formula che restituisca una stringa ... tutte cose che l'OP non ha specificato.

Se acquisisci dati da web ti accorgerai che le date sono importate come stringhe

Lo dici adesso, mi pare che prima tu non l'abbia scritto da nessuna parte che i valori nelle celle sono acquisiti via query da web ...