[Συναρτήσεις] Εύρεση Διπλοεγγραφών σε συγχωνευμένα κελιά

[kapetang]

Καλημέρα

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

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

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

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

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

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

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

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

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

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

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

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

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

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