[Excel07] Πεδίο αυτόματης αρίθμησης των αποθηκεύσεων σε ένα αρχείο xltx

[Σταυρούλα]

Σε ένα αρχείο του excel που είναι παραστατικό παραγγελίας για παράδειγμα επιθυμώ σε ένα κελί αυτού του πίνακα να αλλάζει ένας αύξον αριθμός κάθε φορά που κάνω αποθήκευση.
Μπορεί να με βοηθήσει κάποιος αν και πως μπορεί να γίνει αυτό;
Επισυνάπτω και ένα παράδειγμα για να γίνω ποιο κατανοητή.

Ευχαριστώ

[Spirosgr]

Καλημέρα και καλώς ήλθες στην παρέα.
Ανέβασε ένα αρχείο.

[Σταυρούλα]

Ευχαριστώ Σπύρο για το καλωσόρισμα σου!
Ανέβασα φωτογραφία γιατί αν και είναι μικρή η εργασία μου σε byte ξεπερνά τα όρια των 512 για να το ανεβάσω σε μορφή excel. Έχεις να μου προτείνεις κάποιο τρόπο εσύ να με βοηθήσεις να το ανεβάσω;;

[Spirosgr]

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

[Σταυρούλα]

Μετά από προσπάθειες κατάφερα το αρχείο που ανεβάζω

[Spirosgr]

Αποθηκεύουμε το βιβλίο ως .xlsm
Στο νέο βιβλίο και στο συμβάν BeforeSave, βάζουμε τον κώδικα:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Sh1.Range("d1").Value = Sh1.Range("d1").Value + 1
End Sub

Στο φύλλο, στο οποίο αναφέρεται ο κώδικας, αλλάζουμε το κωδικό όνομά του σε Sh1.

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

[Σταυρούλα]

Ευχαρστώ για την τόσο άμεση βοήθεια.
Μήπως σου είναι εύκολο να με βοηθήσεις με το συμβαν BeforeSave με περισσότερες λεπτομέρειες;

[Spirosgr]

Μπορείς να διαβάσεις την βοήθεια της Microsoft.
Δες την εφαρμογή του, στο παράδειγμα.
Πίσω στον VBA editor, στο ThisWorkbook (Αυτό το βιβλίο εργασίας)

[Σταυρούλα]

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

[Spirosgr]

Ούτε μια στο δισεκατομμύριο....
Εφάρμοσε το παράδειγμα...