Ciao,
sto ammirando estasiato la tua creatura di QUESTO 3d [la definitiva], cercando di capire quali sono e come sono scritte le istruzioni che la fanno lavorare in modo impeccabile... un vero capolavoro!!
Ora, supponiamo l'ipotesi in cui voglia fare lavorare la macro senza che rilevi i valori delle 4 righe prima e dopo il range del sett. in esame (sett.+10 righe dal basso verso l'alto, quindi in totale 11 righe: riga-10): col solito "intuito" spannarolo del principiante in erba credo che i codici deputati a quel lavoro siano questi
blk1 = riga - 10
blk2 = riga - 14
blk3 = 4
If blk1 <= 3 Then blk1 = 3
If blk2 < 3 And blk1 > 3 Then
blk2 = 3
ElseIf blk1 <= 3 Then
Ctrl = True
End If
tenendo in debita considerazione le dichiarazioni fatte all'inizio
Dim rng As Range, rng1 As Range, rng2 As Range, area10 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

ma quali interventi bisogna fare all'interno di tutto l'impianto compositivo della macro affinché lavori in modo esatto, rispettando in primis i canoni del VBA? (magari alla fine e per vie traverse ci posso arrivare, ma sarei comunque un "caciottaro" ahahahah).
Grazie infinite e buon pomeriggio
eZio

salve
per escludere dall'elaborazione le 4 sopra e le 4 sotto, non basta togliere l'assegnazione delle variabili Blk2 e Blk3
devi anche togliere il codice relativo.
le righe che non interesseranno più sono quelle che seguono:

'blk2 = riga - 14
'blk3 = 4
If blk2 < 3 And blk1 > 3 Then
'blk2 = 3
'ElseIf blk1 <= 3 Then
'Ctrl = True
'End If

'If Not Ctrl Then
'Set rng1 = Cells(blk2, 3).Resize(4, 5)
'For Each Mval In rng1
'If Mval.Value = Itx Then
'Itx.Interior.ColorIndex = 34
'Exit For
'End If
'Next Mval
'End If

'Set rng2 = Cells(riga, 3).Offset(1, 0).Resize(blk3, 5)
'For Each Mval2 In rng2
'If Mval2 = Itx And Itx.Interior.ColorIndex = xlNone Then
'Itx.Interior.ColorIndex = 4
'End If
'Next Mval2

Set rng1 = Nothing
'Set rng2 = Nothing


assieme alla dichiarazione delle variabili non più usate.


saluti
Giap

---

il caldo beno o male si sopporta vista la vicinanza del mare , il mal di denti non si sopporta proprio.
<fresco di estrazione>

saluti
Giap

---