Ανανέωση ιστοσελίδας

[genass]

Καλησπέρα.
Eχω ένα βιβλίο εργασίας στο Excel το οποίο περιέχει 30 φύλλα εργασίας υπάρχει τρόπος να τα ταξινομήσω αλφαριθμητικά με κάποιο τρόπο?
Χειροκίνητα ξέρω πως γίνεται ένα ένα δηλαδή.
Ευχαριστω πολύ.

[Spirosgr]

Βάλε σε μια module, τον πιο κάτω κώδικα.

Sub SortWSH()
    Dim _
          i As Integer, _
          x As Integer

    For i = 1 To ThisWorkbook.Sheets.Count
        For x = 1 To ThisWorkbook.Sheets.Count - 1
            If UCase(ThisWorkbook.Sheets(x).Name) > UCase(ThisWorkbook.Sheets(x + 1).Name) Then
                ThisWorkbook.Sheets(x).Move after:=ThisWorkbook.Sheets(x + 1)
            End If
        Next
    Next
End Sub

Τρέξε τον κώδικα και θα έχεις αποτέλεσμα Α-Ω
Αν αλλάξεις το > σε < θα έχεις αποτέλεσμα Ω-Α

[genass]

Σπύρο σε ευχαριστώ πάρα πολύ για την άμεση απάντηση Μία χαρά δούλεψε

[Spirosgr]

Να 'σαι καλά.