Forum - Excel07 Δημιουργία κουμπιού

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Excel07] Δημιουργία κουμπιού (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/4939-dimioyrgia-koympioi.html)

Δημιουργία κουμπιού

Καλησπέρα στο φόρουμ!
Έχω 2 βιβλία excel στα οποία δουλεύω στο γραφείο.
Σκέφτομαι να τα κάνω ένα για να είναι όλα τα δεδομένα της δουλειάς μου μαζί.
Η ερώτησή μου είναι η εξής, μπορώ να έχω ένα κουμπάκι (βασικά το ίδιο κουμπάκι) σε όλα τα φύλλα του βιβλίου; Ώστε όταν το πατάω να μου εμφανίζει σε λίστα όλες τις ονομασίες φύλλων του βιβλίου (αυτό γνωρίζω ότι είναι εύκολο με δεξί κλικ στα βελάκια κάτω αριστερά).
Όμως, σκέφτομαι πως θα μου ήταν πολύ πιο χρήσιμο πατώντας το κουμπί, να ανοίγει ένα παράθυρο το οποίο να περιλαμβάνει την ονομασία του κάθε φύλλου σε μία σειρά και κάτω από την ονομασία του κάθε φύλλου να έχω σε λίστα όλες τις περιοχές που έχω ονομάσει και κλικάροντας επάνω τους να με οδηγούν στον προορισμό.
Πόσο εφικτό είναι αυτό;
Ευχαριστώ

Καλησπέρα

Σταμάτη, δες μια πρόταση στο συνημμένο.

1) Στο Module1 έχω προσθέσει τη διαδικασία CreateLinks

2) Στο βιβλίο έχω προσθέσει το φύλλο Links.

3) Στα άλλα φύλλα πρόσθεσα ένα κουμπί.

Πατώντας το κουμπί εκτελείται ο κώδικας της διαδικασίας CreateLinks, ο οποίος κάνει ενεργό το φύλλο Links και το συμπληρώνει με υπερσυνδέσεις προς τις περιοχές των ονομάτων.

Καλησπέρα Γιώργο και σε ευχαριστώ πολύ για την πρόταση σου και τον χρόνο που διέθεσες.
Θα το δουλεύω στον υπολογιστή αργότερα και θα σε ενημερώσω.

Γιώργο πολύ ωραία η λύση που προτείνεις σε ευχαριστώ πολύ. Υπάρχει περίπτωση να δημιουργούνται ως σύνδεσμοι οι ονομασίες των περιοχών κι όχι τα διακριτικά των στηλών/σειρών;
Δηλαδή στο φύλλο Links αντί για A1:C11 να παίρνω Name1;
Εκτός κι αν θέλει αρκετή δουλίτσα όποτε το αφήνουμε.
Και πάλι σε ευχαριστώ πολύ

Σταμάτη, δες το συνημμένο.

Μπράβο Γιώργο άψογο είναι τέλειο! Σε υπέρ ευχαριστώ!

Να είσαι καλά!

Γεια σας και πάλι!
Για το συγκεκριμένο ζητούμενο που έδωσε πολύ χρήσιμη λύση ο Γιώργος βρήκα κι άλλη εκδοχή στην οποία κάνει ακριβώς αυτό που ζητούσα αρχικά.
Όμως, όταν αντιγράφω τον κώδικα στο κανονικό βιβλίο μου και πάω να δουλέψω με το κουμπί, όταν κάνω κλικ σε ένα από τα φύλλα του βιβλίου μου πετάει

Runtime error '1004':
Method 'Range' of object '_Global' failed

και όταν πατάω debug
μου δείχνει το παρακάτω (με κίτρινο φόντο τα κόκκινα γράμματα.)

Κώδικας:

Private Sub lbxSheets_Click()

   Dim Nme As Name

   Me.lbxNamedRanges.Clear

   For Each Nme In ThisWorkbook.Names

      If Range(Nme).Parent.Name = Me.lbxSheets.Value Then Me.lbxNamedRanges.AddItem Nme.Name

   Next Nme

End Sub

Γνωρίζει κάποιος τι ακριβώς συμβαίνει;

Πήγαινε πίσω στην vba, πάτα το κουμπί της εικόνας και πες μου ποιές βιβλιοθήκες
είναι ενεργοποιημένες.

Μόνο όσα είναι επιλεγμένα στην φωτογραφία!