Завершить сортировку не выходя из окна формы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Завершить сортировку не выходя из окна формы (Макросы/Sub)

Otter

Дата: Суббота, 30.05.2015, 13:18 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Всем здравствуйте.

Сортировка листов происходит только после нажатия кнопки Ок на форме. Если не закрывать окно формы, то сортировка не происходит.

Как написать код для кнопки "Применить", чтобы не выходя из окна формы произошла сортировка как при нажатии кнопки Ок.

К сообщению приложен файл: 60_.xlsm (42.3 Kb)

Сообщение отредактировал Otter - Суббота, 30.05.2015, 13:18

Ответить

DJ_Marker_MC

Дата: Суббота, 30.05.2015, 13:25 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Otter, добрый день.
Если правильно понял, то вот так нужно:
[vba]

Код

Private Sub CommandButton1_Click()
         Dim i As Long
       '   Перемещение листов
       Application.ScreenUpdating = False
       For i = 0 To SheetListBox.ListCount - 1
           ActiveWorkbook.Sheets(SheetListBox.List(i)).Move ActiveWorkbook.Sheets(i + 1)
       Next i
       Sheets(UserSheet).Activate
       Application.ScreenUpdating = True
End Sub

[/vba]