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!
- Apr 13 Sun 2008 20:43
go to cell with date equaling TODAY()
close
全站熱搜
留言列表
發表留言
留言列表

