close

Hello! I have a spreadsheet with January 01, 2006 thru December 31, 2006 in
ascending order in column A, each date in a different cell (A1, A2, A3,
etc.). I don't enter data into this sheet everyday..in fact, months could go
by before having to enter an occurance for say, March 31. Is there a way to
have excel, upon opening the spreadsheet, advance the cursor to the cell with
that day's date in it?--
Thank you all for your help!

Using function Date rather than Today()
Works for me.
Private Sub Workbook_Open()
Dim r As Long
Dim T As Long
T = Date
r = Application.Match(T, Columns(1), True)
Application.Goto Cells(r, 1)
End Sub

Put the code in quot;this workbookquot;
to get there right click onto the icon to the left of quot;Filequot; in the menu
bar.

select view code and select quot;this workbookquot; select workbook in the dropdown
of the left pane.
insert the code without the top line and the quot;end subquot; line as they are
already there.........
--
Greetings from New Zealand
Bill K

quot;James Dquot; gt; wrote in message
...
gt; Hello! I have a spreadsheet with January 01, 2006 thru December 31, 2006
gt; in
gt; ascending order in column A, each date in a different cell (A1, A2, A3,
gt; etc.). I don't enter data into this sheet everyday..in fact, months could
gt; go
gt; by before having to enter an occurance for say, March 31. Is there a way
gt; to
gt; have excel, upon opening the spreadsheet, advance the cursor to the cell
gt; with
gt; that day's date in it?
gt;
gt;
gt; --
gt; Thank you all for your help!

全站熱搜
創作者介紹
創作者 software 的頭像
software

software

software 發表在 痞客邦 留言(0) 人氣()