Macro - Find a date in a column range

[bananashark]

hi,

I have column S which lists some dates in the format "dd/mm/yyyy".

I would like a macro that searches to find todays date in this column.

If it doesn't find it, then I would like to append today's date at the end of the list.

If it finds it then I would like to put number "1" in column T in the row that the date is found.

thanking you in advance, bs

 

[jim may]

Something like..

Sub DoDate()
Dim r As Range
Dim Flag As Boolean
Flag = True
lrow = Range("S65536").End(xlUp).Row
Set r = Range("S1:S" & lrow)
For Each c In r
If c.Value = Date Then
c.Offset(0, 1).Value = 1
Flag = False
Exit Sub
End If
Next
If Flag = True Then
Set r = r.Resize(r.Rows.Count + 1, 1)
r(r.Rows.Count).Value = Date
End If
End Sub

 

[VoG]

Without looping

Sub FindToday()
Dim Found As Range, LR As Long
LR = Range("S" & Rows.Count).End(xlUp).Row
Set Found = Columns(19).Find(what:=Date)
If Found Is Nothing Then
    Range("S" & LR + 1).Value = Date
Else
    Found.Offset(0, 1).Value = 1
End If
End Sub