New entry on worksheet

  • Thread starter Thread starter Diane
  • Start date Start date
D

Diane

When entering my worksheet, I would like it to open and
automatically go to the next entry line. Any ideas how to
do this?
 
Assuming your data is in Column A. In the workbook_open
event. VBA|thisworkbook|rigth cllick|View code add

Private Sub Workbook_Open()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).Select
End Sub
 
Diane,

Next entry line????
In which column???

The following assumes that you're using Column "A" to
see where your next empty cell is. Actually, it's looking
from the bottom of the sheet upwards to find the last
non empty cell in column "A" and then moving down one
row.

Paste the following into a regular module.
Alt + F11
Right click "ThisWorkbook" in the "Projects" window.
Select "Insert/Module"
Paste the following into the Module window on the right

Sub Auto_Open()
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

John
 
Diane

You must use VBA Workbook_Open code to go to the specific sheet and specific
cell.

Right-click on the Excel Icon at top-left corner of Menu Bar. Select "View
Code. Paste this code in there. Save the file.

Sub WorkBook_Open()
WorkSheets("Sheet1").Activate
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub

OR use Workbook_BeforeClose code to set the worksheet as the active sheet upon
closing the workbooK.

Gord Dibben Excel MVP XL2002
 
Back
Top