Forum - Εμφάνιση ενός μόνο μηνύματος - Excel07 Ονομασία καρτέλας σε φύλλο Excel απευθείας από επιλεγμένο κελί...;

kapetang · #6 05-07-17, 16:21

Καλησπέρα

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

Κώδικας:

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 κελί του.

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