dopo il doppio click ......

[papiriof]

Vorrei una mano per realizzare una macro d'evento:
Ho questa situazione 5 colonne e 10 righe + altre 2 successive righe di cui una vuota e l'altra con dei numeri tipo questa
36 29 56 24 12 le ultime due righe ancorchè ci sono ai miei effetti e come se non ci fossero essendo la riga 10
21 17 30 84 44 l'ultima da considerare 1° esempio faccio doppi click sul primo numero cioè sul 36 la macro a questo punto
20 38 9 39 85 dare un messaggio : " il ritardo del 36 su questa colonna e : 0 " ovvero il numero che ho doppiocliccato è
84 35 88 46 48 l'ultimo uscito 2° esempio faccio doppi click sul secondo numero cioè sul 29 la macro dovrebbe darmi
31 29 30 71 54 il messaggio: " il ritardo del 29 su questa colonna e : 5 "
70 41 79 42 20 3° es faccio doppi click sul terzo numero cioè sul 56 la macro dovrebbe darmi " il ritardo del 56 su
22 32 4 38 76 questa colonna è : 9" cioè sono 9 volte che è assente.
78 48 43 24 6
19 37 25 50 63
36 12 60 6 49

20 74 62 74 14

[Anthony47]

Illeggibile...
E poi, perche' il ritardo del 56 dovrebbe essere 9?

[papiriof]

Illeggibile...
E poi, perche' il ritardo del 56 dovrebbe essere 9?

perchè deve contare dall'ultima volta che è uscito supponiamo che il 56 è uscito in C1 contiamo da c2 ...è uscito? no e allora inizia il conteggio 1 vediamo c3 , non è uscito allora 2 ecc ma se in c5 fosse uscito e fosse stata l'ultima volta che è uscito allora ricomincerebbe il conteggio e mi dovrebbe dare 5 esattamente come nell'esempio del 29

[Anthony47]

Per quello che ho capito:

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lFor As Object, myMatch
'
Set lFor = Range(Target.Cells(2, 1), Target.Cells(2, 1).End(xlDown))
myMatch = Application.Match(Target.Value, lFor, False)
If IsError(myMatch) Then myMatch = ">" & lFor.Rows.Count
MsgBox ("Ritardo del " & Target.Value & ": " & myMatch)
Cancel = True
End Sub


Va inserito nel modulo vba del foglio su cui lavori; partendo da Excel:
a) Tasto destro sul Tab col nome del Foglio a cui il codice va agganciato
b) Scegliete Visualizza codice
In questo modo si aprira' l'ambiente Vba direttamente sul modulo di classe in cui il codice va inserito

Ciao

[papiriof]

Grazie Anthony va più che bene|||| Sei il migliore

[papiriof]

Riprendo questa discussione per chiedere se fosse possibile fare una macro identica a quella fatta da Anthony per un singolo numero ma per un intervallo di 25 numeri nel file allegato spero di essere più chiaro

http://www.filedropper.com/xforum25

[Anthony47]

Non ho capito come vuoi rappresentare i risultati, quindi per ora li mettiamo in Riga2 sopra ogni numero controllato. La macro:

Codice: Seleziona tutto

Sub PapiRow()
Dim I As Long, myMatch
'
For I = 9 To (9 + 24)
    Set lFor = Range(Cells(4, I), Cells(4, I).End(xlDown))
    myMatch = Application.Match(Cells(3, I).Value, lFor, False)
    If IsError(myMatch) Then myMatch = ">" & lFor.Rows.Count
    Cells(2, I).Value = "Rit " & Cells(3, I).Value & ": " & myMatch
Next I
End Sub

Metti il codice in un modulo standard e poi avvia la macro come meglio preferisci

Ciao

[papiriof]

Non ho capito come vuoi rappresentare i risultati, quindi per ora li mettiamo in Riga2 sopra ogni numero controllato. La macro:

Codice: Seleziona tutto

Sub PapiRow()
Dim I As Long, myMatch
'
For I = 9 To (9 + 24)
    Set lFor = Range(Cells(4, I), Cells(4, I).End(xlDown))
    myMatch = Application.Match(Cells(3, I).Value, lFor, False)
    If IsError(myMatch) Then myMatch = ">" & lFor.Rows.Count
    Cells(2, I).Value = "Rit " & Cells(3, I).Value & ": " & myMatch
Next I
End Sub

Metti il codice in un modulo standard e poi avvia la macro come meglio preferisci

Ciao

Non mi sono spiegato bene nel foglio chieevo:"Quello che chiederei, se fosse possibile, è fare la stessa
cosa contemporaneamente per tutti i 25 numeri
dell'ntervallo che andrei a selezionare . Perciò l'intervallo da esaminare non deve intendesi SEMPRE
I3:AG3 ma quello ch vado a selezionare fermo restando che deve iniziare con la col " I " e terminare con la col " AG " es: I4:AG4 o I5:AG5 ecc . Per quanto riguarda dove posizionare i risultati va bene dove li hai messi (riga 2)

[Anthony47]

Allora:

Codice: Seleziona tutto

Sub PapiRowSel()
Dim I As Long, myMatch, cRow As Long
'
cRow = Selection.Cells(1, 1).Row
Range("I2:AG2").ClearContents
For I = 9 To (9 + 24)
    Set lFor = Range(Cells(cRow + 1, I), Cells(cRow + 1, I).End(xlDown))
    myMatch = Application.Match(Cells(3, I).Value, lFor, False)
    If IsError(myMatch) Then myMatch = ">" & lFor.Rows.Count
    Cells(2, I).Value = "Rit " & Cells(cRow, I).Value & ": " & myMatch
Next I
End Sub

Devi selezionare una cella qualsiasi della riga e avviare la macro

Ciao

[papiriof]

Che dire? secondo me bravo come sempre !!!!
Grazie Anthony

[papiriof]

Da un più attento esame sembra non funzionare - Ho fatto questa prova naturalmente ho fotto un bottone per lanciare la macro
quindi ho selezionato la cella " I 86 " nell' intento di focalizzare l'intervallo I86:AG86 cioè dove mancano 17 estrazioni alla fine (riga 103) E' evidente che mi serai dovuto aspettare di tutti e 25 la maggioranza ritardo 17 ma non è detto ho controllato a campione e in AD86 abbiamo il numero 69 con un ritardo 17 ma in AD 96 abbiamo il numero 69 perciò il ritardo che mi avrebbe dovuto segnalare era ritardo 10 .as onor del vero la macro l'ho leggermente cambiata per far in modo di vedere l'essenziale cosi , non penso sia per questo
Sub PapiRowSel()
Dim I As Long, myMatch, cRow As Long
'
cRow = Selection.Cells(1, 1).Row
Range("I2:AG2").ClearContents
For I = 9 To (9 + 24)
Set lFor = Range(Cells(cRow + 1, I), Cells(cRow + 1, I).End(xlDown))
myMatch = Application.Match(Cells(3, I).Value, lFor, False)
If IsError(myMatch) Then myMatch = "." & lFor.Rows.Count
Cells(2, I).Value = " " & Cells(cRow, I).Value & ":" & myMatch
Next I
End Sub

[papiriof]

Nel file ho inserito al foglio 1 la Private Sub per controllare singolarmente il ritardo per cui una volta lanciata la macro e generato al rigo 2 i 25 numeri con i rispettivi ritardi li vado a controllare singolarmente con il doppio clic .Ebbene solo nel caso della selezione sulla riga 3 mi da i risultati esatti nelle righe sottostanti invece i ritardi sono errati percomodita allego il file


http://www.filedropper.com/x2forum25

[papiriof]

Allora:

Codice: Seleziona tutto

Sub PapiRowSel()
Dim I As Long, myMatch, cRow As Long
'
cRow = Selection.Cells(1, 1).Row
Range("I2:AG2").ClearContents
For I = 9 To (9 + 24)
    Set lFor = Range(Cells(cRow + 1, I), Cells(cRow + 1, I).End(xlDown))
   [b][color=#FF0000] myMatch = Application.Match(Cells(3, I).Value, lFor, False)[/color][/b]
    If IsError(myMatch) Then myMatch = ">" & lFor.Rows.Count
    Cells(2, I).Value = "Rit " & Cells(cRow, I).Value & ": " & myMatch
Next I
End Sub

Devi selezionare una cella qualsiasi della riga e avviare la macro

Ciao

Gentile sig Anthony sono riuscito a capire perchè la macro non va come io vorrei la riga colorata in rosso e precisamente dove dice
"Cells(3, I).Value" quel 3 fa si il conteggio voluto parta sempre dalla riga 3 infatti se voglio sottola lente la riga 4 ho provato a mettere 4 al posto di 3 e i conteggi me li da esatti, ma non posso cambiare ogni volta numero .
Perciò ho pensato che al posto di quel 3 ci dovrebbe essere una variabile che individuasse il nunero di riga che seleziono di volta in volta o sbaglio? Il problema è che non lo so fare

[papiriof]

E invece ci sono riuscito
Sub PapiRowSel()
Dim I As Long, myMatch, cRow As Long, x As Long
x = ActiveCell.Row
cRow = Selection.Cells(1, 1).Row
Range("I2:AG2").ClearContents
For I = 9 To (9 + 24)
Set lFor = Range(Cells(cRow + 1, I), Cells(cRow + 1, I).End(xlDown))
myMatch = Application.Match(Cells(x, I).Value, lFor, False)
If IsError(myMatch) Then myMatch = "." & lFor.Rows.Count
Cells(2, I).Value = " " & Cells(cRow, I).Value & ":" & myMatch
Next I
End Sub
Ho aggiunto la variabile x ..........x = ActiveCell.Row e al posto di 3 ho messo la x
E' meglio quando ci arrivo da solo

[Anthony47]

Bravo...
Avrei dovuto usare anche in quella istruzione la variabile cRow, che già contiene quello che poi hai calcolato in X

Ciao