How to get pointer in new cell on Open?

J

Jazz Drummer

I want to have the pointer in the next new cell each time I open the
workbook. is there a way to do this?
Thanks
 
R

Ron de Bruin

Hi Jazz

You can do this for example in the workbook open event (user must enabled macro's)
to insert the date in a cell every time you open it on a new line in "Sheet2"

Private Sub Workbook_Open()
Dim lr As Long
With Sheets("sheet2")
lr = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Cells(lr, "A").Value = Date
.Cells(lr, "B").Value = Environ$("username")
End With
End Sub

See also
http://www.cpearson.com/excel/events.htm
 
J

Jazz Drummer

Ron,
Thanks for the info!

Ron de Bruin said:
Hi Jazz

You can do this for example in the workbook open event (user must enabled macro's)
to insert the date in a cell every time you open it on a new line in "Sheet2"

Private Sub Workbook_Open()
Dim lr As Long
With Sheets("sheet2")
lr = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Cells(lr, "A").Value = Date
.Cells(lr, "B").Value = Environ$("username")
End With
End Sub

See also
http://www.cpearson.com/excel/events.htm
Click to expand...
 
Top