How do I fill with a specific value the returned active cell from the
intersect of a calendar dates range in Row 1 (Col B thru ...) and any
date from a Target dates list in Col. A ?
Thank you for help.
Celeste

Your question is not very clear, but perhaps something here.

Dim res as Variant, res2 as Variant
Dim dt as Date
dt = "some date"
res = Application.Match(clng(date),rows(1),0)
res2 = Application.Match(dt,Columns(1),0)
if not iserror(res) and not iserror(res2) then
cells(res2,res).Value = "Intersect"
else
msgbox "At least one date not found"
End if

--
Regards,
Tom Ogilvy




wrote in message
oups.com...
How do I fill with a specific value the returned active cell from the
intersect of a calendar dates range in Row 1 (Col B thru ...) and any
date from a Target dates list in Col. A ?
Thank you for help.
Celeste

Sub ABC()
Dim cell as Range, res as variant
for each cell in Range(Range("A2"),Range("A2").End(xldown))
res = application.Match(clng(cell),rows(1),0)
if not iserror(res) then
cells(cell.row,res).Value = cell.offset(0,1).Value
end if
Next
End Sub

this assumes the entries like 8/14 are actually stored as dates like
8/14/2006 in both row and column and formatted to show as m/dd

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
Your question is not very clear, but perhaps something here.

Dim res as Variant, res2 as Variant
Dim dt as Date
dt = "some date"
res = Application.Match(clng(date),rows(1),0)
res2 = Application.Match(dt,Columns(1),0)
if not iserror(res) and not iserror(res2) then
cells(res2,res).Value = "Intersect"
else
msgbox "At least one date not found"
End if

--
Regards,
Tom Ogilvy




wrote in message
oups.com...
How do I fill with a specific value the returned active cell from the
intersect of a calendar dates range in Row 1 (Col B thru ...) and any
date from a Target dates list in Col. A ?
Thank you for help.
Celeste