[Γενικά] ΚΑΤΑΧΩΡΗΣΗ ΚΕΙΜΕΝΟΥ

[ΗΛΙΑΣ]

Καλησπέρα.
Θα ήθελα να ρωτήσω το εξής:
Αν υπάρχει η δυνατότητα καταχώρησης κειμένου (πχ ονόματος) σε ένα κελί και κατόπιν το όνομα αυτό να καταχωρείται αυτόματα σε ΛΙΣΤΑ ΟΝΟΜΑΤΩΝ (ταξινομιμένο) με άλλα ονόματα στο ίδιο φύλλο.
Κατά προτίμηση χωρίς VBA.
Στο συνημμένο έγγραφο εμφαίνεται καλύτερα η όλη διαδικασία.
ΕΥΧΑΡΙΣΤΩ.

[gr8styl]

Καλώς όρισες φίλε Ηλία στην παρέα

Το πιο απλό είναι να κάνεις επικόλληση του παρακάτω κώδικα στον κώδικα του Φύλλο1 (δεξί κλικ στο όνομα του φύλλου)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1) = Range("$A$2")
End If
End Sub

Σαν δεύτερη εναλλακτική χωρίς VBA υπάρχει και η προσέγγιση της Φόρμας Δεδομένων (Menu Data Form)

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

Γενικά να ξέρεις ότι για λύσεις με χρήση τύπων και όχι VBA τα κελιά που καταχωρούμε τα δεδομένα (Α2 στο παράδειγμά σου) δεν πρέπει να χάνουν τα περιεχόμενα τους.

Θανάσης.

[Spirosgr]

Καλημέρα κι από 'μένα
Θανάση επειδή θα με ενδιέφερε κι εμένα κάποιο τέτοιο είδος κώδικα
τον χρησιμοποίησα και είδα ότι ναι μεν ταξινομεί τα ονόματα στο τέλος της λίστας
αλλά όχι αλφαβητικά.
Είναι δυνατόν να γίνει κάτι τέτοιο;
Και αν ναι παράκληση να μου επισημάνεις τι πρέπει να αλλαχτεί αν αλλάξει το κελί καταχώρησης ή η λίστα προορισμού γιατί από κώδικες δεν πάω καλά.
Να πω ακόμα ότι το office 2010 που έχω είναι χ64 γιατί έχω διαβάσει ότι κάποιοι κώδικες ίσως να μην λειτουργούν αν είναι φτιαγμένοι σε χ32.
Ευχαριστώ

[gr8styl]

Ξέχασα ότι θέλαμε ταξινόμηση.

Διορθωμένος κώδικας που κάνει ταξινόμηση αλλά και καθαρίζει το κελί καταχώρισης μετά την αντιγραφή στην λίστα

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Application.EnableEvents = False
    Range("a" & Cells(Rows.Count, "a").End(xlUp).Row + 1) = Target
    Range("a3:a" & Cells(Rows.Count, "a").End(xlUp).Row).Sort _
        Key1:=Range("a3"), Order1:=xlAscending, Header:=xlYes
    Target.ClearContents
    Application.EnableEvents = True
End If
End Sub

Ο κώδικας υποθέτει κελί καταχώρισης το Α2 και Λίστα από το Α3 και κάτω.
Αν θέλουμε κελί καταχώρισης το C3 και Λίστα από το F2 και κάτω αλλάζουμε
το "$A$2" σε "$C$3"
τα 3 "a" σε "f"
το "a3:a" σε "f2:f"
και το "a3" σε "f2"

Ελπίζω να επανόρθωσα

[Spirosgr]

Ο κώδικας δουλεύει από την 2η καταχώρηση και μετά
ΠΧ εισάγουμε την λέξη "εεδ" και μπαίνει στο Α3
εισάγουμε την λέξη "εεβ" και μπαίνει στο Α4
εισάγουμε την λέξη "εεα" και μπαίνει στο Α4 ενώ η "εεβ" μπαίνει στο Α5 κανονικά
δεν μετακινείται όμως και δεν ταξινομείται η αρχική καταχώρηση "εεδ" παραμένει στο Α3

[gr8styl]

Αρχική Δημοσίευση από spirosgr

Ο κώδικας δουλεύει από την 2η καταχώρηση και μετά
ΠΧ εισάγουμε την λέξη "εεδ" και μπαίνει στο Α3
εισάγουμε την λέξη "εεβ" και μπαίνει στο Α4
εισάγουμε την λέξη "εεα" και μπαίνει στο Α4 ενώ η "εεβ" μπαίνει στο Α5 κανονικά
δεν μετακινείται όμως και δεν ταξινομείται η αρχική καταχώρηση "εεδ" παραμένει στο Α3

Σπύρο,
Αυτό συμβαίνει γιατί το πρώτο κελί της Λίστας δεν συμετέχει στην ταξινόμηση.
Το θεωρώ (Header:=xlYes) ότι ειναι επικεφαλίδα, όπως στο αρχικό παράδειγμα του Ηλία.
Άρα ή αλλάζεις το Header:=xlYes σε Header:=xlΝο ή γράφεις μια επικεφαλίδα για την λίστα σου.

Θανάσης

[Spirosgr]

Ευχαριστώ πολύ
Πολύτιμη η βοήθεια σου!

[ΗΛΙΑΣ]

ΕΥΧΑΡΙΣΤΩ ΠΟΛΥ ΓΙΑ ΤΗΝ ΠΟΛΥΤΙΜΗ ΒΟΗΘΕΙΑ.