Check for Missing Borders - VBA

[Bablu]

Hello All-

I am trying to identify quickly where I am missing part of the Border. There are a lot of rows, so if I could have it somewhat automated, it will save me a lot of headache.

As an example below the Red color is where I am missing the part of the border where I need to identify the border is missing.

Any guidance would be great. Thanks in advance!

 

[Michael M]

More info required here ?
Are they merged cells between cols C and D ?
How did you put the borders in place, Manually or via code ??

 

[lrobbo314]

This might do the trick. If this does work you can change the code to put the border in instead of highlighting it red.

Sub MissingBorder()
Dim r As Range: Set r = Range("A1:K30")

For Each cel In Selection
    If cel.Offset(, 1).Borders.Item(4).LineStyle = 1 And cel.Borders.Item(4).LineStyle <> 1 Then cel.Interior.ColorIndex = 3
Next cel
End Sub

 

[Bablu]

More info required here ?
Are they merged cells between cols C and D ?
How did you put the borders in place, Manually or via code ??

Hi-

There are merged cells within the sheet; However, the ones I need to compare are not merged cells, so C and D are not merged cells.
The Borders are put in manually.

 

[Bablu]

This might do the trick. If this does work you can change the code to put the border in instead of highlighting it red.

Sub MissingBorder()
Dim r As Range: Set r = Range("A1:K30")

For Each cel In Selection
    If cel.Offset(, 1).Borders.Item(4).LineStyle = 1 And cel.Borders.Item(4).LineStyle <> 1 Then cel.Interior.ColorIndex = 3
Next cel
End Sub

Sorry, this is not doing anything on my sheet. I tried changing the ranges around, but no avail.