Сортировка ярлыков листов в Excel

Posted by obzor under VBA

Есть несколько листов. В ячейку C2 каждого листа вставлена цифра.
Как отсортировать листы — по значениям в этих ячейках?
Сперва идут ярлычки листов со значениями в ячейках C2 — равными «1».
За ними идут ярлычки листов со значениями в ячейках C2 — равными «2» и т.д.

AlexM12

Sub Macros()
Dim i As Long, j As Long
Application.ScreenUpdating = False
WS_count = ActiveWorkbook.Worksheets.Count
For i = 1 To WS_count - 1
    For j = 1 + i To WS_count - 1
        If Worksheets(i).Range("C2") > Worksheets(j).Range("C2") Then
            Worksheets(j).Move Before:=Worksheets(i)
        End If
    Next j
Next i
Worksheets(WS_count).Activate
Application.ScreenUpdating = True
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel