[Συναρτήσεις] Πέρασμα τριών εντολών σε ενα κουμπί

[kirkon]

Αγαπητοί φίλοι του φόρουμ κατ' αρχάς θα ήθελα να στείλω τις ευχές μου για καλό Πάσχα και να ευχηθώ σε όλους χρόνια πολλά.
Βέβαια θα θελα να σας συγχαρώ για την αξιέπαινη προσπάθεια σας και την πολύτιμη βοήθεια σας σε όλα τα μέλη του φόρουμ και για μην μακρηγορώ και σας κουράζω θα ήθελα αν μπορείτε την βοήθειά σας σε ένα αρχείο για την έκδοση διάφορων φορολογικών στοιχείων στο οποίο θα ήθελα με το πάτημα του κουμπιού αποθήκευση να εκτελεί τρεις ταυτόχρονες εργασίες όπως υπάρχουν στις κάτωθι μακροεντολές: Μακροεντολή 5,NextInvoice & SaveInvWithNewName.Δηλαδή να αποθηκεύει το στοιχείο σε κάποιο φάκελο να βάζει την επόμενη αρίθμηση στο στοιχείο και να το εγγράφει στα έσοδα.
Σας ευχαριστώ για τον χρόνο σας ελπίζω σε μια απάντησή ευχόμενος ξανά καλές γιορτές σε όλους

[Spirosgr]

Καλησπέρα
Χωρίς να εξετάσουμε αν όλοι οι κώδικες του παρόντος βιβλίου είναι σωστοί,
ο τρόπος για να "μαζέψουμε" πολλούς αυτοματισμούς σε ένα κουμπί είναι ο εξής:
Έστω ότι έχουμε την εντολή sub doSomething () σε ένα κουμπί α'
την εντολή sub doMore () σε ένα κουμπί β' και
την εντολή sub ExecuteThat () σε ένα κουμπί γ'
Δημιουργούμε μια νέα συγκεντρωτική εντολή
στην οποία τοποθετούμε ως γραμμές κώδικα τις ονομασίες των 3 επιμέρους εντολών.
Παράδειγμα:
sub AllinOneMacro ()
doSomething
doMore
ExecuteThat
End sub
Εδώ πρέπει να προσεχθεί η σειρά που θα εκτελεστούν οι επιμέρους κώδικες.
Αν για παράδειγμα η doSomething εκτυπώνει και η doMore ταξινομεί τα προς εκτύπωση
πρέπει να αλλάξει η σειρά που θα εκτελεσθούν.
Παράδειγμα:
sub AllinOneMacro ()
doMore
doSomething
ExecuteThat
End sub
Τέλος συνδέουμε την νέα συγκεντρωτική εντολή σε ένα κουμπί δ'.
Αν δεν χρειαζόμαστε όλες ή κάποιες από τις επιμέρους ενέργειες να εκτελούνται και χωριστά
(για κάποιο λόγο) καταργούμε τα κουμπιά α', β', και γ' ή μέρος των κουμπιών.

[kirkon]

Αγαπητέ Σπύρο σ' ευχαριστώ για την άμεση απάντηση σου το έκανα έτσι όπως το περιγράφεις αλλά έχω ένα θέμα με το αποτέλεσμα. Θα ξανακοιτάξω τον κώδικα γιατί μου ανεβάζει την αρίθμηση ανά δυο αντί για ένα. Αν δεν τα καταφέρω να βρω λύση ίσως επανέλθω.
Καλό Πάσχα με υγεία