use only VBA - help

[Mark]

Hi,

My previous post is disappear...
It's request for a good programmers. How do I do in VBA?
Example below had probably solution in Turbo Pascal
I mean VBA manage too.

I have following table:

Owner Nr_flight Date Distance Pigeon Points
X 1 10-05-2003 100 X1 20,2
X 1 10-05-2003 100 X2 21,3
Y 1 10-05-2003 102 Y1 22,1
Y 1 10-05-2003 102 Y2 23,5
N 1 10-05-2003 105 N1 19,1
N 2 15-05-2003 120 N1 25,1
X 2 15-05-2003 121 X1 26,1
X 2 15-05-2003 121 X2 27,4
Y 2 15-05-2003 125 Y3 25,2
X 3 20-05-2003 130 X5 30,4
Y 4 25-05-2003 150 Y3 32,1

There are above is thousands records...
Range contents of columns:
-50 Owners,
-20 Nr_flights,
-Date (no matter),
-Distance in km (no matter),
-Each Owner has dozens pigeons,
-Points (no matter)


I'd like folowing automatic result:

W = sum best of points of 2 pingeons Owner (e.g. X) in
range beetwen 100
and 125 km.
N = sum best of points of 3 pingeons Owner (e.g. X)in
range beetwen 126
and 140 km.
count_optimum (for Owner) = W + N
Necessary condition:
Total distance counted pingeons must be minimum 650 km.

If fulfil necessary condition and count_optimum is
counted, i'd like do in VBA following array in another
sheet:
Owner perform condition (e.g. X)sum(count_optimum) = ...
item Nr_flight Date Distance Pingeon Points
1 (e.g. 1) 10-05-2003 100 (e.g. X1) 20,2
2...
3...
4...
5...
sum of total distance ...

(3 rows empty)

Owner perform condition (e.g. Y) sum of points = ...
item Nr_flight Date Distance Pingeon Points
1 (e.g. 1) 10-05-2003 102 (e.g Y1) 22,1
2...
3...
4...
5...
sum of total distance ...

etc....all case perform condition

How could I do this?
It will be appreciate if anyone can help me and give me
more details.

Best Regards
Mark

 

[keepitcool]

Try solver addin to find your optimum values.

When solver can do it..
then use macro recorder
then steamline the code.


keepITcool

< email : keepitcool chello nl (with @ and .) >
< homepage: http://members.chello.nl/keepitcool >

 

[Mark]

Hi,
As I mentioned erlier I'd like only code in VBA (without
SOlver)
I know it's hard to do
Regards
Mark

 

[Tom Ogilvy]

You post is still in the newgroup. If you can't find it, probably won't be
able to find an answer to this one either.

I previously provided a worksheet function solution for the part I could
understand.

 

[Mark]

Hi Tom!
Could You write more detail for total automatization my
example, please.
You previous answer contain only function.
In my Excel work only below function:

=large(if((D22000>=100)*(D22000<=125);F2:F2000);1))
+large(if((D22000>=100)*(D22000<=125);F2:F2000);2)))
+...

But, can you read my first post again, it's no solution of
my problem - i looking for max score for each Owner with
fulfilment necessary conditions.

Can you show my power of VBA?

Best regards

mark

 

[Tom Ogilvy]

solution I provided was based on what I understood from your question. I
have read it several times and it doesn't contain any question about max
score for each owner.

If you can post an understandable question, someone might be willing to
help.