[VBA] Καταχώρηση Φύλλων σε στήλη.

[Ρούλα]

Καλησπέρα σε όλο το Forum και καλό χειμώνα
Έχοντας ένα πρόβλημα μετά από πολύ αγώνα σκεπτικά να ρωτήσω για άλλη μια φορά Τους ηδύνοντες.
Έχω ένα Workbook με 6 φύλλα. (Sheet1, Sheet2, Help, Sheet4, NewPage, Aαναζήτηση,) Θα ήθελα να μου πείτε εάν είναι εφικτό ποιος είναι ο κώδικας
Ώστε με ένα κουμπί πατώντας το να καταχωρεί στο φύλλο Αναζήτηση στην στήλη Α από το κελί 3 όλα τα φύλλα εκτός από τα φύλλα Αναζήτηση, Help, NewPage.
Σας ευχαριστώ όλους θερμά εκ των προτέρων για τον χρόνο σας άλλη μια φορά.

[Spirosgr]

Καλησπέρα
Δοκίμασε αυτόν τον κώδικα

Sub WSShow()
    Dim i As Integer
    On Error Resume Next
    ActiveSheet.Range("A3:A50").ClearContents
    For i = 3 To Sheets.Count
        ActiveSheet.Cells(i, 1).Value = Sheets(i + 1).Name
    Next i
End Sub

Τα φύλλα Help, NewPage και Αναζήτηση
πρέπει να είναι τα 3 πρώτα του βιβλίου ανεξαρτήτου σειράς μεν αλλά τα 3 πρώτα δε
και μετά να ακολουθούν τα υπόλοιπα φύλλα
Μπορούν να προστεθούν ή να διαγραφούν φύλλα
Τα φύλλα εμφανίζονται στην περιοχή A3:A50 με την σειρά που είναι στο βιβλίο
Αν χρειάζεται άλλαξε την περιοχή A3:A50 στον κώδικα με A3:A100 για παράδειγμα

Έχω όμως την απορία Ρούλα αν το χρειάζεσαι αυτό πραγματικά
Με δεξί κλικ αριστερά στην μπάρα των φύλλων έχεις την λίστα Φύλλων όλου του βιβλίου
δηλαδή το ίδιο αποτέλεσμα

[Ρούλα]

Καλημέρα σε όλους
Για άλλη μια φορά σε υπέρ ευχαριστώ για τον πολύτιμο χρόνο σου.
Πιστεύω να κατάλαβες ότι δεν τα πάω και τόσο καλά με την VBA τώρα
Ξεκίνησα πιστεύω πως κάτι θα καταφέρω με την Βοήθια σας όχι να βοηθώ
Κάποιους αλλά τουλάχιστον τον εαυτό μου ώστε να μην σας κουράζω.
Και πάλι ένα μεγάλο ευχαριστώ.

[Spirosgr]

Καλημέρα
Κατά πρώτον σ'ευχαριστώ κι εγώ για τα καλά σου λόγια και
δεύτερον ξέχασα να σου πώ το εξής:
Ο κώδικας αυτός τρέχει στο ενεργό φύλλο (σε ανοιχτό εκείνη την στιγμή φύλλο)
Στο βιβλίο σου το φύλλο "Αναζήτηση" έχει κωδικό όνομα Φύλλο 2
Αντικατέστησε το κωδικό όνομα με κάτι στα Αγγλικά πχ WSh1
Αν αντικαταστήσεις το ActiveSheet με το WSh1 στον κώδικα
θα τρέχει μόνο στο Φύλλο "Αναζήτηση".

[Spirosgr]

Καλησπέρα
Με αφορμή την ερώτηση της Ρούλας στο βιβλίο που ακολουθεί υπάρχει μια εφαρμογή
που μπορεί να φανεί χρήσιμη σε κάποιους φίλους.
Το βιβλίο περιέχει 25 φύλλα που το πρώτο ονομάζεται MainData και τα υπόλοιπα είναι σε σειρά Sheet2 ...έως...Sheet25.
Με τροποποιήσεις στον κώδικα που είδαμε πιο πάνω μπορούμε να "φέρνουμε" στην Α στήλη του
MainData ακριβώς κάτω από την κεφαλίδα μας τα φύλλα που είναι μονά 'η ζυγά 'η όλα.
Αυτό μπορεί να βρει εφαρμογή αν για παράδειγμα σε ένα βιβλίο έχουμε μήνες του έτους
με ΕΙΣΠΡΑΞΕΙΣ & ΠΛΗΡΩΜΕΣ και ζητάμε να βλέπουμε κατά το δοκούν όλα τα φύλλα του βιβλίου
ή μόνο ΕΙΣΠΡΑΞΕΙΣ ή μόνο ΠΛΗΡΩΜΕΣ ανά μήνα με κάποιο σύνολο δίπλα στην Β στήλη
που θα έρχεται με τύπο...
Πειραματιστείτε με τα δικά σας δεδομένα...
Καλή συνέχεια!