I am sure that it is possible to do it automatically with formulas but I ran
into problems with tied dates and it is too late tonight tolook at it. In
the mean time here is some code that will do what you want but if anyone can
do it with formulas the feel free to jump in.

Option Explicit
Sub Surveys_Due()
Dim WS As Worksheet
Dim sName As String
Dim sMsg As String
Dim i As Integer
Dim r As Integer
If ActiveSheet.Name < "Surveys Due" Then Exit Sub

Set WS = Sheets("Surveys")

Range("A:A").ClearContents
Cells(1, 1).Value = "Survey Due Report"

With WS
r = 2
For i = 2 To 5
If Application.Count(.Cells(2, i), _
.Cells(4, i)) 0 Then

If Date - Application.Max(.Cells(2, i), _
.Cells(4, i)) = 70 Then

sName = .Cells(1, i).Value
sMsg = "Survey Due"
End If

If Date - Application.Max(.Cells(2, i), _
.Cells(4, i)) = 90 Then
sMsg = "Survey Past Due"
End If

If sName < "" Then
Cells(r, 1).Value = sName
r = r + 1
Cells(r, 1).Value = sMsg
r = r + 1
End If
End If

sName = ""
sMsg = ""

Next i

End With

End Sub




--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Dax Arroway" wrote in message
...
Thanks for the reply. Close, but not quite. This is what I have:
Sheet="Surveys"
Row A=Header Row
A1=Name
A2=Survey1
A3=Survey2
A4=Survey3
B1=Frank
B2=5/29/07
B3=6/30/07
B4=<blank
C1=Betty
C2=<blank
C3=<blank
C4=<blank
D1=David
D2=9/25/07
D3=<blank
D4=<blank
E1=Debbie
E2=3/15/07
E3=5/15/07
E4=7/30/07
There are only 4 columns and every row is a new record/person.

What I want is:
Sheet="Surveys_Due"
A1="Surveys Due Report" (Header)
B1=Frank
B2=Past Due
C1=Debbie
C2=Due (supposing the last date is between 70 and 90 days ago)

I hope that makes it clearer. And thanks so much for your help!
- Dax

"Sandy Mann" wrote:

I forgot to add a comment in the code to say that if the sheet name is
not
$surveys due the change the name in the code to the real sheet name.

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Sandy Mann" wrote in message
...
I'm going to assume that your data in the $surveys sheet is in the form
of:

A1:Name1 (type:text)
A2:Survey1 (type:date)
A3:Survey2 (type:date)
A4:Survey3 (type:date)
A5:<Blank Row
A6:Name2 (type:text)
A7:Survey1 (type:date)
A8:Survey2 (type:date)
A9:<No Date
etc.

and you want
A1:Name1 (type:text)
A2:Survey3 (type:date)
A3:<Blank Row
A4:Name2 (type:text)
A5:Survey2 (type:date)
etc.

There may be more sophistocated way of doing this but try:

on the $surveys Due sheet:

A1:
=IF('$surveys'!A1="","",'$surveys'!A1)

A2:
=IF(MAX('$surveys'!A2:A4)=0,"",IF(TODAY()MAX('$su rveys'!A2:A4)+90,"Survey
Past Due",IF(TODAY()MAX('$surveys'!A2:A4)+70,"Survey Due","")))

A3: x
A4: y
A5: z

Yes A3:A5 have the letters x,y, & z

Highlight A1:A5 and copy down as far as you have data, (or could
possibly
have in the future), in the $surveys sheet.

Finally run this macro:

Sub DeleteThem()
Dim rLast As Long
Dim x As Long
If ActiveSheet.Name < "$surveys due" Then _
Exit Sub

Application.ScreenUpdating = False

rLast = Cells(Rows.Count, 1).End(xlUp).Row

For x = rLast To 1 Step -1
If Cells(x, 1).Value = "x" Or _
Cells(x, 1).Value = "y" Then

Cells(x, 1).EntireRow.Delete
End If
Next x

rLast = Cells(Rows.Count, 1).End(xlUp).Row

For x = rLast To 1 Step -1
If Cells(x, 1).Value = "z" Then
Cells(x, 1).ClearContents
End If
Next x

Application.ScreenUpdating = True
End Sub


--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Dax Arroway" wrote in message
...
Yes that's right, and that function works but it displays Survey Past
Due
in
blank rows. I need to ignore those rows. I also need the A1:Name
that
corrolate with the returned functions. And lastly I need all the
blank
rows
(the ones with no data in them, the ones that are ignored) removed so
I
don't
have a list with a bunch of empty rows in it.

Just a little more help please?
- D.

"Sandy Mann" wrote:

It sounds like you only want the formula in A2 of the $surveys_due
sheet.
If
so try:

=IF(TODAY()MAX('$surveys'!A2:A4)+90,"Survey Past
Due",IF(TODAY()MAX('$surveys'!A2:A4)+70,"Survey Due",""))

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Dax Arroway" wrote in message
...
I should have added that ($surveys_due) should look like this:
A1:<name from $surveys:A1
A2:<returned Value from function

"Dax Arroway" wrote:

I'm hoping someone can help me write a function, please, please,
please.

What I have:
I have a spreadsheet ($surveys) with one record per line.
The columns a
A1:Name (type:text)
A2:Survey1 (type:date)
A3:Survey2 (type:date)
A4:Survey3 (type:date)

What I need:
I need a function that tells me when a survey is due and when it's
past
due
for each person. Names and dates will be entered by hand. The
function
needs to function like this:
If there is no date in Survey1, disregard that row.
If there is a date in Survey1, but not it Survey2 or 3, use
Survey1's
date.
If there is a date in Survey2, but not Survey3, use Survey2's
date.
And if there is a date in Survey3, use that date.
(In other words, use the latest date.)
The date needs to be compared to Today's Date and the words
"Survey
Due"
or
"Survey Past Due" needs to be returned. "Survey Due" needs to be
returned if
after 70 days and "Suvey Past Due" if after 90 days.
I then need this list to be truncated (all the blank cells
removed)
and
displayed with corrolating names on another speadsheet
($surveys_due).

What I'm after:
Surveys need to be completed every 90 days for each person. What
this
function should do is give me a list of people who are due or past
due
to
take the survey no matter if it's the first, second, or third
survey
they've
taken. It's a "tickler" to let me know when to get folks in to
take
their
next survey and when they're past due. I'm not interested in
those
who
haven't done a survey. (I realize that this does not give me
consecutive
dates for each next survey, every 90 days down the line. The
"next"
survey
should come after 90 days of the previous one; in other words I
don't
need
them to be every 90 days consecutively from the first one, 90 days
does
need
to pass between them no matter how long it's been between the
previous
2
surveys.)

Can anyone please help me with this?

Thanks for your help in advance.
- Dax