VBA Excel - Определение диапазона ячеек на листе

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA Excel - Определение диапазона ячеек на листе (Макросы/Sub)

tumanovalex

Дата: Вторник, 20.01.2015, 15:56 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Excel 2007

Хотелось бы в процедуре определять текущий диапазон для проведения в нем сортировки. С помощью записи макроса получил процедуру для фиксированного диапазона:[vba]

Код

Private Sub CommandButton1_Click()
   Dim NextRow As Long, NumMax As Long
   Sheets("Контакты").Activate
   ActiveSheet.Sort.SortFields.Clear
   ActiveSheet.Sort.SortFields.Add Key:=Range("A:A") _
         , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveSheet.Sort
     .SetRange Range("A1:F9")
     .Header = xlYes
     .MatchCase = False
     .Orientation = xlTopToBottom
     .SortMethod = xlPinYin
     .Apply
   End With
End Sub

[/vba]Подскажите, пожалуйста, как заменить фиксированный диапазон в SetRange на текущий рабочий диапазон. Тестовый файл прикрепляю