first and last entry buttons

[bradccollins]

self describing really, want a button to go to the last entry and one to go to the first entry. Thanks in advance.

 

[buxtongt]

Dim intbottomrow As Long

    Range("A65536").End(xlUp).Select
    intbottomrow = ActiveCell.Row

this will give you the last row at that intbottomrow variable

Running the .end(xlup).select twice should give you the top row. This is all for column A. Hope this helps.

 

[bradccollins]

Thanks it worked to go to the bottom, not sure if I understand what you mean by run it twice.

 

[buxtongt]

Something like:

Dim intbottomrow As Long
Dim inttoprow As Long 

 Range("A65536").End(xlUp).Select 
 intbottomrow = ActiveCell.Row

Range(intbottomrow).End(xlUp).Select 
 inttoprow = ActiveCell.Row

I didn't test this, so the syntax might not be perfect, but that's the basic idea.