[VBA] Μεταφορά στοιχείων ListBox στο Φύλλο Εργασίας

[Flashgordon61]

Το αρχείο περιέχει 2 Φύλλα Εργασίας (Validation_Sheet & DataSheet)
Στο Φύλλο Εργασίας (Validation_Sheet) υπάρχουν περιοχές ονομάτων , ορισμένες με συνάρτηση (Πωλητής1 , Πωλητής2 κλπ…..)
Στο Φύλλο Εργασίας (DataSheet) υπάρχει εξαρτημένη επικύρωση στο κελί D2 ανάλογα με την τιμή στο κελί B2 ,για να γίνονται
κάποιες περαιτέρω εργασίες.
Σε ένα UserForm έχουμε 2 ListBoxes(ListBox1 & Listbox2) , 2 ComboΒoxes (ComboΒox1 & ComboΒox2) & 2 CommandButtons
(Μεταφορά στοιχείων στο Φύλλο & Επαναφορά Λιστών).
Οι ListBoxes παίρνουν στοιχεία ανάλογα με την επιλογή από τα ComboΒoxes.
Στο UserForm υπάρχουν επίσης και κάποια CommandButtons & ένα CheckBox για μεταφορά στοιχείων μεταξύ των Λιστών.
Το ζητούμενο είναι , κώδικας για τα 2 CommandButtons (Μεταφορά στοιχείων στο Φύλλο & Επαναφορά Λιστών) ούτως ώστε
το πρώτο να μεταφέρει τα στοιχεία των 2 ListBoxes ανάλογα με την επιλογή στα 2 ComboΒoxes (ComboΒox1 & ComboΒox2),
στο Φύλλο Εργασίας (Validation_Sheet) και να τα κάνει αύξουσα ταξινόμηση (Sort A-Z) και να μην αλλάζει τον ορισμό των
ονομάτων και το δεύτερο να επαναφέρει τις Λίστες στην αρχική μορφή , πριν την μεταφορά στοιχείων μεταξύ των.

Όποια βοήθεια , θα είναι πολύτιμη……..

Ευχαριστώ ….
Γιώργος

[Tasos]

Καλησπέρα!

Αγαπητέ Γιώργο, επισυνάπτω ένα παράδειγμα με λίγο διαφορετική προσέγγιση όπου οι αλλαγές
πελατών ανάμεσα στους πωλητές γίνεται σε φόρμα μεν αλλά με "Drag & Drop" (όχι με κουμπιά).

Οι νέοι πωλητές συμπληρώνονται στην γραμμή 2 του φύλλου "Data".

Ελπίζω να σε βοηθήσει να συνεχίσεις.

Με εκτίμηση

Τάσος

[Flashgordon61]

Τάσο , ευχαριστώ πολύ.........

Καλή συνέχεια.......

Γιώργος