You are here:Home-Domande su Excel VBA e MACRO-Colorare celle conteneti RI da Lun_Ven-Rispondi a: Colorare celle conteneti RI da Lun_Ven
Rispondi a: Colorare celle conteneti RI da Lun_Ven2020-05-17T17:56:04+02:00

Home Forum Domande su Excel VBA e MACRO Colorare celle conteneti RI da Lun_Ven Rispondi a: Colorare celle conteneti RI da Lun_Ven

BySalvBySalv
Amministratore del forum
    Post totali: 697

    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  :scratch: 
                        .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