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/3649-sysxetisi-enos-kodikoi-me-perigrafi.html)

Συσχέτιση ενός κωδικού με περιγραφή

καλησπέρα θα ήθελα να ρωτήσω εάν υπάρχει κανένας τρόπος σε ένα φύλλο excel
να συμπληρώνω τον κωδικό σε ένα κελί και αφού υπάρχει παραπάνω να μου συμπληρώνει σε ένα διπλανό κελί την περιγραφή και σε ένα άλλο τον προμηθευτή , ευχαριστώ

Κώστα ναι υπάρχει δυνατότητα
ανέβασε παράδειγμα

καλησπέρα,
πχ. έχω ένα excel συμπληρώνω συνέχεια κωδικούς και πολλές φορές τους ίδιους
θα ήθελα εάν γίνεται όταν θα συμπληρώσω ένα κωδικό που υπάρχει μέσα στο αρχείο
να μου συμπληρώνει αυτόματα την περιγραφή και τον προμηθευτή
ευχαριστώ.

Καλησπέρα
Μια πρόταση είναι η εξής:

Για να μην έχουμε (ενδεχόμενα) πρόβλημα, κυκλικών αναφορών,
αν ασχοληθούμε με συναρτήσεις, τότε:

1) κάνε το βιβλίο .xlsm
2) δεξί κλικ στην tab του φύλλου και στο μενού επέλεξε κώδικα
3) άλλαξε το κωδικό όνομα του φύλλου σε Sh1
4) αντέγραψε τον κώδικα

Κώδικας:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim exists As Long
 

    If Target.Column <> 1 Then Exit Sub

    If Target.Row < 2 Then Exit Sub

    If Target.Rows.Count > 1 Then Exit Sub

    If Target.Columns.Count > 1 Then Exit Sub
 
 

    With Target

        On Error GoTo err:

        exists = WorksheetFunction.Match(.Value, Range("a2:a100"), 0) + 1

        If exists = .Row Then

            MsgBox "Δεν βρέθηκε εγγραφή ID"

            Sh1.Cells(.Row, 2).Activate

            Exit Sub

        Else

            Sh1.Cells(.Row, .Column + 1).Value = Sh1.Cells(exists, 2).Value

            Sh1.Cells(.Row, .Column + 2).Value = Sh1.Cells(exists, 3).Value

            Sh1.Cells(.Row + 1, 1).Activate

        End If

    End With

err:

End Sub

5) τροποποίησε την γραμμή Range("a2:a100") αν χρειάζεται.
6) είσαι έτοιμος

καλημέρα σε ευχαριστώ πολύ για την βοήθειά σου. καταπληκτικό!!!! επειδή η γυναίκα μου το βρήκε πολύ ενδιαφέρον, υπάρχει κάτι που μπορεί να διαβάσει σχετικά με τους κώδικες του excel.

Αγαπητό Forum
Ψάχνοντας για απάντηση στο δικό μου ζήτημα είδα το θέμα του Κώστα που ταιριάζει αρκετά με το
δικό μου θέμα.
Αυτό που προσπαθώ να φτιάξω είναι:
Μια βάση δεδομένων σε ένα φύλλο εργασίας, που υπάρχουν δυο στήλες.Η πρώτη στήλη περιλαμβάνει τον κωδικό της ιατρικής εξέτασης κ η δεύτερη την περιγραφή της ιατρικής εξέτασης.
Σε ένα διαφορετικό φύλλο στο ίδιο βιβλίο εργασίας να μπορώ πληκτρολογώντας σε ένα κελί τον κωδικό ή μέρος από την περιγραφή της εξέτασης να μου αποδίδει την περιγραφή της εξέτασης που θέλω να αντλήσω από τη βάση δεδομένων.
Όμως επειδή οι γνώσεις μου σε κώδικα VBA είναι μηδαμινές θα προτιμούσα αν ήταν εφικτό μια ιδέα που περιλαμβάνει συναρτήσεις. Το παράδειγμα του Κώστα νομίζω ότι αποτελεί ένα καλό παράδειγμα & στην περίπτωση μου.
Σας ευχαριστώ πραγματικά. Πάντα στέκεστε με σεβασμό στα προβλήματα δίνεται λύσεις μέσα από το forum.Πραγματικά χωρίς τη βοήθειά σας πολλές εργασίες μου θα ήταν πολύ δυσκολότερες χρονοβόρες και επισφαλείς.

Καλησπέρα
Στο Book1, υπάρχουν 2 τρόποι, που αποτελούν και την βασική ιδέα, του πως χειριζόμαστε μια αναζήτηση.

Σε αυτό το θέμα:
http://www.ms-office.gr/forum/excel-...anazitisi.html
στο #3 post, δύο πιο εξελιγμένοι τρόποι αναζήτησης, με τύπους σε περιοχή και κώδικα σε πίνακα.
Θα χρειαστεί, προσαρμογή στο έργο σας.