Looking for Today
Posted by Collin Withaar on April 20, 2001 5:20 PM
I'm looking for a way to find with the help of a macro (under a button) today's date.
A have in kolom A from row 5 down all workdays listed, The macro has to find today's date and go to te kolom (B) next to the row on with it find today date.
The Dates have this form "1-Jan".
Posted by Malc on April 20, 2001 8:22 PM
Have a look at message 14672 it might help
Posted by Collin Withaar on April 21, 2001 2:27 AM
No, but thanks, the routine can't find the date,
even if I make it very simple like; kolom A with a,b,c, then let the macro look for b it jumps to 'No Matching Date'.
Posted by Collin Withaar on April 21, 2001 2:48 AM
Now it works!
.Value was missing...
Sub go_today()
x = 8
Do
x = x + 1
If Cells(x, 1).Value = Date Then
Cells(x, 2).Select
Else
'
End If
Loop Until Cells(x + 1, 1) = ""
End Sub
