Find a cell that matches the value of another cell

J

JLC

I have a cell (A1) in column (A) that contains the formula..... =today() ...... I would like to record a macro that would do a find (or goto) on that same column (A5.. A15000) to move the active cell cursor (to find) the cell below that matches today's date. It seems that I cannot do a find on a column based on the result of a formula of another cell.
 
D

Don Guillett

try this where col A contains dates and b1 has =today()

Sub findtoday()
MsgBox Columns(1).Find(Range("b1")).Address
End Sub

Sub gotofindtoday()
Application.Goto Reference:= _
Range(Columns(1).Find(Range("b1")).Address)
End Sub
--
Don Guillett
SalesAid Software
[email protected]
JLC said:
I have a cell (A1) in column (A) that contains the formula..... =today()
Click to expand...
....... I would like to record a macro that would do a find (or goto) on that
same column (A5.. A15000) to move the active cell cursor (to find) the cell
below that matches today's date. It seems that I cannot do a find on a
column based on the result of a formula of another cell.
 
Top