Excel o macro (solita formula)

[Lucio Peruggini]

Ciao a tutti
Rieccomi per il solito aiuto.

https://dl.dropbox.com/u/18220462/IMMAG ... rum%20.PNG

https://dl.dropbox.com/u/18220462/FILE/ ... Forum.xlsx

Nel file Excel allegato ci sono solamente cinquantuno estrazioni complete ma nel foglio reale, ci sono oltre centomila righe dalle quali con formula o macro, dovrei marcare nella colonna “I” il ritardo che intercorre dal primo ambo uscito (colorato in verde), al medesimo ambo “il primo che s’incontra” (colorato in giallo). Ritardo che è ricavato sottraendo in colonna “G”, (giallo meno verde.)

Ovviamente nel foglio non ci sono i colori che ho fatto come esempio; ma abbiamo uno “step” di cento righe che intercorrono da un’estrazione all’altra.
Nell’immagine anche allegata, si vede il primo ritardo (colonna I6) che è quindici (15); ricavato da “G10-G6”.
Ogni 100 estrazioni, dunque, abbiamo il primo valore cui dovrà seguire il secondo. Stesso ambo dal quale ricaveremo il ritardo da marcare sulla medesima riga del primo; colonna “I”.

Confidando sempre nel vostro prezioso aiuto.
Un caro saluto e buona serata.

[Flash30005]

Codice: Seleziona tutto

Sub Ritardi()
UR = Worksheets("Foglio1").Range("D" & Rows.Count).End(xlUp).Row
For RR1 = 6 To UR - 1
For RR2 = RR1 + 1 To UR
If Range("D" & RR1).Value = Range("D" & RR2).Value Then
If Range("G" & RR2).Value > Range("G" & RR1).Value Then Range("I" & RR1).Value = Range("G" & RR2).Value - Range("G" & RR1).Value
Exit For
End If
Next RR2
Next RR1
End Sub

Ciao

[Lucio Peruggini]

https://dl.dropbox.com/u/18220462/IMMAGINI/RdL%202.png

Ciao Flash

Devo marcare solamente il primo ritardo, quello contrassegnato dalla freccia; gli altri non interessano.
Inoltre, la macro va in "loop", dopo tre minuti era bloccata a due estrazioni successive.

Ogni estrazione (colonna B) deve contenere solamente il ritardo del primo ambo.
Ciao

Probabilmente "loop" che ho anche corretto, non è il termine esatto, comunque era bloccata alla 7442.
Ciao

[Flash30005]

Sostituisci
Exit For
con
Exit Sub

ciao

[Lucio Peruggini]

Ciao Flash

Ho sostituito ma segna solamente il primo ritardo, quello dell'estrazione 7440 (riga sei colonna I); e gli altri?
Alla prima riga di ogni estrazione devo marcare il ritardo.

7441 riga 106
7442 riga 206
7443 riga 306 etc.

Ciao

[Flash30005]

Ma lo hai detto tu che volevi solo il primo, indicato con la freccia
spiegati meglio per cortesia

[Lucio Peruggini]

Ma lo hai detto tu che volevi solo il primo, indicato con la freccia
spiegati meglio per cortesia

Scusa Flash ma nel primo post inserito è ben chiarito l'argomento; ogni estrazione deve avere solamente quel primo ritardo.
Ciao

[Flash30005]

Ma io non so quali sono le estrazioni se quelle in colonna B o colonna G
Sei tu che sai, ma non hai spiegato, il criterio perché una macro funziona con un criterio ed è proprio questo che mancava
Ora provo a cercare di capire...

[Flash30005]

Questa macro (la stessa di prima con aggiunta dello step 100) dovrebbe funzionare

Codice: Seleziona tutto

Sub Ritardi()
UR = Worksheets("Foglio1").Range("D" & Rows.Count).End(xlUp).Row
Columns(9).Clear
For RR1 = 6 To UR - 1 Step 100
For RR2 = RR1 + 1 To UR
If Range("D" & RR1).Value = Range("D" & RR2).Value Then
If Range("G" & RR2).Value > Range("G" & RR1).Value Then Range("I" & RR1).Value = Range("G" & RR2).Value - Range("G" & RR1).Value
Exit For
End If
Next RR2
Next RR1
End Sub

Ciao

[Lucio Peruggini]

Continua a marcare esclusivamente solo l'estrazione 7440, ritardo 15.
Gli altri non li marca.
ciao

[Flash30005]

Ma hai lasciato Exit sub o hai copiato questa macro che ha Exit for ?

Te lo dico perché a me funziona

[Lucio Peruggini]

Continua a marcare esclusivamente solo l'estrazione 7440, ritardo 15.
Gli altri non li marca.
ciao

https://dl.dropbox.com/u/18220462/IMMAGINI/Sub.PNG

Certo che avevo cambiato.
Marca solo il primo ritardo (7440), ciao

[Flash30005]

Ok facciamo a non capirci!
Devi rimettere Exit For come era nella prima macro
oppure ricopi l'ultima che, naturalmente, sostituisce tutte

[Lucio Peruggini]

Ok, funziona tutto!
Grazie, ciao.

[Lucio Peruggini]

Ciao Flash, avrei gentilmente bisogno di aggiungere un dato inserendolo in colonna “J”.
In questa colonna dovrei marcare se il ritardo RdL già ottenuto con la macro nella colonna “I”, è uno storico oppure un attuale.
Nell’immagine allegata trattasi di uno storico (st) colonna "E".
Scendendo sotto diventa piuttosto complicato cercare gli attuali che si dovrebbero ottenere con questa colonna aggiuntiva in modo che da essa otterremo sia gli storici sia gli attuali.

Grazie e buona giornata

https://dl.dropbox.com/u/18220462/IMMAG ... iva%20.PNG

[Flash30005]

In tutta verità non ho capito
Fai un esempio di storico che vorresti avere
ciao

[Lucio Peruggini]

Ok, provo a spiegarmi meglio, anzi:
Penso si possa migliorare e facilitare ancor più quanto chiedevo.

La macro attuale inserisce il ritardo in corrispondenza del primo ambo (colore verde), potresti inserire questo ritardo in corrispondenza e sulla riga del medesimo quando lo trova?

L’aggiunta in colonna “J” deve semplicemente marcare se trattasi di “st oppure at” ricavato dalla (colonna E).
Come vedi da immagine, trovato il secondo ambo dal quale si ricava il ritardo (colonna G), in “J” è specificato se è un ritardo storico oppure attuale; seconda immagine.

https://dl.dropbox.com/u/18220462/IMMAG ... 0at%20.jpg

https://dl.dropbox.com/u/18220462/IMMAG ... 0at%20.jpg

Spero di aver chiarito, ciao

[Flash30005]

Ok

Codice: Seleziona tutto

Sub Ritardi()
UR = Worksheets("Foglio1").Range("D" & Rows.Count).End(xlUp).Row
Range("I:J").Clear
For RR1 = 6 To UR - 1 Step 100
For RR2 = RR1 + 1 To UR
If Range("D" & RR1).Value = Range("D" & RR2).Value Then
If Range("G" & RR2).Value > Range("G" & RR1).Value Then
Range("I" & RR2).Value = Range("G" & RR2).Value - Range("G" & RR1).Value
Range("J" & RR2).Value = Range("E" & RR2).Value
End If
Exit For
End If
Next RR2
Next RR1
End Sub

Ciao

[Lucio Peruggini]

Flash GRAZIE

OTTIMO!!!

[Lucio Peruggini]

Ciao Flash, avrei un altro quesito che penso si possa risolvere con una macro.
Come sempre grazie infinite.

Vorrei colorare: range C4:U16 gli ambi uguali.
Allego file e immagine.

https://dl.dropbox.com/u/18220462/IMMAG ... A%20TT.PNG

https://dl.dropbox.com/u/18220462/FILE/ ... TT%20.xlsx

Ciao