Macro Help....

[akemeny]

I don't know if this is even possible, but this is what I need:

I have a spreadsheet (Sheet6) that contains each individual account record
for a set time period. During this time period we have letters that are sent
out on a regular basis and we monitor how long it takes to receive a
response. When a response hits the time limit that they are allowed to
respond the claim is copied to another spreadsheet for follow up (FollowUp).
I need to know if there is a Macro that I can set up to automatically pull
the accounts that go past the alotted time frame.

So for example:

Row1 is on day 59. When Row1 hits day 60, the macro should automatically
copy that claim information to the FollowUp spreadsheet.

Is this possible?

 

[Don Guillett]

If desired, send your workbook to my address below with snippets of this
msg and what you want.

 

[JLGWhiz]

Let's say your expiration or due date is in column D and you have headers in
row 1.

Sub RespDue()
Dim lr As Long, dt As Range
thisDay = Date
lr = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row 'Get last row
Set myRange = ActiveSheet.Range("D2" & lr)
For Each dt In myRange
If dt.Value >= thisDay Then
dt.EntireRow.Copy Sheets(2). _
Range("A" & Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Next
End Sub

I did not test this, but the idea is to check the date in the column with
due dates and for each match that is greater than or equal to the current
date, copy to a separate sheet. You can then either word from that sheet or
produce a printed report of the overdue responses.