ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] Ξεκαθάρισμα Βιβλίου εργασίας

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-09-16, 00:50
Όνομα: Σπύρος 23
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 19-05-2016
Μηνύματα: 57
Προεπιλογή Ξεκαθάρισμα Βιβλίου εργασίας

Έχω το παρακάτω αρχείο με πολλές εγγραφές
Θέλω το εξής:
Επειδή έχω διπλοεγγραφές με ίδιο ΑΦΜ, θέλω να ελέγχει το ΑΦΜ και από τις διπλοεγγραφές που έχουν ίδιο ΑΦΜ να κρατά αυτή που έχει συμπληρωμένη τη στήλη κωδικός και την άλλη να τη διαγράφει , αλλά ταυτόχρονα να κρατά και τις εγγραφές που τα ΑΦΜ είναι μοναδικά.
Ώστε, στο τέλος να έχουν μείνει τα ΑΦΜ που έχουν συμπληρωμένη τη στήλη κωδικός και όσα μοναδικά ΑΦΜ έχουν κενή την στήλη κωδικός
Ευχαριστώ εκ των προτέρων

Τελευταία επεξεργασία από το χρήστη Spirosgr : 19-09-16 στις 10:38.
Απάντηση με παράθεση
  #2  
Παλιά 19-09-16, 10:38
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.402
Προεπιλογή

Επειδή μπορεί να δημιουργηθούν προβλήματα, οι εικόνες με τα ΑΦΜ θα διαγραφούν
Το ίδιο και από το προηγούμενο post.
Ανέβασε αρχείο με fake παραδείγματα και πες μας τι θέλεις...
Απάντηση με παράθεση
  #3  
Παλιά 19-09-16, 11:13
Το avatar του χρήστη ChrisGT7
Super Moderator
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 768
Προεπιλογή

Μια γρήγορη λύση είναι η παρακάτω:

Έστω η Α στήλη είναι η στήλη των ΑΦΜ, τότε σε μια διπλανή στήλη και στη 2η σειρά της (η 1η γραμμή πιστεύω είναι η επικεφαλίδα), γράψε: =COUNTIF($A$1:A1;"="&A2)
Αν οι ΑΦΜ είναι σε διαφορετική στήλη από την Α, απλά αντικατέστησε το Α με το γράμμα της αντίστοιχης στήλης.

Μετά σύρε τη συνάρτηση μέχρι την τελευταία γραμμή των δεδομένων σου για να εμφανιστεί σε κάθε γραμμή πόσες φορές υπάρχει ο ΑΦΜ στις προηγούμενες γραμμές.
Τέλος, σ' αυτή τη στήλη βάλε αυτόματο φίλτρο για να φιλτράρεις όλες τις τιμές άνω του 0 και μετά απλά διαγράφεις αυτές τις γραμμές. Το 0 σημαίνει ότι ο συγκεκριμένος ΑΦΜ δεν υπάρχει δεύτερη φορά στις προηγούμενες γραμμές.
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #4  
Παλιά 19-09-16, 12:08
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλημέρα

Στο συνημμένο προτείνω μια λύση με κώδικα VBA.

Πατώντας το κουμπί εκτελείται κώδικας, οποίος αντιγράφει στην περιοχή που αρχίζει από το κελί G2 μόνο τις γραμμές της περιοχής δεδομένων (αρχίζει από το κελί A2), που ικανοποιούν τα παρακάτω κριτήρια:

1) Το ΑΦΜ είναι μοναδικό

2) Το ΑΦΜ δεν είναι μοναδικό αλλά είναι η 1η γραμμή με μη κενό τον αντίστοιχο κωδικό (αν ακολουθούν γραμμές με ίδιο ΑΦΜ και μη κενό τον κωδικό δεν αντιγράφονται).

3) Το ΑΦΜ δεν είναι μοναδικό, αλλά όλες οι γραμμές με ίδιο ΑΦΜ έχουν κενό τον κωδικό και αυτή είναι η 1η.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm CleanAFM.xlsm (26,9 KB, 14 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 19-09-16, 14:55
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλησπέρα

Στο προηγούμενο μήνυμά μου πρότεινα μια υλοποίηση του ζητούμενου με κώδικα VBA.

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

Στο συνημμένο αρχείο, υπάρχει και ο αρχικός και ο νέος κώδικας.

Συγκεκριμένα:

1) Στο φύλλο Sheet1 η υλοποίηση του ζητούμενου γίνεται με τον αρχικό κώδικα.

2) Ενώ στο φύλλο Sheet2 η υλοποίηση του ζητούμενου γίνεται με το νέο κώδικα.

Προτείνω τη χρήση της λύσης του Sheet2, ως ταχύτερης, πιο κατανοητής και συντομότερης.

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm CleanAFM2.xlsm (40,0 KB, 19 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 19-09-16, 23:07
Όνομα: Σπύρος 23
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 19-05-2016
Μηνύματα: 57
Προεπιλογή

Χίλια ευχαριστώ
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Αναφορά σε κελι ή ευρος κελιών κλειστού βιβλίου εργασίας Zounds Excel - Ερωτήσεις / Απαντήσεις 1 10-03-15 15:02
[VBA] Ελαχιστοποίηση Βιβλίου Εργασίας ΤΖΙΜΗΣ Excel - Ερωτήσεις / Απαντήσεις 2 03-06-13 13:49
Άνοιγμα Βιβλίου Εργασίας μέσω Access 2007 pctechdr Access - Ερωτήσεις / Απαντήσεις 5 12-12-12 12:11
[Excel - VBA] Προστασία και κοινή χρήση βιβλίου εργασίας... izezios Visual Basic for Applications (VBA) 3 31-05-12 10:46
Διαδρομή βιβλίου / όνομα φύλλου εργασίας σε κελί. Tasos Κείμενο 0 21-09-11 14:34


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