Home › Forum › Domande su Excel VBA e MACRO › Colorare celle conteneti RI da Lun_Ven › Rispondi a: Colorare celle conteneti RI da Lun_Ven
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