[Excel07] Αυτόματη συμπλήρωση από πολλές λίστες σε μία.

[Spirosgr]

Καλησπέρα
Σταμάτη,
υπάρχει περίπτωση, να έχεις «ξεχάσει» το κουμπί "Dising Mode" (*βλέπε εικόνα)
«αναμμένο» κι έτσι δεν λειτουργεί το active x.

Αν δεν είναι έτσι...τότε:
Στο φύλλο, άνοιξε το συμβάν του διπλού κλικ και
βάλε τον κώδικα μέσα εκεί, αφού συμπληρώσεις και τα πιο κάτω...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'*εδώ τα dim
    If Intersect(Target, Sheet1.Range("d2")) Is Nothing Then Exit Sub
'*εδώ ο κώδικας
    Cancel = True
'*εδώ το μνμ από msgbox
End Sub

Διπλό κλικ στο D2 φύλλο Πρώτο, εξαπολύει το συμβάν...
**Μπορείς να επιλέξεις όποιο κελί θέλεις στην θέση του d2
Όπου Sheet1 το κωδικό όνομα του φύλλου...Για Ελληνικά Φύλλο1 ή όποιο άλλο φύλλο...