Impossible task?

[adam]

Dear all

I collate statistics on a team performance every day covering the day prior
About 10 team members all complete daily stats sheets detailing the number of work cases they have resolved and then all email there individual stats sheets to me, which I have to printoff!! And collate

I would obviously like one shared workbook, maybe individual sheets for each team member, so that this can be input and I can collate all of this information onto one page

The Problem: Not all of the team members are in everyday so if I do a shared worksheet there will be data in there which is 2 days old which I do not want, I only want the previous working days figures (Working week = Monday to Saturday)

Is there any macro or way you can see that I can delete data in the workbook that is older than 2 working days? I'd protect the workbook so the cretins cannot change the layout as well.

 

[jeff]

Hi, Adam,

Not impossible at all. Why not date-stamp each user
entry in a column for each data entry row, so you can
create a little macro to clear all old dates?

something like:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target, Me.Range("C1:C5")) Is Nothing Then
Exit Sub
Application.EnableEvents = False
Target.Offset(0, 10) = Now()
Application.EnableEvents = True
End Sub

(this line:Me.Range("C1:C5")) checks to make sure user
is in the cells which trigger the date-stamp- adjust
this of course)

hope this helps a little.
jeff

-----Original Message-----
Dear all,

I collate statistics on a team performance every day covering the day prior.
About 10 team members all complete daily stats sheets

detailing the number of work cases they have resolved and
then all email there individual stats sheets to me, which
I have to printoff!! And collate.

I would obviously like one shared workbook, maybe

individual sheets for each team member, so that this can
be input and I can collate all of this information onto
one page.

The Problem: Not all of the team members are in everyday

so if I do a shared worksheet there will be data in there
which is 2 days old which I do not want, I only want the
previous working days figures (Working week = Monday to
Saturday).

Is there any macro or way you can see that I can delete

data in the workbook that is older than 2 working days?
I'd protect the workbook so the cretins cannot change the
layout as well.

 

[Adam]

Jeff

Your module code is returning an error. Can you please check

Thanks