Automatically adding border line after a change in value in a column

[jardenp]

I've looked at a couple other posts, but haven't been able to make this work for my situation using VBA.

I want a thin border along the bottom of the cells in columns A:K whenever the value in column A changes.

So,
_A___B____C______________K__
234
234
245
245
245
267
299
299

Becomes
_A___B____C______________K_
234
234________________________
245
245
245________________________
267________________________
299
299________________________

There is a header row in 1:1 that is already formatted, so I don't want the border between rows 1 and 2 changed and, again, I'm looking for a VBA solution. Thanks!

 

[mumps]

Try:

Sub Test()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim rng As Range
    For Each rng In Range("A2:A" & LastRow)
        If rng <> rng.Offset(1, 0) Then
            Range("A" & rng.Row & ":K" & rng.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub

 

[jardenp]

Wow. That is so far beyond my VBA skills.

Works perfectly. Thank you.

 

[mumps]

My pleasure!