Using LastRow and Borders

[Offroadracer_814]

First off, thanks for the help.

I am using LastRow to find the last row of data in my spreadsheet. The last row in my spreadsheet varies daily.

Dim LastRow As Long
Range("A1").Select
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

Then I am trying use the thin border on the bottom of the cells.
Range("A3").Select
Range("A3:AF" & LastRow).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With

However, the last row is not getting a border. Can someone help?

Thanks

Kevin

 

[MARK858]

It borders to the last row for me with values.
What do you have in the cells on the last row values, formulas or just formats?

 

[Offroadracer_814]

It borders to the last row for me with values.
What do you have in the cells on the last row values, formulas or just formats?

Data (Forecast) from manufacturing. It has text, numbers, dates and some formulas.

 

[MARK858]

Do the 2 message boxes below give the same and correct number?

Sub xxx2()
    Dim LastRow As Long, LastRow2 As Long

    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox LastRow
    LastRow2 = ActiveSheet.Cells.SpecialCells(11).Row
    MsgBox LastRow2
End Sub

and is the correct sheet Active?

 

[Offroadracer_814]

Do the 2 message boxes below give the same and correct number?

Sub xxx2()
    Dim LastRow As Long, LastRow2 As Long

    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox LastRow
    LastRow2 = ActiveSheet.Cells.SpecialCells(11).Row
    MsgBox LastRow2
End Sub

and is the correct sheet Active?

Yes to all questions.

 

[MARK858]

Afraid then I have no suggestions (other than adding a +1 to the LastRow code) without seeing the workbook.
If you can upload the workbook to either www.box.com or www.dropbox.com I'll take a look (make sure any sensitive data is sanitised).

Mark the file for sharing and paste the link it provides in the thread.

 

[Offroadracer_814]

Afraid then I have no suggestions (other than adding a +1 to the LastRow code) without seeing the workbook.
If you can upload the workbook to either www.box.com or www.dropbox.com I'll take a look (make sure any sensitive data is sanitised).

Mark the file for sharing and paste the link it provides in the thread.

Will do... firewall will not allow me to dropbox. I will try it from home.
Along with a fee for box.com. I will not be using that option.

Thanks

 

[MARK858]

The fee on box is only for businesses, it is free for personal use else I wouldn't use it. Click Individual.

 

[Offroadracer_814]

https://app.box.com/s/blzjifmkiqskgnmaxfwupl7ld9bqrazc

I hope I shared it properly.

Also, I did the plus one. I works great. Never knew of that option. As I have no VBA training. Only by coworkers, friends, internet search, this board and hands on stuff. So you do not have to put anytime into it at all.

Thanks

 

[MARK858]

So you do not have to put anytime into it at all.

I did have to because it was bugging me but the code underlined from row 3 to row 58 for me which looks correct, do you get a different result?