[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