marinikaTRATATA
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На нескольких Листах Книги в одних и тех же столбцах (I) размещены списки фамилий. Макрос должен сортировать их по алфавиту на любом активном Листе.
Помогите, пожалуйста, найти ошибку:
Sub Sortirovka()
Dim iLastRowBaza As Integer
iLastRowBaza = Cells(Rows.Count, 9).End(xlUp).Row + 1
With ActiveSheet.Name.Sort
Columns("I:I").Select
.SortFields.Clear
.SortFields.Add Key:=Range("I2:iLastRowBaza" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("I1:iLastRowBaza")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Добавлено:
Sorry,
Sub Sortirovka()
Dim iLastRowBaza As Integer
Columns("I:I").Select
iLastRowBaza = Cells(Rows.Count, 9).End(xlUp).Row + 1
With ActiveSheet.Name.Sort
.SortFields.Clear
.SortFields.Add Key:=Range("I2:iLastRowBaza" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange Range("I1:iLastRowBaza")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|
