ricerca dati in una tabella

[j0etemerari0]

Buongiorno,
in una tabella formata dalle estrazioni del lotto ho inserito in Formattazione Condizionale la formula:
=MATR.SOMMA.PRODOTTO(--(ASS((B$5:B$15-B5))=$B$1))
la quale mi trova tutti i numeri di distanza 30 ($B$1 = 30) x ogni colonna e quindi nelle 5 colonne.
Mi interesserebbe la ricerca, sempre di distanza 30, ma in diagonale. Mi spiego meglio:
avendo il numero 19 in E4 dovrei ricercare nelle altre celle in basso, sia a destra che a sinistra il numero 49 (H14)
ed evidenziare i due numeri trovati con la colorazione delle rispettive celle, questo anche per gli altri numeri nella
tabella, tipo I4:G7....E5:G11...ecc...ecc...
Nel file allegato si può vedere a colpo d'occhio quanto detto finora.
Ringrazio fin d'ora per l'eventuale risposta.
Damiano
https://www.dropbox.com/ow/msft/edit/personal/Public/terz_diag.xlsx?hpt_click_ts=1542984405297

[wallace&gromit]

ciao, non riesco a scaricare il tuo file, non so se è un problema mio (come clicco arrivo nel mio dropbox e vedo un messaggio di errore) o se vale per tutti.

[j0etemerari0]

se clikko sul link, a me si apre

[Anthony47]

Anche a me va nel mio dropbox e segnala "Si è verificato un errore durante l'apertura del file"

Probabilmente quello e' il link che puo' usare l'owner del dropbox che contiene il file (cioe' tu), non per la condivisione del file.

Ciao

[j0etemerari0]

Anche a me va nel mio dropbox e segnala "Si è verificato un errore durante l'apertura del file"

Probabilmente quello e' il link che puo' usare l'owner del dropbox che contiene il file (cioe' tu), non per la condivisione del file.

Ciao

https://www.dropbox.com/preview/Public/ ... e=personal

[j0etemerari0]

prova il link che ti ho inviato se si apre

[Anthony47]

No, neanche questo si apre.

Io il link al file me lo faccio restituire in esplora risorse: nella cartella Dropbox, seleziono il file; poi Tasto dx, scelgo Copia link dropbox

Ciao

[j0etemerari0]

https://www.dropbox.com/s/vm8uk4c5pe1pg ... .xlsx?dl=0

[Anthony47]

Il file ora si apre...

Pero' non ho capito quale relazione c'e' tra I4:G7 e E5:G11, e cosa intrendi per "distanza 30"

Ciao

[j0etemerari0]

la relazione è proprio la distanza 30 tra i due numeri nelle celle indicate e che dovrebbero essermi segnalate come da richiesta iniziale. Comunque la distanza viene inserita in $B$1.
Le celle colorate di arancione vengono ricercate ed evidenziate dalla formula in FC:
=MATR.SOMMA.PRODOTTO(--(ASS((B$5:B$15-B5))=$B$1))
mentre a me interesserebbe avere evidenziati gli altri numeri sempre di distanza 30 presenti nel quadro estrazionale, appunto I4:G7, E5:G11, E4:H14, G4:H13.
Grazie.

[j0etemerari0]

https://www.dropbox.com/s/lohvk4j80lww5 ... .xlsx?dl=0

forse in questo modo si capisce meglio?
La tabella in alto è quella che ho attualmente, la tabella in basso è quella che vorrei rilevare.
Grazie.

[Anthony47]

Si, ma perche' non vanno evidenziati (ad esempio) 63 e 33; 4 e 34; 5 e 35; 6 e 36 (e tanti altri casi)?

[j0etemerari0]

perchè io ne ho segnalati alcuni, non tutti, ma prendendo in esame tutto il quadro $B$5:$F$15 anche quelli da te citati dovrebbero rientrare nel range di ricerca. L'importante che non siano nella stessa colonna e nella stessa riga.

[Anthony47]

Ma se non sei chiaro allora la meniamo per le calende greche... E quindi quale e' LA REGOLA?

[j0etemerari0]

l'unica REGOLA è che vengano ricercati due numeri non in verticale e non in orizzontale, aventi distanza 30.

[Anthony47]

Prova con la formattazione condizionale dell'area E4:I14 usando la formula

Codice: Seleziona tutto

=O((CONTA.SE($E$4:$I$14;E4+$B$1)-CONTA.SE($E4:$I4;E4+$B$1)-CONTA.SE(E$4:E$14;E4+$B$1))>0;(CONTA.SE($E$4:$I$14;E4-$B$1)-CONTA.SE($E4:$I4;E4-$B$1)-CONTA.SE(E$4:E$14;E4-$B$1))>0)

Ciao

[j0etemerari0]

grazie Antony47 questo rileva tutti i numeri con la distanza 30, come richiesto, peccato non si possano distinguere
i vari abbinamenti, forse sarebbe possibile con più di una formula attribuendogli un colore diverso? oppure magari con
una macro si risolverebbe?
Grazie mille :-)

[j0etemerari0]

grazie Antony47 questo rileva tutti i numeri con la distanza 30, come richiesto, peccato non si possano distinguere
i vari abbinamenti, forse sarebbe possibile con più di una formula attribuendogli un colore diverso? oppure magari con
una macro si risolverebbe?
Grazie mille :-)

P.S.: anche perchè questa soluzione è come non esistesse in quanto bisogna sempre ricercare gli abbinamenti tra quelli trovati e quindi
è come non ci fosse. O no?

[Anthony47]

[....]anche perchè questa soluzione è come non esistesse in quanto bisogna sempre ricercare gli abbinamenti tra quelli trovati e quindi è come non ci fosse. O no?

Ma il tuo file iniziale colorava ben tutto in Arancione, o no?

Comunque con una macro si puo' diversificare il colore; ad esempio:

Codice: Seleziona tutto

Sub DeltaX()
Dim myRan As String, I As Long, mCnt As Long, vDelta As Long, fAdr As String
Dim myC As Range, myH As Range, myV As Range, myF As Range, GotIt As Boolean
'
myRan = "E4:I14"                '<<< L'area dati
vDelta = Range("B1").Value      '<<< La cella col DELTA
'
Range(myRan).Interior.ColorIndex = xlNone
For I = 1 To 2
    For Each myC In Range(myRan)
        If myC.Interior.ColorIndex = xlNone Then
            Set myF = Range(myRan).Find(what:=myC.Value + vDelta, after:=myC, LookIn:=xlValues, lookat:=xlWhole)
            If Not myF Is Nothing Then
                fAdr = myF.Address: GotIt = False
                Do
                    If myF.Interior.ColorIndex = xlNone And _
                       myF.Row <> myC.Row And myF.Column <> myC.Column Then
                        myC.Interior.ColorIndex = mCnt + 3
                        myF.Interior.ColorIndex = mCnt + 3
                        mCnt = mCnt + 1
                        GotIt = True
                    End If
                Set myF = Range(myRan).FindNext(myF)
                If myF Is Nothing Or GotIt Or myF.Address = fAdr Then Exit Do
                DoEvents: Loop
            End If
        End If
    Next myC
    vDelta = -vDelta
Next I
End Sub

Metti il codice in un "Modulo Standard" del vba, es Modulo1.
Le righe marcate <<< sono da personalizzare come da commento

Volendo puoi fare in modo che quando modifichi la cella B1 la macro parte automaticamente:
-tasto dx sul tab col nome del foglio di lavoro; scegli Visualizza codice
-nel modulo vba che cosi' viene aperto inserisci questo codice:

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Call DeltaX
End Sub

Ciao

[j0etemerari0]

Spettacolare, grande Antony47
grazie...grazie....grazie :-)