modifica macro,sembra facile ma....

[papiriof]

Ho questa macro che mi fece anni fa Anthony:

Codice: Seleziona tutto

Sub PapiRowSel()
Dim i As Long, myMatch, cRow As Long, x As Long
x = ActiveCell.Row
cRow = Selection.Cells(1, 1).Row
Range("I12:AG12").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(12, i).Value = " " & Cells(cRow, i).Value & ":" & myMatch   
Next i
End Sub

Pensavo bastasse cambiare così "End(xlUp)" per ottenere il contrario di quello che fa adesso con End(xlDown)
Adesso mi posiziono su una riga (qui x) le colonne sono 33 mi controlla a partire dalla colonna 9 fino alla 33 si trovano dei numeri
che la macro mi scrive nel Range("I12:AG12") i relativi ritardi se avvenuti nella medesima colonna . se non si sono ripetuti mi scrive
un ritardo che coincide con l'ultima cella.
Ora vorrei invece fare il contrario cioè sempre posizionandomi su una riga mi dicesse quando (in precedenza)quei numeri della riga
si sono riprodotti nella stessa colonna.

[Anthony47]

Forse hai semplificato troppo...

Comunque una macro non si capisce che cosa fa senza conoscere il layout dei dati su cui lavora; va da sè che e' altrettanto impossibile (forse anche di piu') capire quale e' il contrario.
Insomma dovresti allegare i dati da elaborare, a quel punto probabilmente tutta la richiesta sara' comprensibile.

Ti aspettiamo...

[papiriof]

Scusa Anthony, un mese fa mi si è scassato il vecchio portatile ,il display tutto di un verde e la cerniera scassata , in teoria funzionava ancora ma il costo per ripararlo non valeva la pena.
Detto ciò ho un portatile nuovo che non riesco ad organizzarlo , per dirne una : volevo mandare un 'immagine e segueguendo le istruzioni
di :"Come fare per.." trovato paint quello nuovo non sono riuscitoa neanche a trasportare l'immagine su questa risposta
Così, in attesa che mi scafi con questo nuovo computer tento un'altra spiegazione.
Nella stessa cartella dove è contenuta la macro di cui al punto 1 è contenuta anche questa macro d'evento(penso si dica così):
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
Cosa fa questa macro? E presto detto : mi metto ad es. sulla cella "L 2000" (la Colonna L contiene numeri da L13 fino alla riga 2100 ) in questa cella diciamo c'è il numero 9 faccio doppio doppio clic su di essa ("L 2000" ) ela macro va a scandagliare se partendo dal 2000
e andando verso il basso 20001,2002,2003.....2100 trova il n° 9 se per prima lo trova al 2016 a nche se successivamente ne trova un altri sulla stessa colonna "L" mi apparirà un messaggio "MsgBox ("Ritardo del " & Target.Value & ": " & myMatch)" se non lo trova mi apparirà con ritardo 100
Questa macro te l'ho chiesta prima e successivamente ti ho chiesto quella di cui al n°1 che sostanzialmente fa la stessa cosa non solo su una colonna ma su 25 .Quello che chiedo (parlo adesso del queesito 1)è che partendo sempre da L2000 mi faccia l'inverso cioè selo trova il9 al L1999 9:1 se lo trova aL1995 "9: 5" se lo trova a L1900 mi scriverà "9:100"

[Anthony47]

Provo a vedere se questa descrizione si mappa con uno dei file che avevi condiviso in passato e ti aggiorno

[papiriof]

Provo a vedere se questa descrizione si mappa con uno dei file che avevi condiviso in passato e ti aggiorno

Trovato niente??

[Anthony47]

Mah, ho trovato un file di fine settembre 2020 intitolato Xforum25.xlsm, dove pero' il ritardo veniva calcolato per il numero in riga 3, a partire dalla riga selezionata fino a file elenco.
Prendendo per buona la tua descrizione (cioe' calcolare il ritardo "all'indietro" del numero presente sulla riga selezionata) potrebbe funzionare questa macro:

Codice: Seleziona tutto

Sub PapiRowSelRev()
Dim I As Long, myMatch, cRow As Long
Dim lFor As Range
'
cRow = Selection.Cells(1, 1).Row
Range("I2:AG2").ClearContents
For I = 9 To (9 + 24)
    Set lFor = Range(Cells(3, I), Cells(cRow - 1, I))
    myMatch = Evaluate("MAX(IF(" & lFor.Address & "=" & Cells(cRow, I).Value & ",ROW(" & lFor.Address & "),""""))")
    If myMatch = 0 Then
        myMatch = ">" & lFor.Rows.Count
    Else
        myMatch = cRow - myMatch - 1
    End If
'    Debug.Print Cells(1, I).Address(0, 0), "Rit " & Cells(cRow, I).Value & ": " & myMatch
    Cells(2, I).Value = "Rit " & Cells(cRow, I).Value & ": " & myMatch
Next I
End Sub


Ma se non fosse quel che cerchi allora serve necessariamente almeno una "immagine" dei tuoi dati.
Per questo non cercare Paint, ma "Strumento di cattura"; poi con questa utility e l'opzione Nuovo catturi un rettangolo di dati su Excel, lo salvi come immagine, la carichi su https://postimages.org/ e usi il link che ti viene restituito.

Ciao

[papiriof]

gentile sign. Anthony
la macro ultima che mi ha fatto purtroppo non corrisponde a quanto desiderato , colpa mia perchè non riesco a spiegarmi comunquesono riuscito aindividuare la mia richiesta originaria , qui allego l'indirizzo:
viewtopic.php?f=26&t=111379
Se si legge quanto scritto negli ultimi 4 punti della discussione si capisce quello che volevo allora tanto è vero che lei concordava dopo che io ero riuscito a correggere (miracolo!!!)la sua ultima macro.
La macro cosi corretta e con i suoi riferimenti finali trovava (dopo che mi posizionavo su una riga qualsiasi) 25 risultati cioè i numeri contenuti nelle 25 colonne oggetto della ricerca con i rispettivi ritardi (meglio dire ripetizioni) qualora trovati nella stessa colonna
Esempio: il P2275 (riga di partenza) trovo il num 61 in P2278 (riga più recente) trovo ancora il 61 la macro mi da i risultati sempre nell'intervallo I12:AG25 e in P12 scrive 61:3 cioè il 61 si è ripetuto 3 estrazioni DOPO (nelle estrazioni successive).
E allora , cosa chiedo ? Semplicemente ,frermo restando tuttao quanto detto sopra voglio sapere quante estrazioni PRIMA nella stessa colonna è uscito il 61 cosi come tutti i numeri della riga 2275 .

[Anthony47]

Quello che conta sono i dati, devi riuscire ad allegare almeno una immagine; e con "Strumento di cattura" (come ho scritto nel msg di ieri sera) non dovrebbe essere difficile seguendo le istruzioni contenute qui: viewtopic.php?f=26&t=103893&p=605488#p605488

Ciao

[papiriof]

spero sia la volta buona

[papiriof]

[papiriof]

Finalmente ci sono riuscito!Allora questa immagine non è altro che il ricavato della macro di cui dicevo all'inizio della discussione; cosa fa ? Mi ssono messo sulla RIGA 2275 , non ha importanza la cella, una qualsiasi della predetta RIGA !! a questo punto ho cliccato sul pulsante a cui avevo aggangiato la predetta macro e quello che si vede è il risultato .la macro mi fa vedere la prima ripetizione nella stessa colonna limitatamente ai numeri situati da I 2275: AG 2275 con i loro ritardi nelle ripetizioni successive nell'intervallo I 12: AG 12.
Ho evidenziato il num 61 perchè si ripete dopo 3 estraz. nella stessa colonna ed è più facile capire quello che intendo . Esempio:Se mi mettessi in una cella qualsiasi della RIGA 2278 questa volta mi aspetterei che la nuova macro mi mettesse tutti i numeri limitatamente ai numeri situati da I 2278: AG 2278 con i loro ritardi nelle ripetizioni precedenti nell'intervallo I 12: AG 12. In questo caso il 61 verrebbe :" 61: 3"

[Anthony47]

Prova con questa:

Codice: Seleziona tutto

Sub PapiRowBack()
Dim i As Long, myMatch, cRow As Long, x As Long
Dim rOut As Long
'
rOut = 2                                '<<< La riga dove si riporta il risultato
x = ActiveCell.Row
cRow = Selection.Cells(1, 1).Row
Cells(rOut, 9).Resize(1, 25).ClearContents
If x > rOut Then
    For i = 9 To (9 + 24)
        Set lFor = Range(Cells(cRow - 1, i), Cells(rOut + 1, i))
        myMatch = Application.Match(Cells(x, i).Value, lFor, False)
        If IsError(myMatch) Then
            myMatch = ">" & lFor.Rows.Count
        Else
            myMatch = cRow - myMatch - rOut
        End If
        Cells(rOut, i).Value = "'" & Cells(cRow, i).Value & ":" & myMatch
    Next i
Else
    MsgBox ("Selezione errata; riga " & x)
End If
End Sub


La riga marcata <<< va personalizzata: io ho usato 2 ma nel tuo caso dovrebbe essere 12

Ciao

[papiriof]

Prova con questa:

Codice: Seleziona tutto

Sub PapiRowBack()
Dim i As Long, myMatch, cRow As Long, x As Long
Dim rOut As Long
'
rOut = 2                                '<<< La riga dove si riporta il risultato
x = ActiveCell.Row
cRow = Selection.Cells(1, 1).Row
Cells(rOut, 9).Resize(1, 25).ClearContents
If x > rOut Then
    For i = 9 To (9 + 24)
        Set lFor = Range(Cells(cRow - 1, i), Cells(rOut + 1, i))
        myMatch = Application.Match(Cells(x, i).Value, lFor, False)
        If IsError(myMatch) Then
            myMatch = ">" & lFor.Rows.Count
        Else
            myMatch = cRow - myMatch - rOut
        End If
        Cells(rOut, i).Value = "'" & Cells(cRow, i).Value & ":" & myMatch
    Next i
Else
    MsgBox ("Selezione errata; riga " & x)
End If
End Sub


La riga marcata <<< va personalizzata: io ho usato 2 ma nel tuo caso dovrebbe essere 12

Ciao

non ci siamo si la riga l'ho cambiata 12 invece di 2 (in 2 ho messo questa formula per farmi dare il ritardo pulito "=SE(STRINGA.ESTRAI(P12;4;1)=":";STRINGA.ESTRAI(P12;5;3);STRINGA.ESTRAI(P12;4;3))in quanto nella riga 12 il risultato , a causa del poco spazio è più difficile da individuare.Comunque con questa ultima macro i risultati non sono quelli attesi.
Posso soltanto ribadire quello che ho detto sopra "Ho evidenziato il num 61 perchè si ripete dopo 3 estraz. nella stessa colonna ed è più facile capire quello che intendo . Esempio:Se mi mettessi in una cella qualsiasi della RIGA 2278 questa volta mi aspetterei che la nuova macro mi mettesse tutti i numeri limitatamente ai numeri situati da I 2278: AG 2278 con i loro ritardi nelle ripetizioni precedenti nell'intervallo I 12: AG 12. In questo caso il 61 verrebbe :" 61: 3" " invece con l'ultima macro il risultato mi da " 61: 184" che non ha senso .

[Anthony47]

Eh he, quando ho scritto il codice avevo in mente una prestazione futura di Excel

Questa l'ho pure collaudata:

Codice: Seleziona tutto

Sub PapiRowBack()
Dim I As Long, myMatch, cRow As Long, x As Long, lFor
Dim rOut As Long
'
rOut = 2                                '<<< La riga dove si riporta il risultato
x = ActiveCell.Row
cRow = Selection.Cells(1, 1).Row
Cells(rOut, 9).Resize(1, 25).ClearContents
If x > rOut Then
    For I = 9 To (9 + 24)
        Set lFor = Range(Cells(cRow - 1, I), Cells(rOut + 1, I))
        myMatch = Evaluate("Max(If(" & lFor.Address & "=" & Cells(x, I).Value & ",Row(" & lFor.Address & "),""""))")
        If myMatch = 0 Then
            myMatch = ">" & lFor.Rows.Count
        Else
            myMatch = cRow - myMatch
        End If
        Cells(rOut, I).Value = "'" & Cells(cRow, I).Value & ":" & myMatch
    Next I
Else
    MsgBox ("Selezione errata; riga " & x)
End If
End Sub


Ri-prova...

[papiriof]

forse ho almeno ho capito come viene fuori quel 184 presunto ritardo invece di 3 che dovrebbe venire.
Primo il ritardo (o meglio la ripetizione del 61) segnalato nel post precedente non è 184 ma 1848
<Secondo non prevedevo ritardi di ripetizione di 4 cifre in effetti non ci sono possono esserci ritardi di riproposizione di poco superiori a 1000 , quindi devo correggere la formula nella riga 2 (che riprende le ultime cifre della riga 3 cioè le cifre che vengono do i due punti e un vuoto!
Terzo partendo dal num 61 come da es andando indietro il primo 61 lo troviamo dopo di " 3 " ! risultato che voglio;
Quarto in effetti quel 1848 corrisponde al PRIMO 61 che trova partendo dal rigo 13 ma contando le estrazioni che vanno dal n° 2278 al 2277. 2276 2275......... 1848 .
1 2 3 ......... 1848 tovata la ragione di come si comporta la ma cro spero di riuscire ...

[Anthony47]

Probabilmente non hai ancora letto la risposta che ho dato prima...

[papiriof]

Probabilmente non hai ancora letto la risposta che ho dato prima...

Grazie Anthony, adesso si!!!!! giusato
ti posso chiedere quale è stata la cosa che ti ha messo sulla giusta via;A parte l'immagine sono stato utile in qualche modo?

[Anthony47]

ti posso chiedere quale è stata la cosa che ti ha messo sulla giusta via

Mi ha messo sulla giusta via l'averci dormito su

A parte l'immagine sono stato utile in qualche modo?

Abbiamo perso tanto tempo a capire quale era il tuo formato dati; la prossima volta insistero' di piu' per averlo subito. E, se ricrearlo richiede "piu' di 2 (due) minuti", insistero' per avere un file gia' compilato (come del resto hai fatto sempre in passato).
Alla prossima!