Ανανέωση ιστοσελίδας

[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

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