[Risolto] Rintracciare velocemente 2 numeri uguali in una qualsiasi estrazione del Lotto

[Nando69]

Buongiorno. Premetto che il tema si potrebbe risolvere anche manualmente perdendo 10 minuti,ma al fine di non rovinarsi...gli occhi troppo presto vorrei gentilmente sapere se tramite una macro e una formula,esiste un modo per rintracciare velocemente su due ruote consecutive e nella stessa posizione,due numeri uguali ricavati dal quadro estrazionale Lotto posto sui file in allegato,in questo caso ad esempio il numero 14 di Cagliari e Firenze,che soddisfano in pieno le condizioni richieste (stessa posizione e ruote consecutive appunto). Grazie e una buona serata

[Biagio91]

Con rintracciare immagino si intenda evidenziarli come da immagine corretto?
Per l'evidenziatura di un numero a tua scelta potresti creare una regola di formattazione condizionale, tramite una cella di appoggio.
Per esempio in H8 (cella di appoggio) si mette il numero che per cui desideri controllare se ci sono doppioni.
Tramite la formattazione condizionale dell'area "B3:FfineDellaTabella" predisponi che si formatti di un determinato colore di sfondo se la cella è = H8, cosi facendo ti evidenzierà tutte le celle contenenti il numero da te scritto sulla cella H8.

Eventualmente puoi impostare un limite di numero di partenza e di fine ed elaborare due pulsantini del tipo classici "-" e "+" per incrementare e diminuire.

Spero possa esserti di aiuto. Non mi vengono in mente soluzioni più affini alla tua richiesta. Mi viene da pensare che senza sapere se e quanti doppioni ci sono la faccenda si complichi e il discorso diventi un po' più articolato, per esempio come definire quanti e quali colori inserire e se solo sul doppione o anche su eventuali altri doppioni supplementari.

[Nando69]

La soluzione finale consiste nell'evidenziare i 2 numeri uguali,ma la questione non è trovare specificatamente il numero 14,ma 2 numeri uguali TRA TUTTI I 90 NUMERI e come scritto prima, su due ruote consecutive e nella stessa posizione. In questo esempio le condizioni richieste hanno evidenziato il numero 14 ma potrebbe essere qualunque dei 90 numeri. Praticamente trovare una formula dove invece del solo numero 14 si possa ampliare il range completo da 1 a 90. Un qualcosa che assomigliasse vagamente a questa un pò sconclusionata :

=(CONTA.SE(B3;numero che va da 1 a 90)+CONTA.SE(B3;numero che va da 1 a 90)). Il colore da inserire tra l'altro andrebbe sia su un solo doppione che su eventuali altri doppioni supplementari

[Biagio91]

Ok,
ho provato a scriverti una bozza molto rapida di codice da cui partire. Prova a vedere se fa al caso tuo. Da completare con la parte del codice per colorare lo sfondo.

Codice: Seleziona tutto

Sub IndividuaColoraDoppioniConsecutivi
ColonnaDiPartenza = 1
RigaDiPartenza = 2
ColonnaFineElenco = 5

Dato = ActiveSheet.getCellByPosition(ColonnaDiPartenza+nc, RigaDiPartenza+nr).String 
Dato1 = Dato

For nRiga = RigaDiPartenza to RigaFine
nc=0
Do While ActiveSheet.getCellByPosition(ColonnaDiPartenza+nc, nRiga).String <> Dato1

If ActiveSheet.getCellByPosition(ColonnaDiPartenza+nc, nRiga+1).String = Dato1 then
 '++++Codice per colorare entrambe le celle ++++ da aggiungere
Else
'Prova con la colonna successiva
nc = nc+1
Dato1 = ActiveSheet.getCellByPosition(ColonnaDiPartenza+nc, nRiga).String 
End if
If nc >= ColonnaFineElenco Then 
Exit Do
Else
End If
Loop

Next

ErrorHandler:
If Err <> 0 Then
 MsgBox "Error " & Err & ": " & Error$ & " (line : " & Erl & ")"
Stop
Resume
Else 
Exit Sub
End If

End Sub

[Nando69]

Il range è quello compreso tra B3 e F13. Quindi dove mi hai messo : "ColonnaDiPartenza+nc, RigaDiPartenza+nr",c'è da scrivere qualcos'altro ? E come
codice per colorare entrambe le celle cosa intendi ? Il range in questo caso : B3:F13 ? Scusa la mia ignoranza

[lucky63]

esiste un modo per rintracciare velocemente su due ruote consecutive e nella stessa posizione,due numeri uguali

La soluzione finale consiste nell'evidenziare i 2 numeri uguali

Ecco un esempio con la una sola formattazione condizionale (con doppia condizione) che trovo molto semplice da impostare/replicare:
...

Test - Rintracciare velocemente doppione contiguo nella stessa colonna.png (54.82 KiB) Visto 2028 volte

....

[Nando69]

Perfetto. Grazie mille

[Biagio91]

Ciao,
posso chiederti per curiosità la formula hai messo per esempio su riga4 cella F4;

per fare in modo che nella formattazione condizionale questa si evidenzi se la cella superiore o la cella inferiore è = a F4 corretto;
come l'hai impostata? Presumo mi manchi un tassello importantissimo in questo.

Grazie mille
Ciao

[lucky63]

come l'hai impostata? Presumo mi manchi un tassello importantissimo in questo

La versione del file precedente era stata fatta con Libreoffice recente sfruttando la possibilità d'impostare formattazione condizionale di gruppo.
Testato con OpenOffice solo poco fà.
Se tale file è aperto con openoffice viene segnalata incompatibilità di versione all'apertura e alcuni accoppiamenti di riscontro non li rileva.
Allego nuova versione rifatta con OpenOffice.
...

Test - Rintracciare velocemente doppione contiguo nella stessa colonna - 01.png (61.28 KiB) Visto 1976 volte

...
... così dovrebbe essere più semplice per comprendere meglio il tutto ...
...

[Biagio91]

Grazie mille per le delucidazioni.
Ciao