Mah....
Supponiamo che nel tuo esempio la parola "partenza" indichi l'inizio di un ciclo
Supponiamo che tu colori in Giallo il ciclo dopo il quale effettui una pulizia.
Allora questa macro ti indichera' in Rosso la necessita' che il ciclo che vai ad avviare sia seguito da un ciclo di pulizia.
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tRow As Long, I As Long, cStart As String
'
cStart = "PARTENZA" '<<< La parola che identifica un ciclo
If UCase(Target) = UCase(cStart) Then
tRow = Target.Row
For I = Target.Column - 1 To 1 Step -1
If UCase(Cells(tRow, I)) = "PARTENZA" Then mycyc = mycyc + 1
If Cells(tRow, I).Interior.ColorIndex = 6 Or I = 1 Then
If mycyc >= 4 Then Target.Interior.ColorIndex = 3
Exit For
End If
Next I
End If
End Sub
Si tratta di una macro di Worksheet_Change, quindi va inserita nel "modulo di codice" del foglio su cui lavori:
-tasto dx sul tab col nome del foglio che contiene la pivot, scegli Visualizza codice; si aprira' l'editor delle macro
-copia il codice e incollalo nel frame vuoto di dx
-personalizza la riga marcata <<<
Chiudi l'editor (Menu /Chiudi) e torna al file Excel.
La macro si avviera' man mano che il foglio sara' compilato.
Quando un ciclo viene marcato in rosso allora bisognera' procedere, a fine ciclo, alla pulizia e contemporaneamente la cella deve essere modificata da Rossa a Gialla
Spero sia di aiuto...