08-03-13, 19:07
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Καλησπέρα
Αν κατάλαβα καλά το ζητούμενο θέλουμε ένα φύλλο που έχει άλλες φορές το όνομα
«Order_Export» και άλλες το όνομα «ExportDataOne» να μετονομάζεται πάντα σε «Request For Quotations»
Τότε βάλε τον κώδικα σε Module και τρέξ' το κάθε φορά που θέλεις να αλλάξει το όνομα
Sub RenameMySheet()
If ActiveSheet.Name = "ExportDataOne" Then
ActiveSheet.Name = "Request For Quotations"
Else
If ActiveSheet.Name = "Order_Export" Then
ActiveSheet.Name = "Request For Quotations"
End If
End If
End Sub
|