computing annual maxima

Hi, Try this:-
It will Give you a Max for 3 consegutive day for each Year in column "A" by Date.
Results in column "C".
If Data does not start in "A1", change the "1" in "FirstYr = Year(Cells(1, "A").Value)" to whatever is the start Row number

Please Login or Register  to view this content.

Regards Mick

Thanks for the reply Mick. I didn't get very far with your suggested code, however. I got a run-time error and the code statement it didn't like was the following:

LastYr = Year(Cells(Range("A" & Rows.Count).End(x1Up).Row, "A").Value)

I'm a newbie, so I am not sure of the context for this kind of range referencing. My suspicion is that it does not like the " End(x1Up) " part, but I only know enough to be dangerous. Thanks for your help!

Chuck_p

Thanks Mick -- It worked after I corrected my own mistake in transcribing your code. I appreciate your prompt and very able assistance...

Chuck

Hi, If you've got it working you'll notice you have the Average/Max but no years.
This code should address that.
Column "C" should now show the year taken from column "A" (Dates) and Column "D" should show the Max/Average Result relating to that year.
If its not quite working Correctly , perhaps you could post you File (.xls).

Please Login or Register  to view this content.

Regards Mick

Thanks Mick, I did add the year. Thanks to your help, I just learned a whole bunch about macros/vba programming using cell range references!
..chuck_p