VBA code to select Maximum record for each year and sort

I have wind data for many years (Data worksheet). The data includes the year, wind speed and direction.

I need a VBA code to scan the data and create the following:

• First: The maximum wind speed per year (example shows in "Annual Maxima worksheet", labeled as (1)
  
• Second: Same as above, but split the data by direction (example shows in "Annual Maxima worksheet", labeled as (2)
  
• Third: Sort the data above in Descending order (example shows in "Annual Maxima worksheet", labeled as (3)

I need the code to by dynamic identifies how many years and set the data properly regardless to how many years of data

I appreciate any help

@daboho
Thanks for your help... I see this attempt to help with No. one of my request... One little problem is that, although it works well with picking the maximum wind speed for each year, but the corresponding wind direction is not correct. I need to pick up the direction which is associated with the selected speed (in the same line)

Any idea on sorting the wind speed in descending order (per no. 3 of my question)... Thanks!

@Bernie Deitrick
Thanks for your help. I prefer the VBA so I do not have to copy the formulas If I have a larger dataset with more or less years for example

However, I was interested to explore the formulas as an option, while it works fine with my number 1 request, My second request is not working properly. The reason is the direction in the header is not just the posted angle, rather it is a range of angles, which I showed on the side table in orange... This means as an example" the angle of 120, should pick up all angles from 106 to 135 per the table in orange, and so on...

I appreciate if you can correct for this...

Thanks a lot!

See if this works.

Please Login or Register  to view this content.

Originally Posted by Bernie Deitrick

"the angle of 120, should pick up all angles from 106 to 135"

That is what the helper column of formulas do.

As far as maintaining the formulas, as long as you insert enough rows within your existing data set to allow the new data set to be added within or to over-write the old set, the formulas will expand and all will be good.

@Bernie Deitrick

Thanks a lot, working fine except for one minor thing:
For the direction 345, the helper column calculates it as 0, while it should be 330 ...
looks like a minor adjustment to the formula to consider this minor boundary is needed if possible... Thanks a lot

Attachment 869016

Thanks all for your help