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

[kostas17]

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

[Spirosgr]

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

[kostas17]

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

[Spirosgr]

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

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

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) είσαι έτοιμος

[kostas17]

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

[ΑΠΟΣΤΟΛΗΣΚ]

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

[Spirosgr]

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

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