premetto di avere EXCEL 2003 e questo mi comporta di poter utilizzare solo in maniera limitata la formattazione condizionale (limitata a solo 3 condizioni).
Ragion per cui credo debba per forza indirizzarmi in VBA
In pratica dovrei far colorare 2 celle contemporaneamente con diversi colori a seconda del testo che compare in una sola di esse.
Mi spiego meglio:
Se nella cella F5 compare la scritta "ATTENZIONE" allora bisogna colorare di giallo chiaro sia la cella F5 che la F7
Se nella cella F5 compare la scritta "ESTREMA ATTENZIONE" allora bisogna colorare di giallo sia la cella F5 che la F7
Se nella cella F5 compare la scritta "PERICOLO" allora bisogna colorare di arancionne sia la cella F5 che la F7
Se nella cella F5 compare la scritta "PERICOLO ESTREMO" allora bisogna colorare di rosso sia la cella F5 che la F7
Questo processo però fa parte di 1 solo "INDICE" composto da 4 condizioni possibili.
Gli "INDICI" in realtà sono 5 con condizioni variabili da 4 a 6.
Visto che la cosa deve avvenire automaticamente (senza l'uso di un pulsante) penso che l'unica strada sia utilizzare l'evento Worksheet_Change.
Ho provato a mettere giù qualche linea di codice,giusto per una bozza ma...manca il "far colorare" la 2° cella,inoltre non mi succede nulla
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
Dim dgr As String
dgr = [F5].Value
If dgr = "ATTENZIONE" Then
EntireRow.Cells.Interior.ColorIndex = 3
ElseIf dgr = "ESTREMA ATTENZIONE" Then
EntireRow.Cells.Interior.ColorIndex = 6
ElseIf dgr = "PERICOLO" Then
EntireRow.Cells.Interior.ColorIndex = 46
ElseIf dgr = "PERICOLO ESTREMO" Then
EntireRow.Cells.Interior.ColorIndex = 3
End If
End If
End Sub
E' possibile avere un aiutino,magari una bozza di codice che cercherei poi di "sviluppare" per tutti gli INDICI?
Grazie