Макрос работает на заданных строках

[maxpay]

Здравствуйте!

Данный макрос поднимает (сортирует по возрастанию) строку верх по ключу в столбце А

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A:B").Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal
End Sub

а как делать чтобы он поднимал (сортировал по возрастанию) строки в указанном диапазоне строк, например строк с 5 по 100?

[kuklp]

Range("A5:B100")

[maxpay]

Спасибо большое
Все работает

[maxpay]

Возможно ли сделать чтобы он еще и в диапазоне "A111:B200" мог работать. Или проще макрос продублировать?

[maxpay]

Range("A5:B100", "A111:B200") так не работает Пишет - "Нужно чтобы ячейки имели одинаковый размер"

[VictorM]

Возможно ли сделать чтобы он еще и в диапазоне "A111:B200" мог работать.

А какой смысл? в таком случае он все равно сортирует диапазон Range("A2:B200")

Range("A5:B100", "A111:B200") так не работает Пишет - "Нужно чтобы ячейки имели одинаковый размер"

У меня работает и так. У Вас скорее всего, присутствуют объединенные ячейки в диапазоне.
Вот и "ругается")

[maxpay]

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

А какой смысл? в таком случае он все равно сортирует диапазон Range("A2:B200")

У меня работает и так. У Вас скорее всего, присутствуют объединенные ячейки в диапазоне.
Вот и "ругается")

Да Вы правы, объединенные ячейки есть. Они разделяют группы данных. Мне и нужно чтобы этот макрос мог сортировать в каждой группе отдельно.

[maxpay]

Все решил задачу

Вот так. Все просто.

Private Sub Worksheet_Change(ByVal Target As Range)
Range("4:107").Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal
Range("111:214").Sort _
Key1:=Range("A111"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("218:310").Sort _
Key1:=Range("A218"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub



Всем спасибо

[maxpay]

Всем спасибо