excell αλλαγη αυξοντα αριθμο για εκδοση αποδειξης

[JOHNMEGARYTHMOS]

καλησπερα σας ψαχνω στο excell ενα κωδικα αλγοριθμο ισως που να κανει αλλαγη στον αυξοντα αριθμο για την εκδοση αποδειξης, τι μπορω να κανω; και ποτε αλλαζει τον αυξοντα αριθμο οταν εκτυπωνω την αποδειξη; ή οταν το αποθηκευω; γενικα υπαρχει τροπος;.

[thodoris85]

Δεν εξηγείς ακριβώς τι θέλεις να κάνεις.

 

Αν θες να προσθέτεις τιμή σε έναν ΑΑ όταν εκτυπώνεις την απόδειξη, τότε αυτό εδώ ίσως να σε βοηθήσει

Edited January 25, 2019 by thodoris85

[JOHNMEGARYTHMOS]

Δεν εξηγείς ακριβώς τι θέλεις να κάνεις.

 

Αν θες να προσθέτεις τιμή σε έναν ΑΑ όταν εκτυπώνεις την απόδειξη, τότε αυτό εδώ ίσως να σε βοηθήσει

 

καλησπερα και σε ευχαριστω για την αμεση απαντηση , επειδη κοβω αποδειξη λιανικης απο excell βαζω καθε φορα χειροκινητα τον αυξοντα αριθμο της αποδειξης , και εχει τυχει να κοψω αποδειξη με τον ιδιο αυξοντα αριθμο οταν βιαζομαι , ρωταω αμα μπορω να αλλαζει ο αυξοντας αριθμος της αποδειξης +1 οταν εκτυπωνω την αποδειξη ή οταν την αποθηκευω.

[thodoris85]

Το link που έχω βάλει, αυξάνει τον ΑΑ κατά την εκτύπωση.

Νομίζω στη δευτερη σελίδα έχει λίγο καλύτερο κώδικα (από ότι στην πρώτη απάντηση που δίνουν) έτσι ώστε να σου βγάζει και το μενού της εκτύπωσης (ή τουλάχιστον να επιλέγεις εκτυπωτή).

Με μια παραλαγή θα μπορούσε να γίνεται και κατά την αποθήκευση.

[JOHNMEGARYTHMOS]

Το link που έχω βάλει, αυξάνει τον ΑΑ κατά την εκτύπωση.

Νομίζω στη δευτερη σελίδα έχει λίγο καλύτερο κώδικα (από ότι στην πρώτη απάντηση που δίνουν) έτσι ώστε να σου βγάζει και το μενού της εκτύπωσης (ή τουλάχιστον να επιλέγεις εκτυπωτή).

Με μια παραλαγή θα μπορούσε να γίνεται και κατά την αποθήκευση.

 

δηλαδη οταν πατας εκτυπωση αλλαζει ο α/α ; ή οταν ολοκληρωθει η εκτυπωση; .

[thodoris85]

Πριν την εκτύπωση τρέχει ο κώδικας

 

 

---- edit ----

ή μάλλον για να το πω καλύτερα, ο κώδικας θα ξεκινήσει να τρέχει πριν την εκτύπωση, αλλά ο ΑΑ θα αλλάξει αμέσως μετά

 

Αν θέλεις βοήθεια για να τον προσαρμόσεις στο excel σου, πες μου.

Edited January 25, 2019 by thodoris85

[JOHNMEGARYTHMOS]

Πριν την εκτύπωση τρέχει ο κώδικας

 

 

---- edit ----

ή μάλλον για να το πω καλύτερα, ο κώδικας θα ξεκινήσει να τρέχει πριν την εκτύπωση, αλλά ο ΑΑ θα αλλάξει αμέσως μετά

 

Αν θέλεις βοήθεια για να τον προσαρμόσεις στο excel σου, πες μου.

 

ωραία μου κάνει να αλλάζει όταν παταω εκτύπωση. μετά τι κάνω ?

[thodoris85]

ωραία μου κάνει να αλλάζει όταν παταω εκτύπωση. μετά τι κάνω ?

 

τι εννοείς; θέλεις να κάνει και κάτι άλλο;

[JOHNMEGARYTHMOS]

τι εννοείς; θέλεις να κάνει και κάτι άλλο;

 

οχι αυτο , τι θα πρεπει να βαλω ; που τον γραφω των κωδικα;

[thodoris85]

Σε ποιο κελί γράφεις τον ΑΑ;

[JOHNMEGARYTHMOS]

Σε ποιο κελί γράφεις τον ΑΑ;

 

έχω κάνει συγχώνευση 2 κελιων Ι4 και Ι5 . όταν πάω να επιλέξω το ΑΑ γράφει Ι4 πάνω από την στήλη Α εκεί δίπλα που είναι η συνάρτηση fx

[thodoris85]

Ξέχασα να ρωτήσω και το όνομα του "sheet"

[JOHNMEGARYTHMOS]

Ξέχασα να ρωτήσω και το όνομα του "sheet"

 

Φύλλο1 οπως ητανε απο την αρχη που εφτιαξα το excell.

[thodoris85]

Ανοίγεις το excel σου και το αποθηκεύεις ώς FILENAME.xlsm (όπου filename είναι αυτό που είχες μέχρι τώρα)

Πατάς ALT+F11

Διπλό click στο "ΤhisWorkbook" (ή δε ξέρω πως το γράφει στα ελληνικά)

Επικόληση τον παρακάτω κώδικα (με προσοχή εκεί που λέει "With Sheets("Φύλλο1")" τη λέξη Φύλλο υπάρχει περίπτωση να στη γράψει με περίεργους χαρακτήρες και να πρέπει να την ξαναγράψεις μόνος σου

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = True

Application.EnableEvents = False

Application.Dialogs(xlDialogPrint).Show

With Sheets("Φύλλο1")

.Range("I4").Value = .Range("I4").Value + 1

End With

Application.EnableEvents = True

End Sub

 

Αποθηκεύεις και είσαι έτοιμος

[JOHNMEGARYTHMOS]

Ανοίγεις το excel σου και το αποθηκεύεις ώς FILENAME.xlsm (όπου filename είναι αυτό που είχες μέχρι τώρα)

Πατάς ALT+F11

Διπλό click στο "ΤhisWorkbook" (ή δε ξέρω πως το γράφει στα ελληνικά)

Επικόληση τον παρακάτω κώδικα (με προσοχή εκεί που λέει "With Sheets("Φύλλο1")" τη λέξη Φύλλο υπάρχει περίπτωση να στη γράψει με περίεργους χαρακτήρες και να πρέπει να την ξαναγράψεις μόνος σου

 

 

Αποθηκεύεις και είσαι έτοιμος

 

σε ευχαριστω πολυ θα το δοκιμασω και θα σου πω οταν βρω χρονο.