Forum - Συναρτήσεις Αυτόματη συμπλήρωση κελιών

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Συναρτήσεις] Αυτόματη συμπλήρωση κελιών (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/573-aytomati-symplirosi-kelion.html)

Αυτόματη συμπλήρωση κελιών

Παιδιά καλημέρα,
Θα ήθελα την βοήθειά σας σε κάτι,
Έστω ότι έχω «ορίσει περιοχές» με το όνομα «ΓΡΑΜΜΑΤΑ» και «ΑΡΙΘΜΟΙ» (Α2-Β3) στο φύλλο [ΓΡΑΜΜΑΤΑ-ΑΡΙΘΜΟΙ]
Αναρωτιέμαι,
Εάν θα μπορούσα στο φύλλο [ΛΙΣΤΑ] όταν επιλέγω από πτυσσόμενη λίστα στο (Α2) την τιμή «ΑΒΓ» τότε στο (Β2) να συμπληρωθούν αυτόματα οι αριθμοί (123), και αντίστοιχα όταν (Α2=ΔΕΖ) τότε ΑΥΤΟΜΑΤΑ το (Β2=123).
Σημ. τις τιμές ΑΡΙΘΜΟΙ στο κελί (Β2) θα μπορούσα να τους έχω και εκτός πτυσσόμενης λίστας (σε απλό κελί-στήλη).
Ευχαριστώ πολύ
Πάνος

Πάνο καλησπέρα!

Δες 2 διαφορετικές προσεγγίσεις στο συνημμένο παράδειγμα.

Η μία με χρήση VBA και η χρήση τύπων.

Για τη λύση με χρήση VBA πέρασε τον παρακάτω κώδικα στη λειτουργική μονάδα
του φύλλου "ΛΙΣΤΑ":

Κώδικας:

Option Explicit
 

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim icol%, c As Range

    If Target.Column > 2 Or Target.Count > 1 Then Exit Sub

    If Target.Validation.Value Then

        icol = IIf(Target.Column = 1, 1, -1)

        Set c = Tabelle1.Range(Cells(2, Target.Column).Address, _

                               Cells(1000, Target.Column).Address).Find(Target.Value).Offset(, icol)

        If Not c Is Nothing Then

            Application.EnableEvents = False

            Target.Offset(, icol) = c

            Application.EnableEvents = True

        End If

    End If

End Sub

Ό κώδικας αυτός προϋποθέτει οι στήλες με τα Dropdown να έχουν την ίδια διάταξη
όπως στο συνημμένο σου.
Το όνομα Tabelle1 είναι το κωδικό όνομα του φύλλου "ΓΡΑΜΜΑΤΑ-ΑΡΙΘΜΟΙ" έτσι όπως εμφανίζεται στον VBE (αναλόγως την γλώσσα του Office, το συναντάμε σαν Sheet1, Tabelle1, ή Φύλλο1 κτλ.)

Για τη λύση με χρήση τύπων θα χρειαστείς 4 στήλες (βλ.συνημμένο για περισσότερες λεπτομέρειες).
με τους τύπους (Excel 2007):

Για την πρώτη στήλη (A):

Κώδικας:

=IFERROR(INDEX(ΑΡΙΘΜΟΙ;MATCH(A2;ΓΡΑΜΜΑΤΑ;0));"Δεν υπάρχει")

Για τη δεύτερη στήλη (D):

Κώδικας:

=IFERROR(INDEX(ΓΡΑΜΜΑΤΑ;MATCH(D2;ΑΡΙΘΜΟΙ;0));"Δεν υπάρχει")

Φιλικά

Τάσος

Τάσο σε ευχαριστώ πάρα πολύ,
για άλλη μια φορά "καθάρισες".
Να σε παρακαλέσω όμως κάτι, είπες:"Για τη λύση με χρήση VBA πέρασε τον παρακάτω κώδικα στη λειτουργική μονάδα του φύλλου "ΛΙΣΤΑ". Εάν μπορείς να δώσεις περισσότερες πληροφορίες πάνω σε αυτό (πχ. που είναι η λειτουργική μονάδα;) καθώς δεν έχω ξαναασχοληθεί με VBA.

οκ Τάσο βλέπω το συνημμένο σου. νομίζω θα βγάλω άκρη. Σ' ευχαριστώ

Καλημέρα!

Με δεξί κλικ πάνω στην καρτέλα "ΛΙΣΤΑ" επιλέγεις "Προβολή κώδικα"

Συνημμένο Αρχείο 382

Στο παράθυρο που θα εμφανιστεί επικόλλησε τον κώδικα και αποθήκευσε το βιβλίο.

Συνημμένο Αρχείο 383

Τάσος

Σε ευχαριστώ πολύ Τάσο
καλή σου ημέρα