Εμφάνιση ενός μόνο μηνύματος
  #4  
Παλιά 16-12-10, 12:22
Το avatar του χρήστη gr8styl
gr8styl Ο χρήστης gr8styl δεν είναι συνδεδεμένος
Super Moderator
Όνομα: Θανάσης Στυλιανίδης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-10-2009
Περιοχή: Βρυξέλλες, Βέλγιο
Μηνύματα: 758
Προεπιλογή

Καλημέρα Γιώργο
Για να αλλάζει αυτόματα το όνομα με το που αλλάζουν τα περιεχόμενα του Α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
Τα λέμε
Θανάσης

Τελευταία επεξεργασία από το χρήστη gr8styl : 16-12-10 στις 12:35.
Απάντηση με παράθεση