Coртировка листов в Экселе через макрос

[Оксана33]

Sub Sortsheets()

Dim i As Integer
Dim c As Integer
For i = 1 To 100
c = i + 1
Sheets(i).Move Before:=Sheets(c)
Next
End Sub

Есть листы (3, 1, 2, ... до 10) Подскажите, где ошибка? не выполняется сортировка

[RAN.]

Все работает. Лист №1 помещается перед листом №2, №2 перед №3 и т.д.
Правда, они и так там находятся...

[SAS888]

Вы сортируете листы по индексу. При этом, не важно, какие имена присвоены листам. А Вам нужно по имени. Например, так:

Sub SortSheets()
    Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then Sheets(j).Move Before:=Sheets(i)
        Next j
    Next i
End Sub

[Оксана33]

Сообщение от SAS888

Вы сортируете листы по индексу. При этом, не важно, какие имена присвоены листам. А Вам нужно по имени. Например, так:

Sub SortSheets()
    Dim i As Integer, j As Integer
    For i = 1 To Sheets.Count - 1
        For j = i + 1 To Sheets.Count
            If UCase(Sheets(i).Name) > UCase(Sheets(j).Name) Then Sheets(j).Move Before:=Sheets(i)
        Next j
    Next i
End Sub

спасибо, я подозревала, что дело в имени

[Оксана33]

Сообщение от RAN.

Все работает. Лист №1 помещается перед листом №2, №2 перед №3 и т.д.
Правда, они и так там находятся...

да нет же - они в беспорядке, так как переименовываются постоянно

[Hugo121]

RAN хотел сказать так - первый перед вторым, второй перед третьим и т.д....

[SAS888]

да нет же - они в беспорядке, так как переименовываются постоянно

Вы не хотите понять, что лист с индексом 1 будет иметь этот индекс вне зависимости от того, как вы его переименуете. Поэтому, сортировать по индексу есть неправильно. Именно об этом говорят RAN. и Hugo121.

[Оксана33]

Сообщение от SAS888

Вы не хотите понять, что лист с индексом 1 будет иметь этот индекс вне зависимости от того, как вы его переименуете. Поэтому, сортировать по индексу есть неправильно. Именно об этом говорят RAN. и Hugo121.

да я знаю про индекс, просто не знала как к имени листа обратиться

[Hugo121]

Сообщение от Оксана33

да я знаю про индекс, просто не знала как к имени листа обратиться

Включаете рекордер, перетягиваете лист, выключаете рекордер - смотрите в код

    Sheets("Sheet1").Move After:=Sheets(2)

[Оксана33]

Сообщение от Hugo121

Включаете рекордер, перетягиваете лист, выключаете рекордер - смотрите в код

    Sheets("Sheet1").Move After:=Sheets(2)

я так и делала, но метод привязан к имени, и если имя иное, то он затупит, а у меня имена листов - 1,2,3 и т.д. И потом этот код Move After:=Sheets(2) нужно прописать множество раз с другими индексами 3,4,5...

SAS888 дал исчерпывающий ответ