You are here:Home-Domande su Excel VBA e MACRO-confrontare elenco di nomi-Rispondi a: confrontare elenco di nomi
Rispondi a: confrontare elenco di nomi2020-06-30T20:20:50+02:00

Home Forum Domande su Excel VBA e MACRO confrontare elenco di nomi Rispondi a: confrontare elenco di nomi

BySalvBySalv
Amministratore del forum
    Post totali: 771

    Ciao non avevo letto del carattere Bianco, mi è sfuggito, ecco la modifica, sono solo 2 righe aggiunte

    Sub Nomi()
    Dim r, x, y, d, rng
    
    With Range("D6:D317")
        .Interior.Color = RGB(255, 255, 255)
        .Font.Color = RGB(0, 0, 0) '<---------aggiunta
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlDiagonalDown).LineStyle = xlNone
    End With
    r = Cells(Rows.Count, "EB").End(xlUp).Row
    rng = Range("EB6:EB" & r)
    For x = 6 To 317 Step 2
        Cells(x, 4).Interior.Color = RGB(255, 255, 153)
    Next x
    For x = 1 To UBound(rng)
        d = rng(x, 1)
        For y = 6 To 317
            If Cells(y, 4) = "" Then Exit For
            If Cells(y, 4) = d Then
                With Cells(y, 4)
                    .Interior.Color = RGB(255, 0, 0)
                    .Font.Color = RGB(255, 255, 255) '<---------aggiunta
                    .Borders(xlDiagonalUp).LineStyle = xlYes
                End With
                Exit For
            End If
        Next y
    Next x
    End Sub

    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