[Spirosgr]

Γιώργο

Η διατύπωση:
«Στο συνημμένο αρχείο έκανα κάποιες αλλαγές για να δίνει σωστά αποτελέσματα (δεν ταξινομούσε σωστά την 1η γραμμή των δεδομένων τη θεωρούσε ετκέτα).»

«λέει» σε κάποιον, ότι ο κώδικάς μου, είναι λάθος και δίνει λάθος αποτελέσματα και
γράφεις τον σωστό και διορθωμένο εσύ.

Αν έκανες τον κόπο να διαβάσεις την Σημείωση:
----------------------------------------------------------------------
Σημείωση:

Τα σημεία
Range("B2:B100"), Range("A2:A100"), Range("A2:C100")
ενδεχομένως να χρειάζονται προσαρμογή στο έργο σας.

Καθώς και οι γραμμές:
If Target.Column <> 3 Then Exit Sub
If Target.Row < 2 Then Exit Sub
Αυτά εξαρτώνται από το ποιες περιοχές θα ταξινομήσετε
αν έχετε κεφαλίδες, γραμμές πάνω από την περιοχή ταξινόμησης και πόσες κλπ.
-----------------------------------------------------------------------------------------------------------------------------
δεν θα έπρεπε να απαντήσεις , με αυτήν την διατύπωση.

Οι αλλαγές σου δεν είναι τίποτε άλλο από το
Range("B2:B100") σε Range("B1")
Range("A2:A100") σε Range("A1") και
Range("A2:C100") σε Range("A1:C100")

που μνημονεύονται στην σημείωση.

Στην ουσία για το συγκεκριμένο έργο όπως το έχω θα αρκούσε το
.Header = xlNo αντί .Header = xlYes
για να μην ταλαιπωρείσαι περισσότερο.

Ακόμα το:
«Σημειώνω ότι ταξινόμηση γίνεται μόνο αν γίνουν αλλαγές στην 3η στήλη των δεδομένων.»

Το αναφέρω εδώ:
----------------------------------------------------------------------------------------------------------------------------
«Τα δεδομένα θα ταξινομηθούν πρώτα κατά Α.Μ.Κ.Α και μετά κατά Ονοματεπώνυμο,
αφού ολοκληρωθεί η καταχώρηση και στις τρεις στήλες (a, b, c)»