[Excel07] Δυνατότητα πολλαπλής επιλογής

[aggelaki83]

Μέχρι το 4 είμαι οκ. Μετά δεν βρίσκω ατό το intersect...

[aggelaki83]

Ελπίζω να μην έχω κουράσει!

[ChrisGT7]

Καθόλου! :)

Κάνε δεξί κλικ πάνω στο όνομα του φύλλου Σύνολο δράσεων και επέλεξε Προβολή Κώδικα.

Αυτός είναι ο κώδικας που είναι υπεύθυνος για τη δημιουργία πολλαπλών επιλογών.

[aggelaki83]

Θα πεις το ίδιο, αν σου πω ότι το άνοιξα και δεν καταλαβαίνω τίποτα;;;; :)

[ChrisGT7]

Εντόπισε στον κώδικα αυτή τη γραμμή:
If Target.Count > 1 Or Target.Row = 1 Or Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub

και άλλαξε το D:D (όπως εξήγησα προηγουμένως) στις στήλες που ο χρήστης πρέπει να επιλέγει τις διάφορες τιμές.

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

[aggelaki83]

Χρήστο ναι, το ανεβάζω γιατί δεν μπορώ να προχωρήσω μόνη μου.

[ChrisGT7]

Αγγελική,

Ρίξε μια ματιά να δεις αν σε βολεύει.

Τα ορίσματά σου είναι book3, book4, book5 και έβαλα τη συνάρτηση OFFSET(), όπως ανέφερα πριν, έτσι ώστε όταν προσθέτεις επιπλέον υποεπιλογές στην αντίστοιχη στήλη επιλογών, οι αναδιπλούμενες λίστες να ενημερώνονται αυτόματα χωρίς κενά.

Πήρα την πρωτοβουλία να προσθέσω το book5 στη στήλη G.

Επίσης, η μορφή του αρχείου πρέπει να είναι xlsm και όχι xlsx, γιατί περιέχει μακροεντολές. Μόνο σε τέτοιου είδους αρχείο μπορεί να εκτελείται η συγκεκριμένη αναδιπλόυμενη λίστα.

[aggelaki83]

Χρήστο ναι! Σε ευχαριστώ πολύ! Λυπάμαι που δεν μπορώ να καταλάβω μόνο και προσεύχομαι να μη χρειαστεί επιπλέον στήλη με άλλες κατηγορίες!
Θα προσπαθήσω να το αποφύγω και θα κάτσω λίγο να μελετήσω όλα τα παραπάνω.
Σε ευχαριστώ πολύ για τον χρόνο σου, τη βοήθειά σου και την υπομονή σου! :)