I'm not sure I understand.

If you have the summary sheet, you could get a table like:

Low Score High Score
02/09 dave "5" jim "50"
02/19 jim "9" john "30"

with a little manipulation and formulas.

I put your sample table in A1:D4. Headers in B1:D1 and A2:A4.

Select the date headers
edit|copy

Select a range A11 (say) away from that table
edit|paste special|transpose

Now all the dates will be in A11:A13
Then I added headers in B10:e10 (Min, Min Name, Max, Max Name)

And these formulas:
B11: =MIN(INDEX($B$2:$D$4,0,MATCH($A11,$B$1:$D$1,0)))
C11: =INDEX($A$2:$A$4,MATCH(B11,INDEX($B$2:$D$4,0,MATCH ($A11,$B$1:$D$1,0)),0))

D11: =MAX(INDEX($B$2:$D$4,0,MATCH($A11,$B$1:$D$1,0)))
E11: =INDEX($A$2:$A$4,MATCH(D13,INDEX($B$2:$D$4,0,MATCH ($A13,$B$1:$D$1,0)),0))

And copy all 4 formulas down.

Adjust the addresses to what you need (include the sheet names if the formulas
are on a different sheet) and I think that this will work.

======

Notice that B2:D4 is the range with the actual data.
and the matches just pick out the correct column (matching the date in column A
to the dates in the table header row).


jkhouston wrote:

that's it, thanks a lot!

I wonder if I could pick your brains a little more? :)

just a quick example of the summary page format.

02/09 02/19 03/11

dave 5 15 6

john 18 30 4

jim 50 9 18

Would it be possible to select the worksheet from the players name shown?
The routine you wrote works in a columnar range A:L so we would need to have
the range like; dave!A:L each worksheet is named after the players. In fact
I think you added an error handler for, and improved, the code I used to
rename the worksheets by using cell A1 on the sheets.

Also, would it be possible to find the min and max values per date and
display the results in this format?

Low Score High Score
02/09 dave "5" jim "50"
02/19 jim "9" john "30"

and so on. I understand that this is a lot to ask for so if you don't have
the time, I'll understand. I really appreciate what you've done so far,
thanks again!

Best regards,
John

"Dave Peterson" wrote:

Did you put this in a General module?

Don't put it under ThisWorkbook or behind a worksheet.

jkhouston wrote:

Hi Dave,

I tried your routine and it came back with the #name? error. I tried to look
thru it and see where it was failing but no luck.

Thanks

"Dave Peterson" wrote:

Maybe you can use a UDF like:

Option Explicit
Function GetDateTotal(Mydate As Date, Target) As Variant

Dim myCol As Range
Dim res As Variant
Dim myVal As Variant

For Each myCol In Target.Columns
res = Application.Match(CLng(Mydate), myCol, 0)
If IsError(res) Then
'keep looking
Else
Exit For
End If
Next myCol

If IsError(res) Then
myVal = "Date Not found"
Else
myVal = myCol.Cells(1, 1).Offset(res + 7, 0).Value
End If

GetDateTotal = myVal

End Function

And still call it with:
=getdatetotal(a1,sheet2!a:e)

jkhouston wrote:

Hi Tom,

I wonder if you would have an alternate method that I could use to acheive
the same result as the "find" system that both Joel suggested and you
improved on? I am using excel 2000 so it would seem that I can't use the code
provided.

It's quite frustrating as, after looking at what you had written, that was
exactly what I was looking for!

If you would have some other suggestion as to what I could do, I'd really
appreciate it!

Thanks,
John

"Tom Ogilvy" wrote:

Since you are getting the data from another sheet, you need to modify the
function like this:

Function GetDateTotal(Mydate As Date, Target)

Set FindRange = Target.Find(Mydate)

myrow = FindRange.Row + 8
mycol = FindRange.Column

GetDateTotal = FindRange.Parent.Cells(myrow, mycol).Value


End Function

otherwise you return information from the sheet with the formula which would
be meaninless in the context it has been presented.

Also, Find won't work in A User Defined function in xl2000 and earlier.
(just some information for the OP).

--
Regards,
Tom Ogilvy


"Joel" wrote in message
...
John: The functio below will search any range of date, find a date, and
then
return the value that is 8 rows below the date. To call the function from
a
worksheet

=GetDatetotal(a1,sheet2!A1:a100)

where a1 contains a cell in date format

Function GetDateTotal(Mydate As Date, Target)

Set FindRange = Target.Find(Mydate)

myrow = FindRange.Row + 8
mycol = FindRange.Column

GetDateTotal = Cells(myrow, mycol).Value


End Function

"JKHouston" wrote:

Hello everyone,

I'm asking for help to solve this problem as I'm pretty sure that I'd
need
to programmatically get this data rather than do it with functions. I
might
be able to figure something out with functions but it would probably be a
lot
neater otherwise.

What I have is a main page with peoples names in vertical columns with
dates
across the top to use to match the data with. I also have worksheets with
those peoples names on them that store the data in more detail. What I'd
like
to do is get the value of one cell (the sum total) of the detail numbers.
The
sum is always in the same place, 8 rows down from a given date.

One of the biggest problems is that my detail worksheet does not have
contiguous ranges. They go from; F2:L9 , C12:L19 , C22:L29 and finally
C32:K39. Those ranges encompass both the date and the sum figure I want,
which is row 8 in this range.

Would it be possible to figure out a way on the main summary page to look
at
the persons name, find the worksheet based on that persons name, match
the
dates and record the sum from the detail page onto the summary page?

I sure as heck can't do it! :) Any help would sure be appreciated.

Thanks
John




--

Dave Peterson


--

Dave Peterson


--

Dave Peterson