[Tasos]

Αγαπητέ Δημήτρη,

Το καταλαβαίνω ότι δεν σου είναι εύκολο να διαβάσεις κώδικα VBA.

Διάβασε τουλάχιστον αυτά που σου γράφουμε στα μηνύματα.

Αυτό που ζητάς βρίσκεται εδώ: http://www.ms-office.gr/forum/8305-post8.html

Διάβασε σε παρακαλώ προσεκτικά το μήνυμα αυτό και πάρε το συνημμένο που κάνει ακριβώς αυτό που ζητάς μέσα από τα Dropdown.

Στον κώδικα του συνημμένου βρες τις γραμμές:

    ShFirst.Range("A2:O1002").Value = ShSecond.Range("A4:O1004").Value
    ShSecond.Range("A2:O1002").Value = ShLast.Range("A4:O1004").Value
    ShLast.Range("A2:O1002").Value = SheetAllData.Range("A4:O1004").Value

και διέγραψε τις αν δεν θέλεις να αντιγράφονται τα δεδομένα στα φύλλα First, Second, Last.

Φιλικά

Τάσος