[VBA] Απόκλιση και συγχρόνως Ταξινόμηση

[LEO]

Καλημέρα σε όλο το Forum

Θα ήθελα την βοήθεια, σχετικά με το αρχείο που ανεβάζω.
Έχω 2 φύλλα (Υ & PY) με δεδομένα και θα ήθελα στο τρίτο φύλλο (Dif) να μπορέσω να βγάλω την διαφορά στο πεδίο Weight (Υ - PY) για τις πρώτες 10χώρες ταξινομημένες βάση της θετικής διαφοράς και αντίστοιχα τις 10χειροτερες αποδόσεις ανά Χώρα.

Ευχαριστώ εκ των προτέρων για το χρόνο σας.

[kapetang]

Καλησπέρα

Για την εύρεση του ζητούμενου απαιτούνται οι διαφορές των βαρών P-PY.

Με άλλα λόγια για κάθε εγγραφή του φύλλου Υ θα πρέπει να βρούμε την αντίστοιχη εγγραφή του φύλλο ΡΥ και ακολούθως να βρούμε τη διαφορά των Weight (Y-PY).

Επειδή δε δίνεις στοιχεία για την αντιστοιχία των εγγραφών, έκανα κάποια υπόθεση, που ελπίζω να σε καλύπτει.

Με την παραδοχή που έκανα, μία εγγραφή του φύλλου Υ, δεν έχει αντίστοιχη στο φύλλο PY, με αποτέλεσμα η διαφορά βαρών να υπολογίζεται λάθος.

Περισσότερα στο συνημμένο.

[LEO]

Γιώργο , καταρχάς σε ευχαριστώ πολύ για τον χρόνο σου.

Το ερώτημα είνα να μπορέσω να βγάλω τις διαφορές των βαρών Υ-PY συνολικά ανά Χώρα (StPC) και να τις ταξινομήσω βάση της μεγαλύτερης διαφοράς .

Στο DIF βλέπω ότι εμφανίζει τις αποκλίσεις ανά κωδικό(StP) καθώς επίσης και διπλές τιμές όπως κάτωθι :

a/a StPC Dif (Weight )
1 30930 #Δ/Υ
2 30707 60 *
3 30707 60 *

Επίσης υπάρχει μεγάλη πιθανότητα για κάθε εγγραφή του φύλλου Υ να μην βρούμε την αντίστοιχη εγγραφή του φύλλο ΡΥ και αντίστροφα.

Στο φύλλο dif υπάρχει ένα παράδειγμα με τυχαία δεδομένα ..

[kapetang]

Καλησπέρα

Σωτήρη, δες στο συνημμένο, μια λύση με κώδικα.

Ελπίζω να σε καλύπτει.

[LEO]

Γιώργο καλησπέρα και σε ευχαριστώ πολύ,

Το ζητούμενο όντως είναι αυτό που εμφανίζει στο Dif .Oταν όμως πήγα να το προσαρμόσω στα δικά μου δεδομένα δεν γέμιζε το Bottom10 . Προφανώς κάτι δεν κάνω σωστά.
Επίσης θα ήθελα αν είναι δυνατόν όταν κάνει τον υπολογισμό και την Ταξινόμηση να υπάρχει κάπου η δυνατότητα να επιλέγω τις για ποιές ομάδες θέλω να προβει σε υπολογίμό (στήλη item) ήτε όλες ήτε κάποιες από αυτές.

[kapetang]

Καλησπέρα

Σωτήρη, δοκίμασε το συνημμένο.

Δεν έκανες κάτι λάθος. Εγώ ξέχασα τη γραμμή κώδικα: R = i

[LEO]

Γιώργο καλημέρα,

Σε ευχαριστώ πολύ για άλλη μια φορά. Λειτουργεί τέλεια !!

[kapetang]

Καλή συνέχεια Σωτήρη. Να είσαι καλά.

[LEO]

Γιώργο καλησπέρα και πάλι ,

Επειδή θέλω να κάνω μια τροποποίηση στο αρχείο και δεν γνωρίζω καθόλου από τον κώδικα θα ήθελα στην στήλη που προσθέτει τα ποσά καθώς και στην στήλη που είναι τα κριτήρια (items) να μπορώ να τα αλλάζω πχ αντί να προσθέτει την στήλη N στο συνημμένο να προσθέτει τα δεδομένα που υπάρχουν στην στήλη Q και να λαμβάνει ως κριτήρια(items) αντί την στήλη Α την στήλη C.
Σε ευχαριστώ και πάλι

[kapetang]

Καλησπέρα

Σωτήρη, κάποιες ρυθμίσεις τις αφαίρεσα από τον κώδικα και τις έβαλα σε μία συγκεκριμένη θέση του φύλλου Diff.

Αφού τις συμπληρώσεις, σύμφωνα με τη διαμόρφωση των φύλλων Y και PY, κάνε δοκιμές πατώντας το κουμπί.