Formattazione Condizionale
Ciao Satos, allora il problema è differente in quanto aggiungendo altre estrazioni, il range cambia.
te lo risolvo con il VBA, per me più facile che con le formule.
questa la macro per la Formattazione Condizionale.
Sub FormCond(fg, c)
Dim r
Sheets(fg).Select
r = Cells(Rows.Count, c).End(xlUp).Row
Range(Cells(r - 5, c), Cells(r, c + 4)).Select
Selection.FormatConditions.Delete
Range(Cells(r - 4, c), Cells(r, c + 4)).Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = -0.499984740745262
End With
Selection.FormatConditions(1).StopIfTrue = True
Cells(5, 1).Select
End Sub
è una macro che ha bisogno di parametri per funzionare, questo perche puoi utilizzarla anche per più situazioni identiche, visto che hai detto che vorresti usare per più occasioni.
la macro nelle macro non la vedi per lanciarla, viene lanciata all'apertura del foglio "Previsioni", ma questo in automatico perche l'ho legata all'evento "Activate" del foglio, i parametri che vengono passati alla macro sono
fg = nome foglio tra virgolette "Previsioni"
c = numero di colonna del 1° estratto
la macro è "Sub FormCond(fg, c)"
cosa fa: in effetti seleziona il foglio, poi va alla colonna 15=o vede l'ultima riga occupata, cancella la formattazione precedente e crea una nuova formattazione con la riga che hai aggiunto.
se vuoi usarla su un altro foglio esempio "Metodo" il codice per lanciare la macro diventa
call FormCond("Metodo",4)
il 4 sarebbe la colonna D
ti allego il file
Ciao By Sal
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui