[VBA] Διαγραφή δεδομένων με βάση λίστα.

[anestaki]

Καλησπέρα σε όλους
Θα ήθελα και πάλι την βοήθεια σας.
Από την αρχική και με το κουμπί (Διαγραφή δεδομένων) θέλω να διαγράψω: από το Αρχείο και με βάση την λίστα Monthlist6 όλες τις γραμμές από το Χρεώσεις με βάση την λίστα lista όλες της γραμμές και από το Κατανομή με βάση την λίστα monthlist όλες της γραμμές .
Στο Κατανομή επίσης αντιγραφή το (t2)και επικόλληση σε όλη την στήλη και το ίδιο για την (u2),και διαγραφή του κουμπιού από την αρχική.

[Spirosgr]

Καλησπέρα
Φίλε Γιώργο το ζητούμενο βγαίνει με έναν σχετικά εύκολο κώδικα
ΑΛΛΑ δεν κατάλαβα το τελευταίο κομμάτι από το ζητούμενο
Όταν τελειώσεις με διαγραφές και αντιγραφές το κουμπί το καταργείς από το φύλλο;
Δεν το θέλεις άλλο; ή κάτι δεν κατάλαβα καλά ...

[anestaki]

Καλησπέρα Σπύρο
Ναι να καταργηθεί δηλαδή μιας χρίσης.

[Spirosgr]

Φίλε μου δεν αξίζει τον κόπο να κάνουμε όλη την διαδικασία με κώδικες για μια φορά
καν' το με το "χέρι"

[anestaki]

Φιλέ Σπύρο το συγκεκριμένο excel το χρησιμοποιούν και άλλη από το λινκ Πρόγραμμα καταμονής κοινοχρήστων και όταν χρειάζεται να διαγράψουν γραμμές και να επικολλήσουν κελία είναι αρκετά δύσκολο να τους το εξηγείς κάθε φορά

[Spirosgr]

Γιώργο τεχνικά δεν μπορούμε να βασιστούμε στο "όνομα" της κάθε λίστας απ' αυτές που αναφέρεις γιατί δεν είναι δυναμικές
Αν αλλάξει το μήκος τους δεν θα γίνει σωστή δουλειά
Λόγω προχωρημένης ώρας άσε να το δω το πρωί...

[anestaki]

Σπύρο σε ευχαριστώ εκ’ των προτέρων

[Spirosgr]

Καλημέρα
Στο φύλλο που ακολουθεί υπάρχει παραδειγματικά το πιο πάνω ζητούμενο.
Μπορεί να το προσαρμόσει ο καθ' ένας στις ανάγκες του.
Οι πληροφορίες και ο κώδικας είναι πολύ αναλυτικά γραμμένα και δεν νομίζω να υπάρξει δυσκολία.
Καλή συνέχεια!

[anestaki]

Kαλησπέρα Σπύρο
Σε ευχαριστώ όλες οι εντολές διαγραφής δουλεύουν μια χαρά έκτος από το αντιγραφή και επικόλληση. Παρουσιάζει το σφαλά =IF(#ΑΝΑΦ!="";T3;#ΑΝΑΦ!) και =IF(AND(#ΑΝΑΦ!="";#ΑΝΑΦ!="");"End of List";T3&" "&#ΑΝΑΦ!) όταν είναι τύπος
όταν είναι κείμενο επικολλά απλός το κείμενο IF(B3="";T3;B3) και IF(AND(B3="";E3="");"End of List";T3&" "&B3)

[Spirosgr]

Γιώργο αφού υπάρχει τύπος αφαίρεσε το κομμάτι αντιγραφής επικόλλησης
και στην θέση του βάλε αυτό (προσαρμοσμένο φυσικά)

Range("Sheet2! L3:M25").Formula = Range("Sheet2! L2:M2").Formula