|
Αυτόματη αρίθμηση τιμολογίων αγαπητοί φίλοι γεια σας, αν μπορεί να δώσει κάποιος λύση στο πρόβλημα μου που είναι η αυτόματη αρίθμηση τιμολογίου σε συγκεκριμένο κελί με το άνοιγμα του αρχείου. ευχαριστώ εκ των προτέρων |
1 Συνημμένο(α) Φίλε Τάσο, Αν κατάλαβα καλά θέλεις κάθε φορά που ανοίγεις το Βιβλίο να αυξάνει ο αριθμός σε κάποιο κελί κατά 1. Άνοιξε τον VBE (Alt + F11) 1) ΔΙπλό κλικ στο Αυτό_το_βιβλίο_εργασίας (This_Workbook) στο αριστερό μέρος της οθόνης 2) Επέλεξε Workbook αντι General 3) Επέλεξε Open στο διπλανό όπως δείχνει η συνημμένη εικόνα 4) κάνε επικόλληση του παρακάτω κώδικα Πριν το βήμα 4 βεβαιώσου ότι στο πάνω μέρος του VBE γράφει "Αυτό_το_βιβλίο_εργασίας (code)" Κώδικας: Private Sub Workbook_Open()Πες μας αν έγινε Θανάσης |
Αγαπητέ φίλε Θανάση σε ευχαριστώ πάρα πολύ όντως δούλεψε , κάνοντας όμως κατάχρηση της καλοσύνης σου μήπως έχεις καμιά ιδέα έτσι ώστε την αύξηση στον αριθμό να τον κάνει και με την καταχώρηση- αποθήκευση (και όχι μόνο με την είσοδο στο αρχείο μετά από έξοδο) φιλικά Τάσος |
Αγαπητέ φίλε μόλις διαπίστωσα ένα πρόβλημα που μου έβγαλε στο αρχείο αυτό που έκανα την αυτόματη αρίθμηση είχα δύο πεδία με λίστες που έπερναν στοιχεία από δύο πίνακες που βρίσκονται σε άλλο φύλλο. Μετά την καταχώρηση της αυτόματης ρύθμισης οι λίστες δεν δουλεύουν ακόμα και μετά την διαγραφή της αυτόματης αρίθμησης, έστω και αν τις καταχωρώ ξανά φιλικά Τάσος |
Καλημέρα! Αγαπητέ συνονόματε, νομίζω ότι η αρίθμηση τιμολογίου θα πρέπει να συμβαίνει κατά την εκτύπωση του και αμέσως μετά την εκτύπωση θα πρέπει να αποθηκευτεί το βιβλίο για να σιγουρευτούμε ότι η νέος σειριακός αριθμός αποθηκεύτηκε. Θα πρότεινα λοιπόν: Κώδικας: Private Sub Workbook_BeforePrint(Cancel As Boolean)Εκτός αυτού, το βιβλίο εργασίας, επειδή περιέχει μακροεντολή, θα πρέπει να βρίσκεται σε ασφαλή θέση. Επίσης, το επίπεδο ασφαλείας μακροεντολών πρέπει να βρίσκεται τουλάχιστον στο "μεσαίο" για να έχεις αποτελέσματα. Μπορείς να δεις το μήνυμα αυτό: http://www.ms-office.gr/forum/ta-nea...asfaleias.html που μπορεί να χρησιμεύσει και για Excel. Υπάρχει επίσης σχετικό παράδειγμα στα χρήσιμα παραδείγματα στην Ενότητα Excel: http://www.ms-office.gr/forum/excel-...astatikoi.html Φιλικά Τάσος |
φίλε Τάσο ευχαριστώ για τη βοήθεια σου αλλά ακόμα και στη δική σου πρόταση συνεχίζει το πρόβλημα που εμφανίστηκε δηλαδή: σε δύο πεδία που έχω αναπτυσσόμενη λίστα όταν βγώ (κλείσω) το αρχείο και ξανά μπω τότε μου έχει απενεργοποιήσει τη σύνδεση στα δύο κελιά που έχω τις λίστες ( σημείωση τα δεδομένα για τις δύο λίστες βρίσκονται σε άλλο φύλο DATA) δεν μπορώ να καταλάβω γιατί συμβαίνει αυτό ευχαριστώ για το χρόνο σας φιλικά Τάσος |
Αγαπητέ μου δεν είναι κατανοητό το ζητούμενο σου. Ανέβασε ένα συνημμένο και περίγραψε/δείξε μας μέσα στο συνημμένο τι ακριβώς θέλεις που δεν γίνεται. Φιλικά Τάσος |
1 Συνημμένο(α) Ελπίζω φίλε Τάσο να γίνει κατανοητό με το παράδειγμα φιλικά Τάσος |
1 Συνημμένο(α) Φίλε Τάσο, θα πρέπει να ξαναορίσεις τα ονόματα και τις επικυρώσεις, γιατί απότι δείχνει έχουν καταστραφεί. AYTOKINHTO =dtk!$B$11 COUNTRY =dtk!#ΑΝΑΦ! PARALIPTIS =dtk!$C$9 PELATES =dtk!#ΑΝΑΦ! Print_Area =dtk!$A$1:$H$38 PROIONTA =dtk!#ΑΝΑΦ! TRUCKS =dtk!#ΑΝΑΦ! ΠΑΡΑΛΗΠΤΗΣ =dtk!$C$9 ΠΕΡΙΕΧΟΜΕΝΟ =dtk!$E$18 ΠΙΝΑΚΑΣ2 =DATA!#ΑΝΑΦ! ΠΡΟΙΟΝΤΑ =#ΑΝΑΦ!$B:$B Εγώ θα απέφευγα τον ορισμό πινάκων και λιστών και θα χρησιμοποιούσα δυναμικά ονόματα. Δες το συνημμένο. Επίσης το συμβάν Workbook_AfterSave() δεν δουλεύει σωστά για εκδόσεις πριν το 2010 ίσως τα συμβάντα Workbook_BeforeSave() ή Workbook_BeforePrint() που σου πρότεινε και ο Τάσος να είναι προτιμότερο. στο συνημμένο έχω αφήσει το Workbook_AfterSave() όπως το είχες. Θανάσης |
Κύριοι-φίλοι σας ευχαριστώ πολύ για τη βοήθεια σας!!!! |
| Η ώρα είναι 07:39. |
Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.