Метод Sort

[shchelelv]

Нужно выполнить сортировку в форме
Пишу для нее такой код не работает
Исправьте, пожалуйста, ошибку

Private Sub CommandButton1_Click() ′конец работы
End
End Sub
--------------------------------------------------------------------
Private Sub ListBox1_Click() ′выбор ключа сортировки в ListBox1
Dim sh As Range, LastRow& ′символ & обозначает строковый тип
Dim nomCol As Integer
nomCol = ListBox1.ListIndex + 1 'определение номера колонки–ключа сортировки
'определяем номер последней заполненной строки
LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Set sh = _
Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки
'используем метод Sort и указываем ключ сортивки
sh.Sort Key1:=Range(Cells(2, nomCol), Cells(2, nomCol)), _
Order1:=xlAscending, _ ′по возрастанию
Header:=xlYes, _ ′есть заголовок
OrderCustom:=1, _ 'указывает порядковый номер списка
MatchCase:=False, _ ‘не учитывает регистры букв при сортировке
Orientation:=xlTopToBottom, _ ′сортировка по строкам
DataOption1:=xlSortNormal ′числовые и текстовые поля сортируются по раздельности
End Sub
-----------------------------------------------------------------------------
Private Sub UserForm_Activate() ′заполнение ListBox1 при активации формы
ListBox1.AddItem ("фамилии")
ListBox1.AddItem ("oценка 1")
ListBox1.AddItem ("oценка 2")
ListBox1.AddItem ("oценка 3")
ListBox1.AddItem ("oценка 4")
ListBox1.AddItem ("oценка 5")
ListBox1.ListIndex = 0
End Sub
-----------------------

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

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

LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row Set sh = _
Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки

имхо, это нужно записать в отдельных строчках

LastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 
Set sh = Range("A1:F" & LastRow) 'устанавливаем диапазон сортировки

а во-вторых, я бы указывал в Range принудительно лист (ну, типа ActiveSheet.Range .....

Вы бы лучше файлик с вашей формой запаковали в архив и выложили на форум.

[shchelelv]

Большое спасибо, долго бил голову, а оказалось все просто!!