Εύρεση Διπλοεγγραφών σε συγχωνευμένα κελιά
 

καλημέρα στο Forum,

εύχομαι να είστε καλά.

Αντιμετωπίζω το εξής θέμα (επισυνάπτω σχετικό αρχείο TEST):
Θέλω να βρίσκω τις διπλοεγγραφές των ΑΦΜ στο αρχείο TEST. Τα αφμ τις B στήλης όμως μου έρχονται χωρίς το μηδενικό (0) μπροστά ((κάποια τουλάχιστον, δηλαδή είναι είτε 8 είτε 9 ψηφία) Επιπλέον είναι και συγχωνευμένα αναλόγως της υποκατηγορίας (στήλη F).
Τα αφμ στα οποία θα βασιστώ για να βρω τις διπλοεγγραφές έχουν όλα το μηδέν μπροστά (ουσιαστικά έχουν 9 ψηφία). Τα έχω επικολλήσει στην στήλη C από άλλο αρχείο από την 34 γραμμή και κάτω (την οποία στήλη την εισήγαγα εγώ, δεν υπήρχε στο αρχικό αρχείο). Στην στήλη C αντέγραψα την συνάρτηση (που βρήκα από το Forum) για να προσθέσω το μηδέν μπροστά από τα αφμ που λείπει (ώστε να συγκρίνω 9ψήφια αφμ). Επιπλέον, ενεργοποίησα και την εντολή για τις διπλοεγγραφές.
Το πρόβλημα είναι με την συγχώνευση των κελιών καθώς δεν μπορώ σέρνοντας τον κέρσορα στη στήλη C να επαναλάβω αυτόματα την συνάρτηση (αφού πρώτα συγχωνεύσω τα κελιά στη στήλη C) και αφετέρου όταν το κάνω αυτό χωρίς να συγχωνεύσω τα κελιά, το αποτελέσματα που μου δίνει είναι λάθος.

Θα εκτιμούσα αν με βοηθούσατε να βρω τις μοναδικές τιμές των αφμ στη στήλη Β (που είναι συγχωνευμένο και χωρίς το μηδέν μπροστά) με σχετικά γρήγορο τρόπο (καθώς οι εγγραφές στη στήλη B ξεπερνούν τις 700)

Ευχαριστώ εκ των προτέρων

Δημήτρης

Καλημέρα

Δημήτρη, δες στο συνημμένο, μια πρόταση με συγκεντρωτικό πίνακα.

καλησπέρα,

σ' ευχαριστώ (για άλλη μια φορά) για την απάντηση. Δυσκολεύτηκα να καταλάβω (αν κατάλαβα) πως λειτουργεί (λυπάμαι αλλά είμαι γεωπόνος). Παρόλα αυτά θα με βοηθούσε περισσότερο αν η στήλη Ι (Count of ΑΦΜ) μου έδινε πληροφορία για τον αριθμό των διπλοεγγραφών υπό τη προϋπόθεση ότι τα αφμ στη στήλη H (Row Labels) είναι όλα 9ψήφια. Γενικά τα αφμ των προσώπων είναι πάντα 9φήφια.
Δυστυχώς πρέπει να βρω τις διπλοεγγραφές των αφμ, τα οποία (αφμ) προέρχονται από 2 πηγές (αρχεία) και επικολλώ τα αφμ από το ένα αρχείο (αρχείο 1) στο άλλο (αρχείο 2). Στο ένα αρχείο (αρχείο 2) τα αφμ είναι είτε 9ψήφια (οπότε δεν έχω πρόβλημα) είτε 8ψήφια (λείπει το 0 από μπροστά, δυστυχώς αυτό γίνεται κατά τη μετατροπή του pdf σε excel), ενδεχομένως και 7ψήφια (σε μεγάλης ηλικίας άτομα λείπουν 2 μηδενικά από μπροστά). Αυτό προκύπτει κατά τη μετατροπή του αρχείου από pdf σε excel. Στο άλλο αρχείο (αρχείο 1) τα αφμ είναι πάντα 9ψήφια (υπάρχει πάντα το μηδέν μπροστά).
Αν κατάλαβα καλά στη λύση που μου έδωσες το αφμ 14947012 (8ψήφιο, άρα λείπει το 0 από μπροστά) στο δεύτερο αρχείο θα είναι ως 014947012 (9ψήφιο). Τα 2 παραπάνω αφμ αντιστοιχούν στον ίδιο άνθρωπο (επομένως ουσιαστικά είναι διπλοεγγραφή).
Πρακτικά θα ήθελα έναν γρήγορο τρόπο να βρίσκω ποια αφμ του επισυναπτόμενου αρχείου 2 (αρχείο με 9 ή 8ψήφια αφμ) υπάρχουν και στο αρχείο 1 (αρχείο με 9ψήφια αφμ). Στο αρχείο 1 ο ΑΘΑΝΑΣΙΟΥ ΘΕΟΦΑΝΗΣ έχει αφμ 073135648 ενώ στο αρχείο 2 ο ίδιος παραγωγός έχει αφμ 73135648.
Θα με βόλευε ακόμη και μία λύση η οποία θα μου επισήμανε με κάποιο τρόπο αφμ με κοινά τα τελευταία 7 (ακόμα και 4) ψηφία (είναι απειροελάχιστη η πιθανότητα διαφορετικοί άνθρωποι τους οποίους επεξεργάζομαι να έχουν κοινά τα 4 τελευταία ψηφία).

Ελπίζω να μην σε μπέρδεψα

Καλημέρα Δημήτρη,

Η πρότασή μου περιέχει κώδικα VBA και να λειτουργήσει η διαδικασία ελέγχου πρέπει να ενεργοποιηθούν οι μακροεντολές στο αρχείο.

1. Με το κουμπί ΟΡΘΟ ΑΡΧΕΙΟ επιλέγεις το αρχείο (π.χ. 1. αρχείο με 9ψήφια αφμ) με τους ΑΦΜ που έχουν 9 ψηφία. Θεωρώ ότι η μορφή του είναι πάντα ίδια με αυτή που ανέβασες, οπότε θα δεις όλους τους ΑΦΜ, τα επώνυμα και τα ονόματα στις στήλες D:F αντίστοιχα.

2. Με το κουμπί ΑΡΧΕΙΟ ΠΡΟΣ ΕΛΕΓΧΟ επιλέγεις το αρχείο (π.χ. 2. αρχείο με 9 ή 8ψήφια αφμ) με τους ΑΦΜ που έχουν λιγότερα από 9 ψηφία. Όμοια κι εδώ, αν η μορφή των αρχείων είναι ίδια με αυτή που ανέβασες, θα δεις όλους τους ΑΦΜ και τα ονοματεπώνυμα στις στήλες H:J αντίστοιχα. Στη στήλη J (Διπλοεγγραφές) ο αριθμός δηλώνει πόσες φορές εμφανίζεται ο ΑΦΜ της στήλης Η στη στήλη D. Επίσης, τα δεδομένα των στηλών H:J είναι ταξινομημένα ως προς φθίνουσα σειρά έτσι ώστε πρώτοι να είναι οι ΑΦΜ με τις περισσότερες εμφανίσεις.

Καλημέρα

Αν και είδα τη λύση που έδωσε ο Χρήστος με VBA, που αυτοματοποιεί τον έλεγχο, ανεβάζω και τη λύση χωρίς κώδικα, που είχα ετοιμάσει.

Ο βασικός λόγος είναι ο έλεγχος της περίπτωσης 4, δηλαδή ο έλεγχος μήπως το ίδιο ονοματεπώνυμο, εμφανίζεται με πάνω από 1 διαφορετικά ΑΦΜ.

1) Τα δεδομένα που βρίσκονται σε 2 βιβλία περιλαμβάνονται σε 2 φύλλα του συνημμένου και όλοι οι έλεγχοι γίνονται σ’ αυτό.

2) Όλη η «φασαρία» γίνεται από τον κακό σχεδιασμό των δεδομένων του φύλλου Table.

Φοβερός συνδυασμός: συγχωνευμένα κελιά και παρεμβολή στα δεδομένα επαναλαμβανόμενων τίτλων και στοιχείων της κοινότητας!

3) Στο φύλλο CheckAfmIn προσδιορίζονται τα ΑΦΜ του φύλλου Table που υπάρχουν στη στήλη Α (ΑΦΜ) του φύλλου αυτού (το ζητούμενο αν κατάλαβα καλά).

4) Στο φύλλο CheckAfmDouble παρουσιάζονται τα διαφορετικά ΑΦΜ που υπάρχουν στο φύλλο Table, για κάθε άτομο (Ονοματεπώνυμο).

Βρέθηκαν 2 ονοματεπώνυμα με 2 διαφορετικά ΑΦΜ, που δε νομίζω να είναι σωστό.

Παρατήρηση
Πιστεύω ότι ένας σωστός έλεγχος πρέπει να εξασφαλίζει ότι:

1) Στο σωστό αρχείο κάθε άτομο έχει 1 μόνο έγκυρο ΑΦΜ.

Σχετικές οδηγίες για την εγκυρότητα του ΑΦΜ υπάρχουν στο φόρουμ.

2) Στο υπό έλεγχο αρχείο κάθε άτομο έχει ένα μόνο έγκυρο ΑΦΜ.

3) Για τα ΑΦΜ του υπό έλεγχο αρχείου, που υπάρχουν στο σωστό, αντιστοιχούν στα ίδια άτομα.

4) Για τα ΑΦΜ που δεν υπάρχουν να προσαρτώνται τα σχετικά στοιχεία στο σωστό.

Σ' ευχαριστώ πολύ λειτουργεί άψογα. Το μόνο αρνητικό είναι ότι ενώ το αρχείο 1. αρχείο με 9ψήφια αφμ θα έχει πάντα αυτή τη μορφή, στο αρχείο 2 θα παραλλάσσει ελαφρώς, οπότε θα μπορώ να χρησιμοποιήσω τη λύση σου μόνο στη συγκεκριμένη περίπτωση (θα υπάρχουν τουλάχιστον άλλες 8-10 παραλλαγές του αρχείου 2.).
Πάντως είναι τέλειο.

καλησπέρα, ευχαριστώ για το χρόνο σας.
Σαν λύση φαίνεται πιο δύσκολη, αλλά μπορώ νομίζω ότι καταλαβαίνω τη λογική της, οπότε μπορώ να τη χρησιμοποιώ και στις περιπτώσεις που το αρχείο 2 αλλάζει κάπως μορφή.

Σχετικά με αυτό που γράφεις "Βρέθηκαν 2 ονοματεπώνυμα με 2 διαφορετικά ΑΦΜ, που δε νομίζω να είναι σωστό.", δεν υπάρχει κάποιο λάθος. Τα δύο πρόσωπα με τα 2 αφμ είναι διαφορετικά (τυχαίνει να είναι συγγενείς και έχουν το ίδιο ονοματεπώνυμο. Το όνομα πατρός διαφέρει). Σίγουρα πρόκειται για διαφορετικά πρόσωπα. Ο τρόπος με τον οποίο προκύπτουν τα αρχεία 1 και 2 εξασφαλίζει ότι διαφορετικά πρόσωπα θα έχουν διαφορετικά αφμ. Αυτό που δεν εξασφαλίζει (όπως ανέφερα στο προηγούμενο mail) είναι ότι το ίδιο πρόσωπο μπορεί να έχει δύο αφμ (ένα σωστό 9ψήφιο και ένα 8ψήφιο χωρίς το μηδέν μπροστά).
Το μόνο που δεν κατάλαβα είναι γιατί τον ΒΙΤΩΡΑΤΟ ΓΕΩΡΓΙΟ (014947012) δεν μου το έδωσε σαν διπλοεγγραφή. Θα προσπαθήσω να το καταλάβω άυριο.
Σ'ευχαριστώ πολύ

Δημήτρη,

Αν δεν σου είναι κόπος, ανέβασε αυτές τις 8-10 μορφές με την πρώτη ευκαιρία.

Μπορεί να υπάρχει ένας "κοινός παράγοντας" μεταξύ τους και ίσως καταφέρω να βρω έναν κώδικα ώστε να σε καλύπτει ακόμα περισσότερο.

Σχετικά με το ΑΦΜ του Βιτωράτου.

Ίσως να μη δημιούργησα σωστά το ΣΠ.

Ξαναδοκίμασα τη μέθοδο (σε άλλο υπολογιστή με office 16) και εμφανίζει το ΑΦΜ του.

καλημέρα,

η 2η μορφή που χρειάζομαι είναι τα επισυναπτόμενα αρχεία. Το αρχείο 1 είναι το ίδιο, ενώ το αρχείο 2 μη επιλέξιμα 16ος διαφέρει από το αντίστοιχο 2 του προηγούμενου παραδείγματος. Και στη περίπτωση αυτή θέλω να βρίσκω τα κοινά αφμ.
Τις υπολειπόμενες μορφές θα τις στέλνω ανά διαστήματα (δίμηνα, τρίμηνα ....) αναλόγως πως μου τις ζητάνε (δεν τις έχω αυτή τη στιγμή. Ξέρω όμως ότι θα ζητηθούν).

Σ' ευχαριστώ πολύ για το χρόνο και τη διάθεση.
Δημήτρης