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

[kapetang]

Καλημέρα

Σταμάτη, αντικατέστησε στον κώδικα της φόρμας:

Τη γραμμή κώδικα: If Not Nme.Name Like "*Print_Area*" Then

με την: If Not Nme.Name Like "*!Print_Area*" Then

Και στη διαδικασία CreateLinks:

Τη γραμμή κώδικα: If Not nm.Name Like "*Print_Area*" Then

με την: If Not nm.Name Like "*!Print_Area*" Then

Έτσι πιστεύω θα περιοριστούν και οι εύλογες ανησυχίες του Σπύρου για την «τρύπα» του τελεστή Like.

[stam75]

Καλησπέρα! Να με συγχωρείτε για την καθυστέρηση..!
Μόλις ενημέρωσα τις σειρές που μου υπέδειξες Γιώργο!
Σε ευχαριστώ πολύ

[kapetang]

Σταμάτη καλημέρα

Στο συνημμένο στο #33 έκανα και κάποιες άλλες αλλαγές στον κώδικα και τη σχεδίαση της φόρμας, ώστε να καλύπτει καλύτερα τις διάφορες περιπτώσεις ονομάτων

[stam75]

Αντέγραψα μόνο τον κώδικα του CreateLinks. Θα ενημερώσω και της φόρμας, ευχαριστώ.

[stam75]

Γιώργο μου κιτρινίζει αυτό

Private Sub Lst_NmRng_Click()
    Application.Goto Range(Me.Lst_NmRng.List), False
End Sub

Ανοίγω τον πίνακα, επιλέγω αριστερά στα φύλλα και μετά όταν κλικάρω δεξιά τις περιοχές μου δίνει error

[Spirosgr]

Στην γραμμή, βάλε .Value αντί .List

[stam75]

Πολύ σωστά Σπύρο, δικό μου ήταν το λάθος, δεν είχα κάνει εκεί copy paste.
Έχω ολοκληρώσει την ενημέρωση αλλά δε μου εμφανίζει τέρμα δεξιά τις περιοχές όπως στο παράδειγμα του Γιώργου. Τι κάνω λάθος;;

*ΟΚ το βρήκα! τις βλέπω και τις δύο!

[stam75]

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

[Spirosgr]

Επειδή έχουμε φτάσει τα 50 posts και μάλλον επαναλαμβανόμαστε τώρα,
μια τελευταία...πολύ πρόχειρα.

Πάρε την γραμμή (cut)
Worksheets(Me.Lst_Sh.Value).Activate
από την
Private Sub Lst_Sh_Click()

και βάλτην (paste) πρώτη στην
Private Sub Lst_NmRng_Click()

[kapetang]

Καλησπέρα

Φίλε Σταμάτη δες το συνημμένο