[VBA] Αυτόματη δημιουργία και ονομασία φύλλων.

[Tasos]

Λευτέρη,

το *.vbs πρέπει να βρίσκεται στον ίδιο φάκελο με το Main.xls για να λειτουργήσει.

Επίσης μέσα στο βιβλίο Main.xls υπάρχει ήδη κώδικας VBA που κάνει την ίδια δουλειά.

Για να εκτελέσεις αυτόν τον κώδικα VBA, άνοιξε το βιβλίο Main.xls, πάτησε ALT+F8 και στο διάλογο ου θα εμφανιστεί πάτησε το κουμπί "Εκτέλεση" για να εκτελέσεις τη μακροεντολή "CreateWorkSheets".

Το επίπεδο ασφάλειας των μακροεντολών της εφαρμογής πρέπει να είναι στο "μεσαίο" ή "χαμηλό" για να λειτουργήσει ο κώδικας VBA του βιβλίου.

Σε αντίθεση με την Excel, το *.vbs δεν επηρεάζεται από τη ρύθμιση ασφάλειας των μακροεντολών επειδή χρησιμοποιεί το αντικείμενο αυτοματισμού της Excel.

Δοκίμασε και τα λέμε.

Τάσος

Καλησπέρα-Καλημέρα.

...το *.vbs πρέπει να βρίσκεται στον ίδιο φάκελο με το Main.xls για να λειτουργήσει.....

Ναι Τάσο, αλλά γιά να τα βάλω στον ίδιο φάκελλο, πρέπει να τα ανοίξω πρώτα και μετά να τα αποθηκεύσω στον φάκελλο που θέλω. Σωστά, ή κάτι μου ξεφεύγει;

Λέω λοιπόν πως δεν μου ανοίγει καθόλου το αρχείο και μου βγάζει το λάθος που είπα στο προηγούμενο μήνυμά μου.

[Spirosgr]

Καλημέρα στην παρέα
Όπως είπα στην αρχή τώρα μαθαίνω τα "τερτίπια" της VBA
Μία λέξη έπρεπε να αλλάξει στον κώδικα για να απαλλαγούμε από όλους αυτούς τους βασανιστικούς υπολογισμούς στο φύλλο ( αντί Value Έγινε Text)
Έτσι έχουμε την τελική έκδοση απλή και χρηστική

[kapetang]

Καλημέρα στην παρέα

Σπύρο, σε συγχαίρω για τα πετυχημένα βήματα στην VBA.

Αν θέλουμε τα προστιθέμενα φύλλα να είναι ίδια με το «ΚΕΝΤΡΙΚΟ» θα μπορούσε να χρησιμοποιηθεί παρόμοιος κώδικας, όπως:

Sub sheetcreator2()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In Selection
        Worksheets("ΚΕΝΤΡΙΚΟ").Copy After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = cell.Text
    Next cell
    Application.ScreenUpdating = True
End Sub

Φιλικά/Γιώργος

Καλημέρα σε όλους.

Φιλε Σπύρο,

...Έτσι έχουμε την τελική έκδοση απλή και χρηστική

Ναί. Απλή,χρηστική και κατανοητή!

Μόνο μία ερώτηση γιά να μην έχω κενά!

Στο φύλλο Κεντρικό, τα στοιχεία Data στα κελιά και οι επικεφαλίδες με Column, Είναι για να γεμίσουμε απλά τα κελια και μόνον. Έτσι;

Σε ευχαριστώ και πάλι, πολύ για τον κόπο και τον χρόνο σου.

Αυτή είναι η απάντησή μου, στον Φίλο Σπύρο, στο Post#8 και είναι σωστή.

.

..Η δουλειά σου, σαν αποτέλεσμα(δεν έχω γνώσεις να το κρίνω τεχνικά, δηλαδή, αν θα μπορούσε να γίνει με άλλον τρόπο, κλπ, κλπ),απαντάει ακριβώς, σε αυτό που αρχικά ρώτησα.

..Βλέποντας την απάντηση του Γιώργου, που ουσιαστικά είναι ίδια με αυτή του Τάσου στο post#2,

...Με την ίδια μέθοδο (με κάποιες μικροαλλαγές στον κώδικα) μπορείς να ανοίξεις το βιβλίο που περιέχει το μορφοποιημένο φύλλο μιας ημέρας και να το αντιγράψεις όσες φορές χρειαστεί.

..είναι κάτι που είναι πολύ ενδιαφέρον, κάτι που είχα πεί και στο Post μου #6.

...από μήνα σε μήνα η μορφοποίηση των φύλλων μου, είναι ίδια. Δηλαδή, υπάρχει έτοιμο βιβλίο(που χρησιμοποιείται σαν πρότυπο) και κάθε μήνα πρέπει να του αλλάζω το όνομα των φύλλων, δίνοντάς τους το όνομα της κάθε ημέρας, γιά να επικοινωνούνε, με το κεντρικό φύλλο, που βάσει της ημερομηνίας, παίρνω διάφορα στοιχεία.

Άρα, ΔΕν χρειάζομαι δημιουργία κενών φύλλων, αλλά Μετανομασία των υπάρχοντων, ανάλογα με τον μήνα και το έτος που επιλέγω στο κεντρικό φύλλο(Π.χ, στο Α1)

Στην περίπτωσή μας λοιπόν, έχουμε το ΚΕΝΤΡΙΚΟΝ, που είναι αμετάβλητο και ένα φύλλο που περιέχει πολλά δεδομένα με συναρτήσεις, μορφοποιήσεις, και πολλά δεδομένα.και είναι ΙΔΙΟ γιά όλλες τις μέρες του μήνα.

Αυτό το φύλλο, λοιπόν είναι εκείνο που πρέπει να αντιγραφεί όσες φορές του ορίσουμε απο το Φύλλο, ΕΠΙΛΟΓΕΣ και τα φύλλα που δημιουργούνται να παίρνουν την ονομασία των ημερών, που έχουμε επιλέξει.

Μήπως εδώ που φτάσαμε,ελπίζω, χωρίς να κάνω κατάχρηση του χρόνου και του κόπου σας, μπορούμε να κάνουμε και αυτό;;