[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 ή όποιο άλλο φύλλο...

[stam75]

Καλησπέρα Σπύρο σε ευχαριστώ πολύ για το ενδιαφέρον και την πρόταση σου. Το κουμπί το απενεργοποιω δεν είναι από αυτό. Δεν πολυκαταλαβα τι εννοεις στον κωδικα που προσθεσες. Επισης να σημείωσω ένα λάθος μου το οποίο δεν ξέρω αν παίζει ρόλο. Οι στήλες που θέλω να πηγαινουν τα δεδομένα είναι ή E για τους τίτλους και ή F για τα δεδομένα της κάθε στήλης. Συγχωρέστε με γιαυτο..

[kapetang]

Καλησπέρα

Σταμάτη, αφού αλλάζει η περιοχή στην οποία θα αντιγραφούν τα δεδομένα, θα πρέπει να αλλάξει και ο κώδικας.

Δες το συνημμένο.

Αφού αντιμετωπίζεις πρόβλημα στη μεταφορά του κώδικα, θα σου πρότεινα να αντιγράψεις τα δεδομένα σου στο φύλλο «Πρώτο» και κάτω από τις στήλες 1, 2, 3, …30 του συνημμένου.

Φιλικά/Γιώργος

[stam75]

Σε ευχαριστώ πολύ Γιώργο! θα το τεστάρω και θα ενημερώσω για την εξέλιξη. Να είσαι καλά και να με συγχωρείς για την ταλαιπωρία!