Finding the first row on a spreadsheet

[bknight]

What would be the code to find the first row on a spreadsheet?

[HansV]

I assume that you mean the first non-blank row.

Code: Select all

Sub FirstRow()
    Dim r As Long
    r = ActiveSheet.UsedRange.Row
    Debug.Print r
End Sub

[bknight]

I assume that you mean the first non-blank row.

Code: Select all

Sub FirstRow()
    Dim r As Long
    r = ActiveSheet.UsedRange.Row
    Debug.Print r
End Sub

Found row 1 which has headers and then several, 5 maybe blank rows then data begins, BUT there are formulas in row 3 and row 4, that should be ignored because the beginning of data is the row I was seeking. data begins in column A through column O.
The formulas are in column B and K.

You assume correctly.
Thanks

[HansV]

That wasn't what you asked in your first question!

[bknight]

I realize my error.

[snb]

If you structure the worksheet well, your question is redundant.

[robertocm]

Try this:

Code: Select all

Sub test()
Dim wb As Workbook, ws As Worksheet, FirstRow As Long
Set wb = Application.ThisWorkbook
Set ws = wb.ActiveSheet
With ws
    'http://www.siddharthrout.com/index.php/2018/02/10/find-last-row-and-last-column/
    'Siddharth Rout, Feb 2018
    FirstRow = .Range("A2:A10000").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
End With
Debug.Print FirstRow
End Sub

[bknight]

Try this:

Code: Select all

Sub test()
Dim wb As Workbook, ws As Worksheet, FirstRow As Long
Set wb = Application.ThisWorkbook
Set ws = wb.ActiveSheet
With ws
    'http://www.siddharthrout.com/index.php/2018/02/10/find-last-row-and-last-column/
    'Siddharth Rout, Feb 2018
    FirstRow = .Range("A2:A10000").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlNext).Row
End With
Debug.Print FirstRow
End Sub

That works, thanks