You are here:Home-Domande su Excel VBA e MACRO-separare date con riga verde-Rispondi a: separare date con riga verde
Rispondi a: separare date con riga verde2020-07-05T18:35:40+02:00

Home Forum Domande su Excel VBA e MACRO separare date con riga verde Rispondi a: separare date con riga verde

AvatarFedtorrent
Partecipante
    Post totali: 11

    Ciao Raimea,
    io avrei risolto così:

    Sub RigaVerde()
    Dim X As Integer, Data1 As Date, Data2 As Date
    
    X = 8
    Do Until Cells(X + 1, 4) = ""
    
    Data1 = Format(Cells(X, 4), "dd/mm/yyyy")
    Data2 = Format(Cells(X + 1, 4), "dd/mm/yyyy")
    If Data2 <> Data1 Then
    Range("A" & X & ":I" & X).Select
    With Selection.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Color = -11489280
    .TintAndShade = 0
    .Weight = xlMedium
    End With
    End If
    X = X + 1
    Loop
    
    Cells(X, 4).Select
    
    End Sub
    

    Fai partire la sub inserendo un pulsante sul foglio.

    Buona serata

    …fedtorrent