![]() |
Εξαγωγή κειμένου από κελί και μεταφορά του σε στήλη 1 Συνημμένο(α) Κύριοι καλημέρα σας, το ερώτημα που έχω είναι ότι σε ένα αρχείο έχω τα εξής δεδομένα: Στην στήλη Α έχω το ΑΦΜ και στην στήλη C έχω τους κωδικούς. Οι κωδικοί ανά ΑΦΜ και Αγροτεμάχιο έινα πολλοί και διαφορετικοί. Τα αποτελέσματα που ζητώ είναι : Σε μία στήλη (πχ Ε) που θα έχω τα μοναδικά ΑΦΜ να έχω σε στήλες (πχ F:AG) τους μοναδικούς κωδικούς σε κάθε στήλη. Δηλαδή αν για τον ΑΦΜ 0000, έχω έξη (6) κωδικούς σε πέντε (5) διαφορετικές γραμμές, θα ήθελα στην αντίστοιχη στήλη (F:AG) να εμφανιστεί ως αποτέλεσμα πχ ο αριθμός 1 ή "". Παραθέτω DEMO αρχείο. |
1 Συνημμένο(α) Καλησπέρα Τάσο, Δοκίμασε στο συνημμένο αρχείο μια πρόταση με κώδικα VBA. Πρέπει να ενεργοποιήσεις τις μακροεντολές για να λειτουργήσει. Στο φύλλο ΣΤΗΛΕΣ θα επικολλάς τις τρεις στήλες (ΑΦΜ, ΑΓΡΟΤΕΜΑΧΙΟ, ΚΩΔΙΚΟΙ) και πατώντας το κόκκινο βέλος, θα εμφανίζεται δίπλα η μορφή των αποτελεσμάτων που αναφέρεις. |
Ευχαριστώ για την άμεση απάντηση. Αυτό που, όπως αναφέρω και στο παράδειγμα, θα ήθελα οι στήλες να είναι διαχωρισμένες ανά τμήμα κειμένου. πχ έχω εντοπίσει ότι οι στήλες που πρέπει να υπάρχουν είναι οι εξής: ECO-03.01 ECO-03.02 ECO-03.03 ECO-04.01 ECO-04.02 ECO-04.03 ECO-05.02 ECO-06.01 ECO-06.10 ECO-06.11 ECO-06.17 ECO-06.18 ECO-06.21 ECO-08.01 ECO-09.01 ECO-09.08 ECO-09.27 ECO-04.04 ECO-06.12 ECO-06.19 ECO-06.22 ECO-07.02 ECO-09.03 ECO-09.06 ECO-09.07 ECO-09.13 ECO-09.23 ECO-09.26. Βλέπε το αρχικό DEMO. Ευχαριστώ |
1 Συνημμένο(α) Και είχα ξεκινήσει να το κάνω έτσι, αλλά στην πορεία άλλαξα λογική... Θεωρώ πως οι κωδικοί χωρίζονται με κόμμα, οπότε από την τρίτη στήλη κρατώ τους μοναδικούς ECO και τους βάζω ως επικεφαλίδες στην πρώτη γραμμή. Για έλεγξε τώρα αν λειτουργεί σωστά. |
ChrisGT7 ευχαριστώ πολύ πραγματικά δουλεύει. είναι τέλειο. ευχαριστώ ...... πες μου αν είναι δυνατόν, οι επικεφαλίδες μπορούν να είναι ταξινομημένες από την μικρότερη στην μεγαλύτερη ??? |
1 Συνημμένο(α) Καλησπέρα Τάσο, Για δοκίμασε τώρα αν είναι εντάξει το αρχείο. Μια άλλη πρόταση είναι ως επικεφαλίδα να έχεις σταθερά τους κωδικούς με τη δικιά σου σειρά και με το κουμπί να εμφανίζονται οι άσοι στη στήλη που υπάρχει ο κωδικός, όπως τους έχεις στο DEMO δηλαδή. Αν σε ενδιαφέρει κάτι τέτοιο, με ενημερώνεις. |
ChrisGT7 ευχαριστώ πολύ. Δουλέυει άψογα. Τώρα προσπαθώ να φτιάξω τον κώδικα στο δικό μου αρχείο, όμως δεν μπορώ μέχρις στιγμής να τα καταφέρω. Η στήλη A:A είναι B:B , η στήλη C:C είναι η D:D και θέλω τα αποτελέσματα να είναι στην στήλη K:K και μετά ή ακόμα καλύτερα σε νέο Φύλλο |
Καλημέρα Τάσο, Για σιγουριά, ανέβασε ένα δείγμα του αρχείου σου (με χρώματα, στήλες και τα σχετικά) έτσι ώστε να προσαρμόσω τον κώδικα και να σου δίνει την επιλογή για άντληση των στοιχείων είτε στη στήλη Κ είτε σε νέο φύλλο. |
1 Συνημμένο(α) ChrisGT7 Καλησπέρα, Σου στέλνω ένα DEMO, όπου στο πρώτο Φύλλο (ΑΝΑΦΟΡΑ), έχω τα δεδομένα όπως ακριβώς έρχονται, από αναφορά εκτύπωσης (είναι σε PDF και το μετέτρεψα σε EXCEL). Στο δεύτερο Φύλλο (ΑΠΟΤΕΛΕΣΜΑΤΑ), έχω φτιάξει την εικόνα των αποτελεσμάτων που ζητώ. ΠΡΟΣΟΧΗ: στην γραμμή 2 του Φύλλου ΑΠΟΤΕΛΕΣΜΑΤΑ, έχω γράψει πως ακριβώς ζητώ την εικόνα των αποτελεσμάτων. Από την στήλη D:AE της γραμμής 2 είναι αυτές ακριβώς οι στήλες των ECO_SCHEMES. Δηλαδή με αυτήν την σειρά ταξινόμησης.που έχω γράψει. Βέβαια σε μια μελλοντική αναφορά, μπορεί να έχουν προστεθεί νέες στήλες ECO_SCHEMES, αλλά αυτό δεν ξέρω πως αντιμετωπίζεται. Εντός του Φύλλου ΑΠΟΤΕΛΕΣΜΑΤΑ, έχω γράψει παρατηρήσεις. και πάλι σε ευχαριστώ πολύ. |
1 Συνημμένο(α) ΝΕΑ ΠΑΡΑΤΗΡΗΣΗ Αν στην στήλη D:D έχω τα Ha (έκταση καλλιέργειας) ή μία άλλη στήλη, στα ΑΠΟΤΕΛΕΣΜΑΤΑ, στις στήλες ECO , μπορώ να έχω την έκταση αντί του αριθμού 1; Βέβαια θα πρέπει να αθροίζονται οι εκτάσεις ανά ECO και ΑΦΜ. Στέλνω πάλι DEMO |
Στο αρχείο σου, π.χ. ο ΑΦΜ "4327" έχει τέσσερις φορές το λεκτικό "ECO-04.03, ECO-06.01, ECO-06.11". Εσύ θέλεις στις στήλες των ECO-04.03, ECO-06.01 και ECO-06.11 να εμφανιστεί το παραπάνω λεκτικό ή το πλήθος τους, δηλαδή 4; |
Χρήστο καλησπέρα, Σε ένα ΑΦΜ, πχ "4327",έχουμε 6 αγροτεμάχια. Όμως πχ τα αγροτεμάχια 1,3,5,6 έχουν τις δράσεις ECO-04.03, ECO-06.01. Δηλαδή ένα αγροτεμάχιο μπορεί να έχει 1, 3 ή 8 δράσεις. Με το Demo αρχείο, έχω ως αποτέλεσμα την αναφορά ότι έχει 1 ή και 8 δράσεις. Η ίδια έκταση λοιπόν, συμμετέχει σε κάθε δράση. Άρα θα πρέπει το σύνολο της έκτασης για κάθε δράση να εμφανιστεί σε κάθε στήλη που αντιστοιχεί στο ΑΦΜ |
1 Συνημμένο(α) Τάσο, Ελπίζω το συνημμένο να σε καλύπτει ως ένα σημείο. Πατώντας το κόκκινο κουμπί, στις στήλες υπολογίζεται το πλήθος κάθε ECO ανά ΑΦΜ, δηλαδή πόσες φορές εμφανίζεται στη στήλη SELECTED_ECOSCHEME_SUBSIDIES. Αν επιθυμείς να εμφανίζεται 1, όπως είχες αναφέρει στην αρχή, μέσα στο κώδικα σβήσε τις τέσσερις γραμμές πάνω από τα σχόλια (πράσινα γράμματα) και διέγραψε την απόστροφο στα σχόλια έτσι ώστε τα πράσινα γράμματα να γίνουν μαύρα για να εκτελούνται με τον υπόλοιπο κώδικα. Αν χρειαστεί να προσθέσεις νέες στήλες, θα τις προσθέτεις μονάχα ενδιάμεσα στα πράσινα κελιά (φύλλο ΑΠΟΤΕΛΕΣΜΑΤΑ, στήλες D:AE). Απλά μετά θα τους κάνεις οριζόντια ταξινόμηση ως εξής: 1. Επιλέγεις μόνο τα πράσινα κελιά. 2. Δεδομένα > Ταξινόμηση > Αν εμφανιστεί η Προειδοποίηση ταξινόμησης, τότε επιλέγεις: Συνέχεια με την τρέχουσα επιλογή. 3. Επιλογές > Ταξινόμηση από αριστερά προς δεξιά 4. Επιλέγεις την αναγραφόμενη γραμμή στο πεδίο Ταξινόμηση κατά και επιλέγεις ΟΚ. Αν χρειάζεσαι ο κώδικας να σου αντιγράφει τις INDEX() και MATCH() στις στήλες B:C, μπορεί να γίνει κι αυτό. |
Χρήστο καλησπέρα, Δουλεύει πολύ καλά το αρχείο και σε ευχαριστώ πολύ. Κάνω πάλι την προηγούμενη ερώτηση. Αν στο πρώτο φύλλο που είναι τα δεδομένα, έχω μια στήλη ακόμα, π.χ D:D ή E:E, η όποια έχει την έκταση του κάθε αγροτεμαχίου, θα μπορούμε να πάρουμε στα ΑΠΟΤΕΛΈΣΜΑΤΑ αντί για τον αριθμό 1 την έκταση των αγροτεμαχίων που συμμετέχουν στην κάθε δράση; |
Καλησπέρα Τάσο, Στο αρχείο που ανέβασα, έστω στο φύλλο ΑΝΑΦΟΡΑ και στη στήλη Ε υπάρχουν οι εκτάσεις των αγροτεμαχίων. Παράδειγμα: ο ΑΦΜ "3253" έχει 3 γραμμές με "ECO-03.01, ECO-06.01, ECO-06.11" με έστω έκταση 3 στρέμματακαι και άλλες 2 γραμμές με "ECO-03.01, ECO-06.01, ECO-06.10, ECO-06.11" με έστω έκταση 2 στρέμματα. Όταν ο κώδικας βρει την ECO-03.01, ποια έκταση πρέπει να φέρει στη στήλη του, 3 ή 2 στρέμματα; Ή μήπως ο κάθε κωδικός ECO έχει τη δικιά του έκταση και θα έρχεται με INDEX-MATCH; Αν θέλεις όμως, ανέβασε ένα παράδειγμα για να το κατανοήσω καλύτερα. |
Χρήστο καλησπέρα, Ένα αγροτεμάχιο μπορεί να έχει 1 ή και 8 δράσεις. Ένα ΑΦΜ μπορεί να έχει 1 ή 50 αγροτεμάχια. Το ζητούμενο είναι : Στην δράση πχ ECO-06.01 να έχω την συνολική έκταση της δράσης αυτής από όλα τα αγροτεμάχια για το κάθε ΑΦΜ. Στην προηγούμενη ανάρτηση, έχω ανεβάσει DEMO με την στήλη D:D να έχει εκτάσεις. |
Εννοείς το άθροισμα της στήλης C, FIELD_CODE; Αυτή είναι η έκταση της κάθε δράσης; |
Χρήστο, λέω το εξής : Μπορώ να βάλω στην στήλη E ή F, ή όποια άλλη θέλω την έκταση του κάθε αγροτεμαχίου. Οπότε θέλω από αυτή την στήλη να γίνεται η άθροιση. Ευχαριστώ πολύ |
Χρήστο, Η στήλη C, είναι ο Α/Α του κάθε αγροτεμαχίου |
1 Συνημμένο(α) Για έλεγξε το συνημμένο αρχείο αν σε καλύπτει. |
1 Συνημμένο(α) Χρήστο καλησπέρα, Όπως σου έχω πεί (πολλές φορές νομίζω) ευχαριστώ για την πολύ καλή λύση που μου έδωσες και ΝΑΙ πράγματι δουλεύει, Ομως πίστευα, ότι η συνέχεια θα ήταν απλή για μένα. Νόμιζα ότι με τις γνώσεις που έχω στο EXCEL (κυρίως με τις συναρτήσεις, γιατί από κώδικα 0 ) θα έλυνα το πρόβλημα μου. Έλεγα λοιπόν ότι σε συνδιασμό με την λύση που μου έδωσες τα πράγματα θα ήσαν απλά. Αλλά .... ???? Έτσι λοιπόν σου στέλνω ένα DEMO, όπου σου εξηγώ αναλύτικά το πρόβλημα. Δεν μπορώ να βάλω την σωστή έκταση στην στήλη Ε:Ε Παρακαλώ μια βοήθεια ακόμα. |
Καλησπέρα Τάσο, Χρειάζεσαι έναν μοναδικό κωδικό για κάθε αγροτεμάχιο ώστε να φέρεις την έκτασή του στη στήλη Ε. Ο συνδυασμός ΑΦΜ και Α/Α αγροτεμαχίου και η χρήση INDEX-MATCH πιστεύω θα σε βοηθήσει στο ζητούμενό σου. Στο κελί Ε4 γράψε τον παρακάτω τύπο: Κώδικας: =INDEX(Φύλλο1!$K$3:$K$1000;MATCH(B4&C4;Φύλλο1!$C$3:$C$1000&Φύλλο1!$B$3:$B$1000;0))Τέλος, τον σέρνεις και στα υπόλοιπα κελιά της Ε. Οι κόκκινοι αριθμοί είναι το εύρος του πελατολογίου σου, οπότε το διαμορφώνεις στο όριο που χρειάζεσαι. |
Χρήστο καλήμερα, Θ α ήθελα να σε ενημερώσω ότι όλα λειτουργούν άψογα και σε ευχαριστώ πολύ. Καλή συνέχεια. |
| Η ώρα είναι 08:16. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.