[VBA] Επιλογή μήνα μέσω Userform

[gfevran]

Γεια σας παιδιά,
μέσω μιας Userform με 12 κουμπιά αντίστοιχων μηνών επιλέγω,
σε ποιο μήνα θέλω να μεταφερθώ μέχρι εδώ καλά, όμως όταν π.χ.,
είμαι στον Ιανουάριο και επιλέξω οποιοδήποτε μήνα αυτό που πληκτρολογώ,
στο μήνα που μεταφέρθηκα γράφεται στο μήνα Ιανουάριο,
Δείτε το συνημμένο αρχείο,
Παρακαλώ μια βοήθεια.
Ευχαριστώ.

[Spirosgr]

Άλλαξε τις ρουτίνες με αυτήν την μορφή:

Private Sub CommandButton1_Click()
    Φύλλο1.Activate
End Sub

όπου Φύλλο1,2,3...12 κωδικό όνομα φύλλου.
*Για τους φίλους με Αγγλική γλώσσα Sheet1,2,3...12

Σημειώσεις:
1
Για να επιτρέπεται, με ανοιχτή φόρμα να πληκτρολογείς,
πήγαινε ιδιότητες και κάνε την αλλαγή, που βλέπεις στην εικόνα 1.
2
Μπορείς αντί για το πλήκτρο, που ανοίγει την φόρμα,
εφ' όσον προφανώς θα υπάρχει και στα 12 φύλλα,
για να μην έχεις 12 πλήκτρα να βάλεις την εντολή στην κορδέλα, (στην γρήγορη) εικόνα 2.

[gfevran]

Γεια σου Σπύρο,
Σ' Ευχαριστώ πολύ.

Με εκτίμηση
Γιώργος

[Spirosgr]

Να ' σαι καλά.

Μια σημείωση για προχωρημένα...
Κανονικά, δεν είναι απόλυτα σωστός προγραμματισμός, (χωρίς να δημιουργεί λάθος),
σε κάποιο έργο, να έχουμε 12 εντολές, οι οποίες,
είναι πανομοιότυπες και στην περίπτωσή μας,
το μόνο που κάνουν, είναι να επιλέγουν φύλλα.
Αντ' αυτού, δημιουργούμε μια Class Module και μια απλή Module,
της οποίας ο ελάχιστος και ένας μόνο κώδικας «παραπέμπει» στην κλάση.

[gfevran]

Γεια σου και πάλι Σπύρο,
Σ' Ευχαριστώ για όλα αυτό θα πει για μένα βοήθεια,
με επαγγελματική συνείδηση.
Θα ήθελα λίγο παραπάνω τη βοήθεια σου,
γιατί δεν ξέρω πως μπορώ να το κάνω αυτό,
Ν' σε πάντα καλά.

[kapetang]

Καλησπέρα

Θα μπορούσαμε να συντομεύσουμε τον κώδικα, αν χρησιμοποιήσουμε, στη UserForm, ένα ListBox, στη θέση των κουμπιών.

Δες το συνημμένο.

Φιλικά/Γιώργος

[gfevran]

Καλημέρα Γιώργο,
πολύ ωραία η πρόταση σου, θα ήθελα λίγη βοήθεια ακόμη,
πως δημιουργούμε το κουμπί και το εικονίδιο στη quick Access ToolBar
Σ' Ευχαριστώ.
Φιλικά,
Γιώργος

[kapetang]

Καλημέρα

Γιώργο, ο τρόπος δημιουργίας φαίνεται στις εικόνες που ανέβασε ο Σπύρος.

Αναλυτικότερα:

1) Κάνουμε κλικ στο κουμπί με το βέλος (Customize …) της Quick Access ToolBar και από το μενού επιλέγουμε More Commands.

2) Στο παράθυρο που θα ανοίξει στο πάνω δεξιά σύνθετο πλαίσιο επιλέγουμε for Months4.xlsm.

3)Στο σύνθετο πλαίσιο Choose Commands From (περίπου στο μέσο και πάνω) επιλέγουμε macros.

4) Από τις μακροεντολές του βιβλίου, που θα εμφανιστούν, επιλέγουμε την κατάλληλη (OpenUserFormMonth).

5) Κάνουμε κλικ στο κουμπί Add και στη συνέχεια στο OK.

Φιλικά/Γιώργος

[gfevran]

Σ' Ευχαριστώ Γιώργο,
Ν' σε πάντα καλά.

Φιλικά,
Γιώργος