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

[BizosDim]

Αρχική Δημοσίευση από ChrisGT7

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

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

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

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

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