Ho visto che esistono molti, molti... topic sull'argomento in titolo, ma nessuno mi da risposta precisa, o meglio non riesco a integrarlo nel codice che insieme abbiamo costruito.
In effetti ho raggiunto tutte e tre le posizioni della formattazione condizionale ed ovviamente me ne occorrono altre.
Quindi da quando ho capito (visto che non trovo più la utlity CFPLUS) si deve fare una macro.
Ho provato anche a seguire qualche suggerimento di flash in topic precedenti, senza successo.
il codice attualmente è questo:
Dim TAdr As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CheckArea = "F4:AJ348"
On Error Resume Next
If Target.Column <> TAdr Then Cells(1, TAdr).ColumnWidth = 5 '<<< Larghezza STRETTA
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
Target.ColumnWidth = 25 '<<< Larghezza LARGA
TAdr = Target.Column
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
CheckArea = "F4:AJ348"
If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Sheets("Legenda Assenze").Range("A1:B34"), 2, 0)
Application.EnableEvents = True
End Sub
ora sempre nello stesso range F4:AJ348 vorrei aggiungere delle formattazioni condizionali almeno 5 oltre i 3 previsti