Macro help to calculate the median

[habercio]

Hi, im trying to create a macro that enables me to calculate the median of any sequence of numbers provided by the user when the sum of these numbers is> 1000 or the average if this condition is not met. This is one of my first contacts with VB, so I got stuck almost at the beginning, I will be grateful for each tip.

 

[offthelip]

What about using excel MEDIAN function
you can do it with an equation:
=IF(SUM(E3:E34)>1000,MEDIAN(E3:E34), AVERAGE(E3:E34))

first tip for VBA don't use it unless you have to

 

[habercio]

You're right that it would be much easier but in this case I'm actually forced to do this via VBA, because it's a a part of my task from excel classes.

 

[offthelip]

I suggest that your first comment in class is my first tip!!
So your requirement is that you must use VBA, so does your requirement prohibit you from using EXCEL functions? OR is this not specified??

 

[habercio]

It was not specified whether it's forbidden to use Excel functions or not so I recorded the macro without using VBA, using the formula you wrote. Everything looks like it worked out, I hope it will work for my professor as well. Sometimes the simplest solutions are the best. Thank you very much for your help, all the best.