[Γενικά] Αυτόματη Ταξινόμηση

[xristos]

Γιώργο σε έχω ζαλίσει το ξέρω
Αλλά δεν γνωρίζω πολλά από κώδικες
αλλά καλό είναι να μάθω γιατί θα ξανατύχει και θα πρέπει να γνωρίζω.
όταν λες

Αριστερά από τη formula bar,

που είναι η μπάρα
όπως θα δεις στο συνημμένο δεν βλέπω πουθενά την μπάρα
Επίσης αν μπορείς να μου το περιγράψεις βήμα-βήμα θα είναι
το καλύτερο.
Το ξέρω είναι βάσανο, αλλά δεν γνωρίζω πολλά όπως σου είπα.
Όσες φορές φίλοι του φόρουμ μου έχουν περιγράψει βήμα-βήμα
το έχω καταλάβει και το έχω εφαρμόσει και σε άλλα έγγραφα.
Σε υπέρ ευχαριστώ για τον χρόνο σου
και την βοήθειά σου

[GeorgeK]

Γεια σου Χρήστο,

Δε με έχεις ζαλίσει καθόλου. Λάθος μου και εμένα που στα είπα γρήγορα.

Στο word που έχεις συνημμένο φαίνεται το παράθυρο του κώδικα, το οποίο είναι μια χαρά. Αυτό θα πρέπει να υπάρχει σε κάθε φύλο, αν βέβαια θες να το χρησιμοποιήσεις σε κάθε φύλο.
Στην τέταρτη γραμμή υπάρχει το λεκτικό Range("range2"). Με αυτήν την πρόταση λες στο πρόγραμμα να κάνει κάτι με την περιοχή range2. Το κάτι στη δική σου περίπτωση είναι η ταξινόμηση.

Ονόματα στην excel μπορείς να ορίσεις και μέσω κώδικα, κάτι που δεν μας απασχολεί επί του παρόντος, αλλά και πολύ πιο εύκολα στο φύλο εργασίας σου.

Εννοούσα τη formula bar στο φύλο εργασίας σου. Αριστερά από εκεί που πληκτρολογείς τους τύπους. Στη φωτογραφία είναι κυκλωμένη και δείχνει Ε8. Εκεί πληκτρολογείς τα ονόματα.

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

Έτσι αντί να αναφέρεσαι σε μια περιοχή ως πχ: A1:F50 μπορείς να τη χρησιμοποιείς μέσω του ονόματος της. Όχι μόνο στον κώδικα αλλά και σε συναρτήσεις στο φύλο εργασίας. Αντί να λες πχ: SUM(A1:A3) μπορείς να γράφεις SUM(το όνομα της περιοχής που έχεις ορίσει)

Οπότε συνοψίζοντας, στο παράθυρο του κώδικα μπορείς σε κάθε φύλο να χρησιμοποιήσεις στην τέταρη γραμμή το όνομα που έχεις ορίσει για την περιοχή που θες να ταξινομήσεις. Βέβαια, για να μην παιδεύεσαι μπορείς, αντί για όνομα, να βάλεις κατευθείαν το εύρος που θα ταξινομηθεί χρησιμοποιώντας την κλασσική αναφορά περιοχών, δηλαδή range("A4:F39") που είναι η περιοχή ταξινόμησης που ενδιαφέρει εσένα.

Σε βοήθησα με τα παραπάνω;

[xristos]

Γιώργο όσο αφορά την καρτέλα
Τώρα θέλω να μου πεις και για το ευρετήριο
γιατί όταν λες

Για την ταξινόμηση στο φύλο Ευρετήριο βάλε την παρακάτω macro στο event Worksheet Activate.

τι πρέπει να κάνω
Αυτό και τέλος
Σε υπέρ ευχαριστώ

[Tasos]

Καλημέρα σε όλους!

Δείτε μια λίγο διαφορετική προσέγγιση με χρήση πίνακα (ListObject).

Στο επισυναπτόμενο παράδειγμα το φύλλο είναι προστατευμένο και επιτρέπει την εισαγωγή νέας
γραμμής μόνο από το κουμπί "Νέα εγγραφή".

Με το πάτημα του κουμπιού προστίθεται νέα γραμμή στην κορυφή του πίνακα και τα υπόλοιπα δεδομένα της στήλης B ταξινομούνται αλφαβητικά.

Με δεξί κλικ πάνω στα δεδομένα του πίνακα εμφανίζεται μενού που επιτρέπει τη διαγραφή της επιλεγμένης γραμμής του πίνακα.

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

Το φύλλο "Καταχώρηση" μπορεί να αντιγραφεί όσες φορές χρειαστεί στο ίδιο βιβλίο. Δεν χρειάζονται τροποποιήσεις στον κώδικα.

Καλή συνέχεια!

Τάσος

[xristos]

Φίλε Τάσο σε ευχαριστώ.
Αν και με βοήθησε πάρα πολύ ο Γιώργος και έλυσα το πρόβλημά μου
μου έδωσες νέες ιδέες για να το εφαρμόσω σε άλλα σχέδιά μου
και όπως πάντα είναι πάντα απλά και δυναμικά.
Νάσε καλά να μας βοηθάς

[xristos]

Φίλοι του φόρουμ Καλησπέρα.
Θα απευθυνθώ στον φίλο τον Γιώργο
που με βοήθησε στο σχετικό πρόβλημα.
Πήγα και έβαλα τον κώδικα σε ένα ίδιο
έγγραφο σε άλλον Η/Υ με office 2003
και μου έβγαλε το ίδιο πρόβλημα
όπως φαίνεται στο συνημμένο "Κώδικας" στην απάντηση #15#
Υπάρχει λύση;;;
Και μία άλλη ερώτηση.
Υπάρχει πρόβλημα αν κάποιος πάει και κάνει ταξινόμηση μέσω του excel;;;
ή πρέπει να κλειδώσουμε το φύλλο;;;
Σε ευχαριστώ για την βοήθειά σου και τον χρόνο σου

[GeorgeK]

Γεια σου Χρήστο

Το πρόβλημα οφείλεται στην ονομασία του φύλου όπως και την προηγούμενη φορά. Δοκίμασε με ένα άλλο όνομα φύλου.

Για το δεύτερο ερώτημα αν κάνει κάποιος ταξινόμηση διαφορετική. Θα τον "προλάβει" ο κώδικας. Η μόνη περίπτωση είναι μόλις ανοίγει το βιβλίο εργασίας στο φύλο ευρετήριο να ταξινομήσει κάπως αλλιώς τα δεδομένα από ότι ήδη είναι. πχ: σε φθίνουσα σειρά. Αλλά και πάλι με το που πάει σε άλλο φύλο για να καταχωρήσει εγγραφή και γυρίσει στο πρώτο φύλο θα γίνει η ταξινόμηση που εσύ ζήτησες.

Η λογική του κώδικα είναι: μόλις ενεργοποιηθεί το φύλο εργασίας Ευρετήριο κάνε μου ταξινόμηση.

Οπότε ότι και να έχει κάνει κάποιος στο πρώτο φύλο μόλις φύγει για να κάνει κάτι άλλο σε άλλο φύλο και επιστρέψει στο πρώτο αυτό θα έχει ταξινομηθεί όπως του έχουμε ορίσει. Αν θες βέβαια μπορείς να το κλειδώσεις ούτως ή άλλως για μεγαλύτερη ασφάλεια.

Γιώρος