[Συναρτήσεις] Χρήση της συνάρτησης VLOOKUP

[Payne83]

Δεν είμαι πάνω από εβδομάδα μέλος στο φόρουμ και δεν το γνώριζα αυτό με την συγχώνευση κελιών. Αν το ήξερα δεν θα τα συγχώνευα.

Αυτό που θέλω να κάνω στην ουσία τώρα ξεκινάω να το οργανώνω βήμα βήμα. Στα πρώτα αρχεία απλά ήταν κάποιες σκέψεις για αυτό και το τελευταίο αρχείο είναι διαφορετικό. Προσπαθώ να τα προσαρμόσω.

Ευχαριστώ για την βοήθειά σου.

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

Στον κώδικα που έχουμε μέχρι τώρα (κουμπί import) αν κάποια εγγραφή δεν υπάρχει τότε τα δεδομένα που εμφανίζονται είναι Ν/Α τα οποία δεν θέλω να τα αποθηκεύω. Αν πληκτρολογήσω μετά τα δεδομένα τα νέα σε κάθε κελί ξεχωριστά θα χάνετε η συνάρτηση Vlookup.

Σκέφτηκα ότι μάλλον θα χρειαστεί και μια επιλογή όπου θα μπορείς εισάγεις ένα νέο προϊόν εξ αρχής στην αποθήκη με όλα τα δεδομένα.

[kapetang]

Μετά την εισαγωγή του Κωδικού και της ποσότητας θα μπορούσε με ελάχιστη αλλαγή στον κώδικα (Προσθήκη 2 γραμμών) να πηγαίνουμε αυτόματα στο κατάλληλο φύλλο και τη γραμμή του φύλλου της αποθήκης, για να πληκτρολογήσουμε και τα υπόλοιπα στοιχεία.

If MsgBox("Δεν υπάρχει ο κωδικός. Να δημιουργηθεί νέα εγγραφή;", vbYesNo) = vbYes Then
                    j = sh.Range("a1").CurrentRegion.Rows.Count
                    sh.Range("a1").Offset(j, 0) = Range("rngCode1")
                    sh.Range("a1").Offset(j, 3) = Range("rngTest")
                    MsgBox ("Η Αποθήκη Ενημερώθηκε..."), vbInformation
                    sh.Activate
                    sh.Range("a1").Offset(j, 0).Activate
                End If

[Payne83]

Σε ευχαριστώ Γιώργο.

Μπορεί να γίνει να τοποθετεί και την νέα εγγραφή καθε φορά στην σωστή θέση (γραμμή) στην κάθε καρτέλα? πχ μια εγγραφή με κωδικό 10 να πάει πιο πάνω απο μια άλλη με κωδικό 12 (με αυτην την σειρά)

Ενα ακόμα σκέφτομαι να έχω ενα κουμπί delete (στην καρτέλα που κάνω αναζήτηση) ώστε να μπορώ να διαγράφω ενα προιόν εξ' ολοκλήρου.

Ευχαριστώ πολύ!

[kapetang]

Αντώνη, δες μια πρόταση στο συνημμένο.