03-02-14, 13:06
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού 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
| |
Καλησπέρα
Για τους φίλους που παρακολουθούν το θέμα αυτό να πω το εξής:
Ο κώδικας που προτείνεται δεν αντιστοιχεί 100% στο αρχικό ζητούμενο
Για να δουλέψει όμως ακόμα και σε αυτήν την μορφή πρέπει:
1. να οριστεί ο x ως μεταβλητή ακέραιος ... Dim x as Integer
2. να ορίσουμε τα όρια του x από - έως ... For x = 1 to Sheets.Count
3. πριν την ολοκλήρωση (End sub) να μπει ένα Next x
και βέβαια πιθανόν με το όλο στήσιμο το οποίο
δεν γνωρίζουμε να χρειάζονται κάποιοι έλεγχοι...
|