VBA to select range of cells down to bottom border - ?????

[spydey]

Hey, so I will make this fast.

I am looking for a way to select a range of cells, starting with A17, down column A, to where a bottom double line border is.

There are no other bottom borders in the range.

The range can vary, i.e. A17:A46; A17:A2345837, etc etc.

All of the range's cells may or may not be blank or an assortment.

I was hoping for something like (the below is totally made up but hopefully gets the idea across):

Range("A17").End(xlDown).BottomBorder.Select

Any thoughts, ideas, etc?

Everything I find is telling me how to place and take away borders, which I know, but can't seem to find something on how to make a selection of cells down to the cell that has a bottom border.

Is it even possible?

-Spydey

 

[igold]

Does this get you close to what you need...

Sub FindDoubleLine()


    Dim rng As Range, rc As Range
    Dim i As Long, lRow As Long
    
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Range("A17:A" & lRow)
    For Each rc In rng
        If rc.Cells.Font.Underline = -4119 Then
            MsgBox "Double Found at address " & rc.Address
        End If
    Next
    
End Sub

 

[igold]

The above code that I posted is looking for a font double underline as opposed to a cell double bottom line.

 

[spydey]

The above code that I posted is looking for a font double underline as opposed to a cell double bottom line.

Yes, I noticed that.

Thanks for posting.

So basically, once I identify the address of the cell that has a bottom border, I can then plug that in to a range and have the full range from top to bottom (cell with bottom border).

Genius!!

Thanks @igold!!

-Spydey

 

[igold]

You're welcome. Thanks for the feedback!