Set current cell to a specific value

[Diogo]

Ok, to put it in simple terms I've a calendar in colum A ranging from cell A1
to A365, In cell B1 i've Today() function.
What I want to do is when I open this excel file I want the active cell in
colum A to be the one that has the corresponding date equal to cell B1. Is
this possibel? Some sort of code? If yes could someone exemplify?
Thanks.

 

[Chip Pearson]

Try somthing like the following:


Dim R As Variant
With ThisWorkbook.Worksheets("Sheet1")
R = Application.Match(.Range("B1"), .Range("A1:A365"), 0)
If IsError(R) = False Then
.Range("A1")(R, 1).Select
End If
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

 

[Ken]

Try this code in the Workbook_Open event

Private Sub Workbook_Open()

Cells(Application.Match((CDbl(Range("b1").Value)), Range("a:a")),
1).Activate

End Sub

Good luck.

Ken
Norfolk, Va