Ciao,
scusa se non mi sono dilungato nell'approfondire la richiesta, perché avrei ripetuto gran parte di quanto già esposto nel 3d del LINK...

Ecco in sostanza la variante di cui ho bisogno.
SITUAZIONE DI PARTENZA (esempio):



Tabella1 in giallo, Tabella2 in verde
Tabelle filtrate sul codice 8 di col.P

Situazione specifica di col.O (tabella2) osservando la col.B:
il cod.70 presente in magazzino nel Sett.73’21
il cod.18 presente nel Sett.73’06
il cod.74 presente nel Sett.72’94

la macro del 3d linkato, quella a fine 3d, in base alla selezione dell'intervallo filtrato di col.O intercetta nella tabella1 non filtrata i sett. corrispondenti (in col.B) e crea per ciascuno di essi un Box10 di range "C:G" comprendente la riga del sett. intercettato più 10 righe superiori,



poi intercetta in tabella1 i codici di tabella2-selezione e:
-se sono esterni, ma entro le 4 righe in basso rispetto al Box10 a cui si riferiscono, in tabella2-selezione ne colora di verde la cella
-se sono esterni, ma entro le 4 righe in alto rispetto al Box10 a cui si riferiscono, in tabella2-selezionene ne colora di azzurro la cella
-se sono interni al Box10 li ignora



Nella macro c'è poi un gruppo di istruzioni

For Each mval3 In area10
If mval3 = nextItx Then
With Cells(i + 1, col).Borders
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
Exit For
End If
Next mval3
Exit For

che in questa ricerca non ci interessano.

le differenze rispetto alla richiesta del 3d del link, e relativa macro, sono:
-il Box in Tabella1 anziché essere di 1+10 righe è di 1+15
-le celle dei codici da evidenziare nella selezione di tabella2 sono solo quelle all’interno di questo "Box15"
-la condizione perché vengano evidenziati è che i codici siano presenti nel Box15 almeno per 2 volte
-i codici esterni al Box (quelli a -5/+5 rispetto al Box10 della macro di riferimento) in questa ricerca non ci interessano.
Spero di avere illustrato in modo chiaro il problema,
Grazie assai e buona serata,
eZio


Nota: la macro che mi hai preparato mi è stata utilissima per risovere un altro degli innumerevoli problemi disseminati nel "teatro delle mie operazioni"................. :)))) Grazie!!

Ciao,
ho provato la macro, ma purtroppo non risolve il mio problema...
ho preparato un SAMPLE per chiarire cosa dovrebbe fare e cosa fa la macro, sperando di chiarire ciò che con essa devo fare.
Per chiarezza esplicativa in tabella1 ho colorato solo i Box15 dei codici filtrati di tabella2-selezione che nel Box15 si ripetono almeno due volte.
Grazie assai per la somma pazienza, buona notte
eZio

Ciao,
scusami, ma ho potuto accedere alla rete solo ora...


affermativo: filtro per colore rosso


come ho scritto sopra, ho colorato solo i Box15 dei codici filtrati di tabella2-selezione che nel Box15 si ripetono almeno due volte perché altrimenti sarebbe uscita un'arlecchinata poco comprensibile, ma hai perfettamente ragione... il primo Box15 è a riga 13, poi a riga 22, 49, 97, 189, 249, 262, 273.

Grazie assai e buon pomeriggio
eZio

Ciao,
direi proprio che siamo sulla strada giusta!! ;)))
ho riscontrato alcune anomalie nel lavoro della macro, che ho evidenziato nel FOGLIO2 del SAMPLE
Il FOGLIO2 (2) in realtà è il FOGLIO2 senza filtro, diversamente da quanto scritto nel foglio stesso...
Grazie infinite e buona serata, come sempre sei il migliore in assoluto, sia tecnicamente, sia in stile....
eZio


ps. hai visto il mio TATONE com'è caro e bello?? (click sul mio nome) ;))
quanto m'insegna, pur non parlando....

salve
dopo una occhiata al volo al tuo file, non mi pare di riscontrare errori.
il record da te indicato rigo 249 è normale che sia colorato di blu perchè appartiene al box 15 di pertinenza del valore 146 di riga 262

se così non dovesse essere va rivista completamente tutta la macro.
saluti
Giap

---

salve
forse ho capito il concetto di "capocommessa"..!!

la macro postata, controllava i doppioni nel box 15 e li comparava non al solo capocommessa ma a tutte le righe del box 15.
vedi se ora la soluzione è corretta:

Sub coloraselezione15()
Dim rng As Range, rng2 As Range, area15 As Range
Dim mysett As Variant, sett As Variant, Itx As Variant
Dim Mval As Variant, Mval2 As Variant, mval3 As Variant
Dim Area As Range, Ctrl As Boolean

Set rng = Range("B3", Range("B3").End(xlDown))
col = Selection.Column
counter = 0
'--------------------------------------
' Definisce l'area di selezione e conta le righe della selezione
miorange = Selection.Address
Set Area = Range(miorange).SpecialCells(xlCellTypeVisible)
For Each sel In Area
righe = righe + sel.Rows.Count
Next
'-------------------------------------------

For Each Itx In Area
counter = counter + 1
mysett = Cells(Itx.Row, 2).Value
i = Itx.Row
Do While Cells(i + 1, col).EntireRow.Hidden = True
i = i + 1
Loop

' il contatore serve per definire il limite di NextItx nel caso di selezioni parziali
'dei codici visibili-------------------------------------------------------
If counter <= righe Then
NextItx = Cells(i + 1, col).Value
Else
NextItx = ""
End If
'-------------------------------------------------------------
For Each sett In rng
If sett = mysett Then
riga = sett.Row
'---------------------controllo Riga della selezione
blk1 = riga - 15

If blk1 <= 3 Then blk1 = 3
'
'-------------------------------------------------------------------------
Set area15 = Range(Cells(blk1, 3), Cells(riga, 7))
'*****************
For Each mval3 In area15
Ccont = Application.WorksheetFunction.CountIf(area15, mval3.Value)
If Ccont >= 2 Then
If mval3 = Itx Then
Itx.Interior.ColorIndex = 5
End If
End If
Next mval3
End If
Next sett
Ctrl = False
Next Itx
Set area15 = Nothing
Set Area = Nothing
Set rng = Nothing
End Sub

saluti
giap

---

salve
non si tratta altro che una riacconciatura della vecchia macro. Solo che stavolta c'erano di mezzo il "capocommessa" che non era stato interpretato nella giusta maniera.
saluti
Giap

---