Rispondi a: Colorare celle conteneti RI da Lun_Ven

[BySalv]

#10063

Ciao Raimea, ho aggiunto il tuo codice ed ho fatto le prove e funziona ho solo modificato lo sfondo in quanto lo avevi inserito Bianco su Bianco, questa la macro completa
ho anche fatto le prove inserendo e togliendo le virgolette sul 2 e funziona lo stesso sia con che senza.

Sub colora()
Dim cl As Range, d, dd, r, c

For Each cl In Cells.SpecialCells(xlCellTypeConstants)
    r = cl.Row: c = cl.Column
    If r < 3 Or c < 9 Then GoTo 1
    dd = Weekday(Cells(2, cl.Column), 2)
    d = UCase(cl)
    If r = 3 Then
        r = r
    End If
    If d = 2 Then
        r = r
    End If
    Select Case d
        Case "2"
            If dd = 6 Then
                With cl
                    .Interior.ColorIndex = 1 '‘ sfondo 1 nero
                    .Font.ColorIndex = 2 '‘carattere 2 bianco   
                    .Font.Bold = True
                    .Borders.LineStyle = xlContinuous
                    .Borders.Weight = xlHairline    '‘ bordo tratteggiato
                End With
            End If
        Case "X"
            With cl
                .Interior.ColorIndex = 6
                .Font.Bold = True
                .Borders.LineStyle = xlContinuous
                .Borders.Weight = xlThick
            End With
        Case "LL"
            If dd <= 5 Then
                With cl
                    .Interior.ColorIndex = 33
                    .Font.Bold = True
                    .Borders.LineStyle = xlContinuous
                    .Borders.Weight = xlMedium
                End With
            End If
        Case "RI"
            If dd <= 5 Then
                With cl
                    .Interior.ColorIndex = 3
                    .Font.Bold = True
                    .Borders.LineStyle = xlContinuous
                    .Borders.Weight = xlMedium
                End With
            End If
    End Select
1 Next cl
End Sub

ecco il gif del funzionamento

https://recordit.co/o9SEIrd5or

Ciao By Sal (8-D

Ciao By Sal (8-)
se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie