Forum

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)

Spirosgr 09-07-18 14:31

Δεν ξέρω τι άλλες ρουτίνες έχεις στο έργο σου,
αλλά σ' εμένα δεν χτυπάει πουθενά, με αυτές τις βιβλιοθήκες.
Δοκίμασε χωρίς την Ref Edit Control.(?)

stam75 09-07-18 14:38

Δεν άλλαξε κάτι με την αφαίρεση της.
Όταν μιλάς για ρουτίνες αναφέρεσαι σε κώδικα στην visual basic;
Αν ναι, έχω άλλο ένα Module με το οποίο μεταφέρω κάποια δεδομένα από πίνακες σε μια στήλη και μετά σβήνει κάποια άλλα δεδομένα από διάφορες περιοχές σε ένα άλλο φύλλο.
Αν βάλω τον κώδικα εδώ θα βοηθήσει;

Spirosgr 09-07-18 14:43

1 Συνημμένο(α)
Όχι ο κώδικας είναι της φόρμας και εκεί να παραμείνει...
Είδα οτι έχεις 2013 office στο profile σου.
Αν ισχύει,
δες την εικόνα και αν υπάρχουν, αντικατέστησε τις κυκλωμένες, με τις ίδιες αλλά 15.0 έκδοση.

Κατά τα άλλα δεν μπορώ να ξέρω τι συμβαίνει διότι όπως σου είπα
δεν μου χτυπάει σφάλμα με την παρούσα μορφή...

stam75 09-07-18 15:08

Όχι τα έχω αλλάξει σε 2016. Πρέπει να αλλάξω κάτι τώρα;

Spirosgr 09-07-18 17:29

Όχι όλα καλά.
Άλλαξε το και στο profile σου.

Απλά δεν εμφανίζει το σφάλμα σε 'μένα, για για να σου δώσω απάντηση,
αλλά και δεν έχω την συνολική εικόνα του έργου,
για να δω αν κάτι επηρεάζει και πως ...

Spirosgr 09-07-18 17:39

Κάνε μια αλλαγή στον κώδικα με αυτό:
Κώδικας:

Private Sub lbxSheets_Click()
    Dim Nme As Name
    Me.lbxNamedRanges.Clear
    For Each Nme In ThisWorkbook.Names
        If Range(Nme).Parent.Name = Me.lbxSheets.List(Me.lbxSheets.ListIndex) _
          Then Me.lbxNamedRanges.AddItem Nme.Name
    Next Nme
End Sub

να μου πεις συμπεριφορά...

stam75 09-07-18 18:43

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

Επίσης για την έκδοση του 2016 δεν έχει επιλογή στο προφίλ μου ώστε να το αλλάξω.

kapetang 09-07-18 20:11

1 Συνημμένο(α)
Καλησπέρα

Σταμάτη στο συνημμένο έκανα κάποιες βελτιώσεις.

1) Τροποποίησα τον κώδικα ώστε στο φύλλο Links να συμπληρώνονται και οι πίνακες που υπάρχουν στα φύλλα.

2) Επίσης τροποποίησα τον κώδικα, για να μη «χτυπάει» όταν ένα όνομα αναφέρεται σε τύπο.

stam75 09-07-18 20:39

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

Spirosgr 09-07-18 20:46

1 Συνημμένο(α)
Σταμάτη...
Στο δικό μου, η ρουτίνα δεν «χτυπούσε», γιατί δεν έχω ονομασίες που αφορούν τύπους.
Στο βιβλίο, υπάρχει ένα update στον κώδικα και στην φόρμα.
Αν η ονομασία αφορά τύπους, δεν επιλέγει περιοχή, αλλά βγάζει msgbox.
Οι ονομασίες με τύπους ακολουθούν όλα τα φύλλα.
Με την επιλογή φύλλου, μεταφερόμαστε στο φύλλο by default, πριν την επιλογή ονόματος.
Η επιλογή False ή True στην γραμμή:
Application.Goto Range(Me.Lst_NmRng.List(Me.Lst_NmRng.ListIndex)), False 'True
είναι επιλογή σου αν θέλεις να «έρχεται» η περιοχή στο πάνω αριστερά μέρος του φύλλου ή όχι.
Περισσότερα στο βιβλίο...


Η ώρα είναι 15:48.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2