Last row on every page

Dear Sir,

How to findout LastRow on every page in sheet.

http://www.vbaexpress.com/forum/showthread.php?t=13260

Actually I want to apply following border to lastrow of every sheet page

 With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Please help

Here is several ways to find the last used row & column

'find row before next blank cell in column A
iLastRow = Range("A1").End(xlDown).Row

'find last used row in column A
iLastRow = Cells(Rows.Count, "a").End(xlUp).Row

'find last used row on sheet
iLastRow = Cells.Find(what:="*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

'find column before next blank cell in row 1
iLastColumn = Range("A1").End(xlToRight).Column

'find last used column in row 1
iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column

'find last used column on sheet
iLastColumn = Cells.Find(what:="*", SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column

'set variable to last used cell
Dim rLC As Range
Set rLC = ActiveSheet.UsedRange

Set rLC = ActiveCell.SpecialCells(xlLastCell)

With rows(iLastRow).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

Hope this i not another cross post ??

Also if you want to post here please reply to your other posts.


The below will run on the last cell in Col A for each sht which may not be what you want

Could try usedrange...see link

http://www.rondebruin.nl/last.htm#one

Sub LastCellInColA()
    Dim LastRow As Long
    Dim sh As Worksheet
    Dim i As Integer
    Dim FirstSht As Worksheet
    Set FirstSht = ActiveSheet
    For i = 1 To Worksheets.Count
    Sheets(i).Select
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
   With Range(LastRow & ":" & LastRow).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Next i
FirstSht.Select
End Sub

VBA Noob

tqm1 ,

Thinks for agreeing to folow the rules. I've posted the cross link for you

http://www.vbaexpress.com/forum/showthread.php?t=13260

VBA Noob