Con questa Macro vorrei colorate l'intervallo di celle tra le colonne "A" e "E" per tutte le righe nelle quali, nella colonna "D" è contenuta la parola "Totale". In pratica vorrei colorare le righe create dai SUBTOTALI sotto ai dati.
La mia Macro attuale è questa , ma mi colora soltanto la cella dove trova quel valore, non tutto l'intervallo che vorrei (da colonna A ad E). Prima ho provato usando la formattazione condizionale, ma mi permette solo di impostare un criterio per un valore Uguale a "Totale", non che CONTENGA "Totale".
- Codice: Seleziona tutto
Sub FormCond()
Dim Intervallo As Range
Dim Riga, R, Colonna
Set Intervallo = Range("A1").CurrentRegion
Riga = Intervallo.Rows.Count
Colonna = 6
For R = 1 To Riga
With Range(Cells(R, 1), Cells(R, Colonna))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=$D$" & R & "=""Totale"""
.FormatConditions(1).Interior.ColorIndex = 40
End With
Next
End Sub
Grazie a tutti Voi.. Ciao.