[Συναρτήσεις] αντιγραφή κελιών & ταξινόμηση Α/Α

[mantarinia]

Καλησπέρα,

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

Επισυνάπτω σχετικό παράδειγμα.

Κάθε πρόταση και βοήθεια είναι ευπρόσδεκτη.

Ευχαριστώ.

[Spirosgr]

Καλημέρα
Πριν απ' όλα, να πούμε κάποια πράγματα,
για να είμαι σίγουρος ότι κατάλαβα το ζητούμενο.

Έστω, ότι ένα εμπορικό πρόγραμμα,
δίνει στο βιβλίο κάποια δεδομένα, στις στήλες 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 μορφή του, θα δουλέψει...
Περισσότερα στο βιβλίο και για ό,τι άλλο μιλάμε...

[mantarinia]

Σπύρο καλημέρα,

Άπαιχτος.
Δουλεύει μια χαρα.

Εγώ προσπαθούσα για την αντιγραφή με το Επιλογή Εμφανών Κελιών (Alt + ;)

Ευχαριστώ πολύ

[Spirosgr]

Καλή συνέχεια Αντώνη.