[ChrisGT7]

Καλησπέρα Αγγελική,

Μπορείς να δημιουργείς όσες λίστες χρειάζεσαι τη μία δίπλα στην άλλην, ακολουθώντας τα παρακάτω βήματα:

1) Στο φύλλο ΛΙΣΤΕΣ πρόσθεσε τόσες στήλες όσες και οι επιλογές σου και γράψε την κάθε υποεπιλογή τη μία κάτω από την άλλη χωρίς κενές γραμμές.
2) Φτιάξε τα εύρη κελιών με ονόματα που χρειάζεσαι, όπως η Epilogh, από τη Διαχείριση Ονομάτων στην καρτέλα Τύποι.
3) Στα νέα ονόματα αντέγραφε τη συνάρτηση =OFFSET(ΛΙΣΤΕΣ!$A$1;1;0;COUNTA(ΛΙΣΤΕΣ! $A:$A)-1;1) στο πεδίο Αναφορά σε αλλάζοντας μόνο το γράμμα στήλης.
4) Στο φύλλο δράσεων βάλε επικύρωση δεδομένων στις στήλες που θέλεις ο χρήστης να επιλέγει τις τιμές.
5) Στο παράθυρο της επικύρωσης τιμών, όταν επιλέξεις Λίστα για να γράψεις το εύρος στο πεδίο, πάτα F3 στο πεδίο για να επιλέξεις τα ονόματα που έφτιαξες παραπάνω.
6) Τέλος, στο κομμάτι του κώδικα ...Intersect(Target, Range("D:D"))... άλλαξε το εύρος D:D στις στήλες που θα περιέχουν την επικύρωση τιμών στο φύλλο δράσεων, π.χ.αν οι στήλες είναι οι D, M και Ν τότε γράψε: Intersect(Target, Range("D:D,M:N")) ή Intersect(Target, Range("D:D,M:M,N:N")).