Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Συναρτήσεις] αντιγραφή κελιών & ταξινόμηση Α/Α (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5358-antigrafi-kelion-taksinomisi.html)

mantarinia 08-10-19 13:27

αντιγραφή κελιών & ταξινόμηση Α/Α
 
1 Συνημμένο(α)
Καλησπέρα,

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

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

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

Ευχαριστώ.

Spirosgr 09-10-19 09:38

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

Έστω, ότι ένα εμπορικό πρόγραμμα,
δίνει στο βιβλίο κάποια δεδομένα, στις στήλες 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 09-10-19 10:53

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

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

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

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

Spirosgr 09-10-19 10:59

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


Η ώρα είναι 04:13.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2