Καλημέρα
Πριν απ' όλα, να πούμε κάποια πράγματα,
για να είμαι σίγουρος ότι κατάλαβα το ζητούμενο.
Έστω, ότι ένα εμπορικό πρόγραμμα,
δίνει στο βιβλίο κάποια δεδομένα, στις στήλες D,E,F και ίσως και κάπου αλλού...
Θέλουμε, αφού συμπληρώσουμε στην Ε, τα κενά κελιά των ομάδων (τίτλοι ομάδων) από την F (διπλανό κελί)
να διαγράψουμε την F, και κατόπιν,
να ταξινομήσουμε την περιοχή "d10:e όπου πάει..."
με βάση τον α/α, ο οποίος έχει μια ιδιαίτερη μορφή.
Ο κώδικας ισχύει για το συγκεκριμένο layout και σενάριο.
Για να «τρέξει» στο βιβλίο, θα πρέπει να κάνουμε Save As .xlsm
Επειδή δεν διευκρινίζεται ακριβώς, τι είδους διαγραφή θα γίνει στην F,
υπάρχουν δύο γραμμές στον κώδικα.
Αυτή:
Κώδικας:
Sh1.Columns(8).EntireColumn.Delete Shift:=xlToLeft 'Κατάργηση στήλης
και Αυτή:
Κώδικας:
Sh1.Columns(8).ClearContents 'Διαγραφή μόνο των δεδομένων στήλης
Εδώ θα πρέπει να ενεργοποιήσετε-απενεργοποιήσετε
ανάλογα με το τι θέλετε...
Η ταξινόμηση, θα έχει την μορφή πχ:
2.0
2.1
2.2
2.3
2.4
2.5
2.6
2.7
2.8
2.9
2.10
2.11 και όχι τη μορφή:
2.0
2.1
2.10
2.11
2.2
2.3
2.4
2.5
2.6
2.7
2.8
2.9
Ο κώδικας «τρέχει» από το μπλε κουμπί στο φύλλο.
Υπάρχουν πολλές μέθοδοι για να γράψουμε τον κώδικα,
αλλά δεν γνωρίζουμε τίποτε άλλο σχετικά με τον τρόπο εισαγωγής
των δεδομένων, από το εξωτερικό πρόγραμμα.
Θεωρώ, ότι παρά την bypass μορφή του, θα δουλέψει...
Περισσότερα στο βιβλίο και για ό,τι άλλο μιλάμε...