Floating Button that takes you back to last data entry row

[mjg060468]

Hi guys

I am creating a spreadsheet that will get used daily throughout the year. This means that the spreadsheet could get very long.

Therefore I am looking for a way to create two floating buttons, one to take you back to the top and another that takes you to the last row where data was entered.

Can anyone please help me?

Cheers

 

[mumps]

Create the buttons and assign each to the appropriate macro.

Sub Top()
    Cells(1, 1).Select
End Sub

Sub Bottom()
    Cells(Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1, 1).Select
End Sub

 

[mjg060468]

Thanks for that. Unfortunately, I have drop down menus, and its sending me to the last line without a dropdown, therefore taking me to the very bottom of the spreadsheet, which isn't necessarily the last row of inputted data

 

[mjg060468]

Sub Bottom()
Cells(Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1, 1).Select
End Sub​

To counter the issue of dropdowns, any chance you could re-work this to search the next blank cell in column C, as that column has no dropdowns

Cheers

 

[mumps]

Try:

Sub Bottom()
    Dim lastRow As Long
    With ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
        lastRow = .Cells(.Cells.Count).Row + 1
        Cells(lastRow, 1).Select
    End With
End Sub

 

[Fluff]

@mumps
That is going to count all cells with a constant in the entire sheet, not just those in col C.

Try like this

Sub Bottom()
    Dim lastRow As Long
    With ActiveSheet.Columns(3).SpecialCells(xlCellTypeConstants)
        lastRow = .Cells.Count
        Cells(lastRow, 1).Select
    End With
End Sub

Alternatively

Sub Bottom()
    Range("C" & Rows.Count).End(xlUp).Offset(, -2).Select
End Sub

 

[mumps]

@Fluff: Thank you. I posted the code before seeing the PO's last post.