[Excel07] Ονομασία καρτέλας σε φύλλο Excel απευθείας από επιλεγμένο κελί...;

[Iceland]

Καλησπέρα σε όλους στο forum.

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

Θα ήθελα να γνωρίζω αν γίνεται από συγκεκριμένο-επιλεγμένο κελί να μπορεί να μετονομάζεται απευθείας ολόκληρο το φύλλο. Φαντάζομαι με χρήση κάποιου κώδικα (στις επιλογές του φύλλου μας εμφανίζει "προβολή κώδικα") οπότε με πονηρεύει.

Παρακαλώ για τα φώτα σας

Ευχαριστώ εκ των προτέρων

Γιώργος

[gr8styl]

Καλησπέρα φίλε Γιώργο
ο παρακάτω κώδικας μετονομάζει το τρέχον φύλλο σύμφωνα με τα περιεχόμενα του κελιού a2.
Προσοχή το a2 δεν μπορεί να περιέχει οτιδήποτε αλλά πρέπει να σέβεται του κανόνες ονομασίας φύλλων. Για το λόγο αυτό έχω προσθέση την On Error Resume Next Δηλαδή αν το όνομα δεν είναι αποδεκτό δεν κάνει τίποτα.

Sub name_sheet_from_cell()
    On Error Resume Next
    ActiveSheet.Name = ActiveSheet.Range("$a$2")
End Sub

Κάνεις επικόλληση του κώδικα σε ένα module (ανοίγεις τον VBA editor με Alt+F11και μενού Insert/Module αν δεν υπάρχει ήδη κάποιο module)

Τα λέμε
Θανάσης

[Iceland]

Θανάση σ' ευχαριστώ πολύ για την άμεση απάντηση.

Συμπτωματικά και εγώ στο κελί α2 έχω την ονομασία

Να σε ρωτήσω όμως. Για να αλλάξει η ονομασία πρέπει να κάνω "εκτέλεση" κάθε φορά στις μακροεντολές. Έχεις κανένα κολπάκι για αυτόματη εκτέλεση. Μήπως θέλει κάτι διαφορετικό στις ρυθμίσεις;

Όπως και να 'χει πάντως είναι πολύ βολικό και δε περίμενα να υπάρχει κάτι τέτοιο...


Ευχαριστώ πολύ,

Γιώργος

[gr8styl]

Καλημέρα Γιώργο
Για να αλλάζει αυτόματα το όνομα με το που αλλάζουν τα περιεχόμενα του Α2 αρκεί να χρησιμοποιήσεις το συμβάν Worksheet_Change

Δεξί κλικ στο όνομα του φύλλου επιλέγεις προβολή κώδικα και κολλάς τις παρακάτω 6 γραμμές.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    On Error Resume Next
    ActiveSheet.Name = Target
End If
End Sub

Τα λέμε
Θανάσης

[Μιχάλης2017]

αυτοι οι τυποι μηπως γινεται με καποιο τροπο να ενεργοποιηθουν ταυτοχρονα σε ολα ταυπαρχοντα φυλλα αλλα και στα τυχον νεα που μπορει να δημιουργηθούν? γιατι ειναι λιγο χρονοβορο να γινεται ξεχωριστα σε καθε φυλλο

[kapetang]

Καλησπέρα

Μιχάλη θα μπορούσες να χρησιμοποιήσεις τον κώδικα.

Private Sub Workbook_Open()
    Dim sh As Worksheet
    On Error Resume Next
    For Each sh In Me.Worksheets
        sh.Name = sh.Range("A2")
    Next
End Sub

Ο κώδικας εκτελείται, κάθε φορά, που ανοίγουμε το βιβλίο.

Διατρέχει τα φύλλα του βιβλίου και ορίζει το όνομα κάθε φύλλου στην τιμή που αναγράφεται στο Α2 κελί του.