Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Focus on a cell based on date
I would like to have Excel 2003 on open move the focus to a cell
within a column based on the date opened so it reduces the need to scroll down to find that date? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Focus on a cell based on date
Hi,
Put this code in the workbook section of the VBE. Private Sub Workbook_Open() Z = 1 Y = 1 Do Until Cells(Z, Y) = Date Z = Z + 1 Loop Cells(Z, Y).Select End Sub If your dates are not in column A, change the value of Y in the 2nd line to suit your data. (Column A=1, Column B=2, etc) Regards - Dave. |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Focus on a cell based on date
When you save the file, make sure the focus is on the cell you want. Excel
will preserve the focus on reopen. Regards, Fred. wrote in message ... I would like to have Excel 2003 on open move the focus to a cell within a column based on the date opened so it reduces the need to scroll down to find that date? |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Focus on a cell based on date
in ThisWorkbook module put the following code
Private Sub Workbook_Open() Dim l As Double Range("A1:A10000").Select l = DateSerial(Year(Now()), Month(Now()), Day(Now())) k = Application.WorksheetFunction.Match(l, Selection, 0) Cells(k, 1).Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
On opening a worksheet move focus to a cell based on date | Excel Worksheet Functions | |||
Active Cell/Focus | Excel Discussion (Misc queries) | |||
Temporary formatting of cell with focus | Excel Discussion (Misc queries) | |||
Outline color of cell that has focus | Excel Discussion (Misc queries) | |||
Using formulas to determine date in one cell based on date in anot | Excel Worksheet Functions |