How to get pointer in new cell on Open?

[Guest]

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

 

[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

 

[Guest]

Ron,
Thanks for the info!

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