Καλημέρα!
Αγαπητέ συνονόματε, νομίζω ότι η αρίθμηση τιμολογίου θα πρέπει να συμβαίνει κατά την εκτύπωση
του και αμέσως μετά την εκτύπωση θα πρέπει να αποθηκευτεί το βιβλίο για να σιγουρευτούμε ότι η νέος σειριακός αριθμός αποθηκεύτηκε.
Θα πρότεινα λοιπόν:
Κώδικας:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheet1.Range("A1").Value = Sheet1.Range("A1").Value + 1
ThisWorkbook.Save
End Sub
Όπου
Sheet1 = Το κωδκό όνομα του φύλλου (εμφανίζεται στον
VBE) που θα περιέχει τον αύξοντα αριθμό.
Εκτός αυτού, το βιβλίο εργασίας, επειδή περιέχει μακροεντολή, θα πρέπει να βρίσκεται σε ασφαλή θέση. Επίσης, το επίπεδο ασφαλείας μακροεντολών πρέπει να βρίσκεται τουλάχιστον στο "μεσαίο"
για να έχεις αποτελέσματα.
Μπορείς να δεις το μήνυμα αυτό:
http://www.ms-office.gr/forum/ta-nea...asfaleias.html που μπορεί να χρησιμεύσει και για Excel.
Υπάρχει επίσης σχετικό παράδειγμα στα χρήσιμα παραδείγματα στην Ενότητα Excel:
http://www.ms-office.gr/forum/excel-...astatikoi.html
Φιλικά
Τάσος