Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to goto specific cell (todays date)
i have a sheet set up as follows
A B C 1 John Andrew Steve 2 01-01-2010 3 01-02-2010 4 01-03-2010 5 01-04-2010 this sheet goes up to the end of the year 12-31-2010 what i am looking for is a macro that when upon opening the document brings the user to the row corisponding to the current days date. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to goto specific cell (todays date)
Hi
One way Sub Auto_Open() Sheets("Sheet1").Activate Rows(Date - DateSerial(2010, 1, 1) + 2).Activate End Sub -- Regards Roger Govier crimekilla wrote: i have a sheet set up as follows A B C 1 John Andrew Steve 2 01-01-2010 3 01-02-2010 4 01-03-2010 5 01-04-2010 this sheet goes up to the end of the year 12-31-2010 what i am looking for is a macro that when upon opening the document brings the user to the row corisponding to the current days date. |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to goto specific cell (todays date)
And if you want that row scrolled up, add the line
ActiveWindow.ScrollRow = ActiveCell.Row before End Sub Gord Dibben MS Excel MVP On Tue, 11 May 2010 16:21:39 +0100, Roger Govier wrote: Hi One way Sub Auto_Open() Sheets("Sheet1").Activate Rows(Date - DateSerial(2010, 1, 1) + 2).Activate End Sub |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to goto specific cell (todays date)
The code below must go into the Workbook's event code module. To put it
there, open the workbook and press [Alt]+[F11] to open the VB Editor. Press [Ctrl]+[R] to make sure the "Project - VBAProject" pane is displayed. Expand the list of objects in VBAProject for your workbook and double-click on the "ThisWorkbook" entry in the list. Copy the code below and paste it into that module. Edit the sheet name to correspond with the correct sheet in your workbook. Close the VB editor. Save the workbook. To test it, pick another sheet in the workbook and save/close it. Open it back up and it should go to the row with today's date in it. Private Sub Workbook_Open() 'first make sure the correct 'sheet is active and ready to be used 'this sheet must be visible ThisWorkbook.Worksheets("Sheet1").Visible = xlSheetVisible ThisWorkbook.Worksheets("Sheet1").Activate ActiveSheet.Range("A1").Activate ActiveSheet.Cells.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate End Sub "crimekilla" wrote: i have a sheet set up as follows A B C 1 John Andrew Steve 2 01-01-2010 3 01-02-2010 4 01-03-2010 5 01-04-2010 this sheet goes up to the end of the year 12-31-2010 what i am looking for is a macro that when upon opening the document brings the user to the row corisponding to the current days date. |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to goto specific cell (todays date)
Posting the code again so that you may have a better chance of copying and
pasting it without errors getting injected because of this forum breaking lines in the wrong places: Private Sub Workbook_Open() 'first make sure the correct 'sheet is active and ready to be used 'this sheet must be visible ThisWorkbook.Worksheets("Sheet1").Visible = xlSheetVisible ThisWorkbook.Worksheets("Sheet1").Activate ActiveSheet.Range("A1").Activate ActiveSheet.Cells.Find(What:=Date, After:=ActiveCell, _ LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate End Sub "crimekilla" wrote: i have a sheet set up as follows A B C 1 John Andrew Steve 2 01-01-2010 3 01-02-2010 4 01-03-2010 5 01-04-2010 this sheet goes up to the end of the year 12-31-2010 what i am looking for is a macro that when upon opening the document brings the user to the row corisponding to the current days date. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Goto Cell With Today's Or Other Date | Excel Worksheet Functions | |||
Goto a specific cell in a macro | Excel Discussion (Misc queries) | |||
Create a button that will date stamp todays date in a cell | Excel Discussion (Misc queries) | |||
In Excel, Get todays date in a cell | Excel Discussion (Misc queries) | |||
Goto a dynamic cell address within a macro | Excel Discussion (Misc queries) |